Transferts FTP

Voici une méthode permettant d’automatiser vos transferts

  1. 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
  2. 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
  3. saisir dans le fichier QFTPSRC, membre CMD_TRF les commandes de transfert FTP
  4. lancer le CL par un CALL
  5. 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

Autres articles sur FTP :


 116

 273

 256

Print Friendly, PDF & Email