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
Recherche à faire FTP en batch pour envoi de SAVF
script a lancer par
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
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
-
- Messages : 13
- Enregistré le : jeu. 03 déc. 2009, 17:13:03
(sans texte)
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.
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)
Bonjour et merci à vous deux, votre aide m'a été d'un grand secours
A+
A+