Script ARCHIVE : ARCHIVE
ARCFIL: Gestão dos arquivos sobre vários servidores
O ponto de entrada ARCFIL permite de gerir o arquivo dos ficheiros em arquitetura multi-terceiros É um complemento do ponto de entrada RPTFIL.
Contexto e modo de funcionamento
Este ponto de entrada está situado no anel de pesquisa das regras de arquivo correspondente ao ambiente.
Se GPE=0, aplica-se o standard : transferir os ficheiros depois o servidor X3 no sistema de arquivo.
Os nomes completos dos ficheiros a transferir na variável NOMFIC(1..NBFIC)
A variável TRACE posicionada a 1 permite de saber se um rasto está aberto.
Exemplo de código:
t$ACTION
Case ACTION
When "ARCFIL" : Gosub ARCFIL
When Default
Endcase
Return
$ARCFIL
Gosub SET_NOMPCE From ARCHIVE
Gosub COPFIC From ARCHIVE : # Cópia do ficheiro
Call SETREP(NOMPCE,REPERT) From GOBJTXT
Call EXISTE(REPERT,STAT) From ORDSYS
If STAT<>2
ERM = "|"+REPERT+"|\"+mess(9,141,1) : Répertoire inexistente
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 : # Evolução dos parâmetros e arquivo
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)