Skrypt ARCHIVE: ARCHIVE
ARCFIL: Zarządzanie archiwami na wielu serwerach
Punkt wejścia ARCFIL umożliwia zarządzanie archiwizacją plików w wielowarstwowej architekturze. Jest to uzupełnienie punktu wejścia RPTFIL.
Kontekst i tryb działania
Ten punkt wejścia jest umiejscowiony w pętli wyszukiwania reguł archiwizacji odpowiadających środowisku.
Jeśli GPE=0, zastosowanie ma standard: przekazanie plików z serwera X3 do systemu archiwizacji.
Pełne nazwy plików do przekazania znajdują się w zmiennej NOMFIC(1..NBFIC)
Zmienna TRACE ustawiona jako 1 umożliwia dowiedzenie się, czy log jest otwarty.
Przykład kodu:
$ACTION
Case ACTION
When "ARCFIL": Gosub ARCFIL
When Default
Endcase
Return
$ARCFIL
Gosub SET_NOMPCE From ARCHIVE
Gosub COPFIC From ARCHIVE: # Kopia pliku
Call SETREP(NOMPCE,REPERT) From GOBJTXT
Call EXISTE(REPERT,STAT) From ORDSYS
If STAT<>2
ERM = "|"+REPERT+"|\"+mess(9,141,1): # Istniejący katalog
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 : # Ocena parametrów i archiwizacji
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)