Page 1 sur 1

Recherche à faire FTP en batch pour envoi de SAVF

Posté : ven. 16 avr. 2010, 13:49:03
par driver27
Bonjour,

Quelqu'un pourrait me donner un exemple (code source) pour envoyer des SAVF d'un i520 vers un autre toutes les nuits. les cdes FTP comme PUT c'est bien en interactif mais cette cde est inconnue en CLP.

Merci de votre aide

script a lancer par

Posté : ven. 16 avr. 2010, 15:24:03
par ctalhouet
0001.00 intsites xxxxxxxx
0002.00 site namefmt '1'
0003.00 namefmt '1'
0004.00 bin
0005.00 cd /qdls/edi/departs
0006.00 mput /qdls/edi/departs/verrocjf.txt
0007.00 mput /qdls/edi/departs/b*.*
0008.00 cd /qdls/edi/departsh
0009.00 mput /qdls/edi/departs/b*.*
0010.00 cd /qdls/edi/departs
0011.00 delete verrocjf.txt
0012.00 quit

le cl
DCL VAR(&HOST) TYPE(*CHAR) LEN(16)
0007.00
0007.01 CALL INILIB
0008.00 CHGVAR VAR(&HOST) VALUE('193.252.114.155')
0012.00 CLRPFM FILE(BER400/QFTPSRC) MBR(LOGSITW)
0013.00 OVRDBF FILE(INPUT) TOFILE(BER400/QFTPSRC) MBR(FTPSITW)
0014.00 OVRDBF FILE(OUTPUT) TOFILE(BER400/QFTPSRC) +
0014.01 MBR(LOGSITW)
0015.00 STRTCPFTP RMTSYS(&HOST)
0016.00 DLTOVR FILE(INPUT)
0017.00 DLTOVR FILE(OUTPUT)
0068.00 ENDPGM



tel 02 97 61 66 21

(sans texte)

Posté : ven. 16 avr. 2010, 15:57:45
par EL MANSSOURI
La commande FTP peut s'utiliser en mode batch :
1) 1) Créer un fichier source (longueur 92) FTPUTCMD avec deux membres FTPIN et FTPOUT.

2) mettre les commande FTP dans le membre FTPIN.

User
Mot de passe

bin

put BIBSOURCE/FILESOURCE BIBCIBLE/FILECIBLE

3) dans un CLP lancer les commandes suivante

CHGCMD CMD(QSYS/FTP) ALLOW(*ALL)
OVRDBF FILE(INPUT) TOFILE(FTPUTCMD) MBR(FTPIN)
OVRDBF FILE(OUTPUT) TOFILE(FTPUTCMD) MBR(FTPOUT)
FTP RMTSYS(Adresse IP ou HOST du système éloigné)
DLTOVR FILE(INPUT OUTPUT)

L'alimenation du membre FTPIN peut se faire par programme si les valeurs sont variables.
Dans le membre FTPOUT, la commande place le compte rendu.

(sans texte)

Posté : jeu. 22 avr. 2010, 17:27:36
par driver27
Bonjour et merci à vous deux, votre aide m'a été d'un grand secours

A+