papino30

Bonjour,
Je rencontre un prb lors de l'exécution d'un FTP sur AS400, il imprime l'exécution du FTP a chaque transfert.
Je cherche a éviter cette édition (environ 500 FTP par jour).
L'action VERBOSE est'elle approprié ?

Merci.

Création actuelle et exécution du FTP dans le programme :
// Fichier FTP_IN, script FTP
wCmd = 'CRTPF FILE(QTEMP/FTP_IN) RCDLEN(80)';
qCmdExc(wCmd : %Len(%Trim(wCmd)));
Open FTP_IN;

// Fichier FTP_OUT, log FTP
wCmd = 'CRTPF FILE(QTEMP/FTP_OUT) RCDLEN(132)';
qCmdExc(wCmd : %Len(%Trim(wCmd)));
Open FTP_OUT;

// Génération du script FTP
fiFTP_IN = 'NOM MdP';
Write FTPIN;
fiFTP_IN = 'namefmt 1';
Write FTPIN;
fiFTP_IN = 'lcd /home/direc';
Write FTPIN;
fiFTP_IN = 'BIN';
Write FTPIN;
fiFTP_IN = 'put ' + %Trim(wIfsFile) + '.csv';
Write FTPIN;
fiFTP_IN = 'quit';
Write FTPIN;
Close FTP_IN;

// OVRDBF sur le script et le fichier log
wCmd = 'OVRDBF FILE(INPUT) TOFILE(QTEMP/FTP_IN)';
qCmdExc(wCmd : %Len(%Trim(wCmd)));
wCmd = 'OVRDBF FILE(OUTPUT) TOFILE(QTEMP/FTP_OUT)';
qCmdExc(wCmd : %Len(%Trim(wCmd)));

// Envoi du fichier
wCmd = 'FTP RMTSYS(''111.11.1.11'')';
qCmdExc(wCmd : %Len(%Trim(wCmd)));

// DLTDBF sur le script et le fichier log
wCmd = 'DLTOVR FILE(INPUT)';
qCmdExc(wCmd : %Len(%Trim(wCmd)));
wCmd = 'DLTOVR FILE(OUTPUT)';
qCmdExc(wCmd : %Len(%Trim(wCmd)));