Voici une méthode permettant d’automatiser vos transferts
- créez un fichier source que vous appellerez QFTPSRC dans votre bibliothèque
préférée (pour l’exemple, ce sera QGPL), et créez dans ce fichier source un membre que
vous appelerez CMD_TRF, ainsi qu’un autre que vous appelerez CMD_CHK - créez un programme CL définissant les chemins d’accès au fichier des commandes de
transfert FTP et au fichier des messages récapitulatifs - saisir dans le fichier QFTPSRC, membre CMD_TRF les commandes de transfert FTP
- lancer le CL par un CALL
- une fois le traitement terminé, lisez le compte-rendu du transfert dans le membre
CMD_CHK du fichier QFTPSRC, pour savoir si tout s’est bien passé
Exemple de CL :
PGM
/* Mise à blanc du fichier des messages récapitulatifs de transfert */
CLRPFM FILE(QGPL/QFTPSRC) MBR(CMD_CHK)
/* Définition du fichier contenant les commandes de transfert */
OVRDBF FILE(INPUT) TOFILE(QGPL/QFTPSRC) MBR(CMD_TRF)
/* Définition du fichier contenant les messages récapitulatifs */
OVRDBF FILE(OUTPUT) TOFILE(QGPL/QFTPSRC) MBR(CMD_CHK)
/* Démarrage de FTP */
STRTCPFTP RMTSYS(FTP.xxxxxx.FR)
/* Déclenchement du transfert des fichiers */
OVRDBF FILE(FILE) TOFILE(INPUT)
ENDPGM
Exemple de source pour le membre CMD_TRF du fichier QFTPSRC :
xxxxxx yyyyyyy
get C:/fictfr/fichier1.txt bibftp/FRM001P (replace
get C:/fictfr/fichier2.txt bibftp/FRM002P (replace
put bibftp/frm003p C:/fictfr/fichier3.txt
put qgpl/qrpgsrc.datsyspgm qgpl/qrpgsrc.datsyspgm
quit
Explications :
- "xxxxxx" est le profil utilisé pour le transfert
- "yyyyyy" est le mot de passe correspondant au profil utilisateur
- l’instruction "get" permet de transférer un fichier de la plateforme distante
vers l’AS/400 - l’instruction "put" permet de transférer un fichier AS/400 vers un fichier de
la plateforme distante - notes la syntaxe correspondant à l’envoi d’un membre de fichier ("datsyspgm"
dans l’exemple) - ne pas oublier l’instruction "quit" à la fin du source