Elenco dei File con FTP su cartella remota
- Dettagli
- Categoria: Faq AS400
- Pubblicato Giovedì, 15 Ottobre 2009 13:46
- Visite: 10693
================================================= */
/* CREAZIONE PGM: Dario Carnevale */
/* Leggo i semafori dal server FTP e */
/* scrivo il file LSOUTPUT nella libreria QTEMP */
/* con la lista dei file .CHK di controllo . */
/*-------------------------------------------------------------------*/
PGM
ADDLIBLE LIB(LIBRERIA) POSITION(*LAST)
MONMSG MSGID(CPF0000)
CHGCURLIB CURLIB(LIBRERIA)
/* Sostituisce input e output con file testo */
OVRDBF FILE(INPUT) TOFILE(LIBRERIA/QMFUSRC) MBR(INFTPEK)
OVRDBF FILE(OUTPUT) TOFILE(LIBRERIA/QMFUSRC) MBR(OUTFTPEK)
/* PULIZIA DEL FILE DI LOG E LSOUTPUT */
CLRPFM FILE(LIBMFU/QMFUSRC) MBR(OUTFTPEK)
DLTF FILE(LIBMFU/LSOUTPUT)
MONMSG MSGID(CPF0000)
FTP RMTSYS('INDIRIZZO.FTP.COM')
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(FINE))
CHGCURLIB CURLIB(*CRTDFT)
GRTOBJAUT OBJ(LIBMFU/LSOUTPUT) OBJTYPE(*FILE) +
USER(*PUBLIC) AUT(*ALL)
MONMSG MSGID(CPF0000)
DLTOVR FILE(INPUT)
MONMSG MSGID(CPF0000)
DLTOVR FILE(OUTPUT)
MONMSG MSGID(CPF0000)
DLTF FILE(QTEMP/LSOUTPUT)
MONMSG MSGID(CPF0000)
CRTDUPOBJ OBJ(LSOUTPUT) FROMLIB(LIBRERIA) OBJTYPE(*FILE) +
TOLIB(QTEMP) DATA(*YES)
MONMSG MSGID(CPF2130) EXEC(DO)
GOTO CMDLBL(FINE)
ENDDO
GRTOBJAUT OBJ(QTEMP/LSOUTPUT) OBJTYPE(*FILE) +
USER(*PUBLIC) AUT(*ALL)
CALL PGM(XXX) 'Programma per leggere il file LSOUTPUT'
RMVLIBLE LIB(LIBRERIA)
MONMSG MSGID(CPF0000)
FINE: ENDPGM
Il sorgente INFTPEK contiene i comandi FTP per generare il file :
Utente Password
ASCII
LS EK_*.CHK (DISK
QUIT
Il sorgente OUTFTPEK contiene il LOG dell'ultima esecuzione .
- Prec
- Succ >>