Traitement ARCHIVE : Archivage d'un document
ARCFIL: Gestion des archives sur plusieurs serveurs
Le point d’entrée ARCFIL permet de gérer l'archivage des fichiers en architecture multi-tiers. C'est un complément du point d'entrée RPTFIL.
Contexte et mode de fonctionnement
Ce point d'entrée est situé dans la boucle de recherche des règles d'archivage correspondant à l'environnement.
Si GPE=0, on applique le standard: transférer les fichiers depuis le serveur X3 dans le système d'archivage.
Les noms complets des fichiers à transférer sont dans la variable NOMFIC(1..NBFIC)
La variable TRACE positionnée à 1 permet de savoir si une trace est ouverte.
Exemple de code:
$ACTION
Case ACTION
When "ARCFIL" : Gosub ARCFIL
When Default
Endcase
Return
$ARCFIL
Gosub SET_NOMPCE From ARCHIVE
Gosub COPFIC From ARCHIVE : # Copie du fichier
Call SETREP(NOMPCE,REPERT) From GOBJTXT
Call EXISTE(REPERT,STAT) From ORDSYS
If STAT<>2
ERM = "|"+REPERT+"|\"+mess(9,141,1) : Répertoire inexistant
Gosub AFF_ERR From ARCHIVE
Else
NOMFIC = DIRPCE+SEP+FICHIER1
NOMFIC = ctrans(NOMFIC," ","")
NOMPCE = right$(NOMPCE,instr(1, NOMPCE, "@")+1)
NOMPCE = ctrans(NOMPCE," ","")
Endif
Gosub ARCHIVE From ARCHIVE : # Evaluation des paramètres et archivage
If OK
If [F:ARC]TYPEVT=1
Call MAJPCE(CODFLD,VALFLD,DEBUG,TRACE) From ARCHIVE
Elsif [F:ARC]OBJLNK<>""
Gosub SETCLE From =NOMPRG
Call CREPCE([F:ARC]OBJLNK,CLEOBJ,CODFLD,VALFLD,DEBUG,TRACE) From ARCHIVE
Endif
Endif
Endif
Return
If adxmac(0) <> "" & adxmac(0) <> adxmac(-1)