Discussion :

[vivirarazeze]

Bonjour,



Je souhaite copier les fichiers d'un répertoire du 400 vers un répertoire d'un serveur
Pour ça j'au CLP qui fait les commandes FTP, mais ça ne marche pas.

Pouvez vous m'aider ?
Merci


/****************************************************************/
/* */
/* CXDTEST TRANSFERTS */
/* */
/****************************************************************/
PGM
/* TRANSFERTS -------------------------------------------------*/
RMVM FILE(CXSRC/CXTXT) MBR(CXOTEST)
MONMSG MSGID(CPF0000)
OVRDBF FILE(INPUT) TOFILE(CXSRC/CXTXT) MBR(CXXTEST)
OVRDBF FILE(OUTPUT) TOFILE(CXSRC/CXTXT) MBR(CXOTEST)
FTP RMTSYS(##monserveur##)
TAG9: ENDPGM



/****************************************************************/
/* */
/* CXXTEST TRANSFERTS */
/* */
/****************************************************************/
OPEN ##monserveur##
USER ##mesinfosdelog##
ASCII
NAMEFMT 1
MPUT monrepertoire400/*.* monrepertoireduserveur
CLOSE
QUIT

[m4k-Hurrican]

Bonjour,

Tu devrais regarder l'historique du travail...
Déjà, grossière erreur, ton source de sortie est le même que celui d'entrée !
Or c'est dans le fichier de sortie que le système va enregistrer le log des erreurs. Et il ne peut le faire, le membre étant déjà verrouillé en input.

[FORMULARY]

Bonjour.
La sortie du log du FTP se fera sans problème car c'est le même fichier mais pas le même membre (CXOTEST)

Cela dit, que dit ce fameux membre ?

[m4k-Hurrican]

Arf, grosse boulette, j'avais mal lu le nom des membres.
Désolé

[vivirarazeze]

Voilà ce que me donne le CXOTEST

227 Entering Passive Mode (xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx).
125 Data connection already open; Transfer starting.
226 Transfer complete.
20356 bytes transferred in 0.015 seconds. Transfer rate 1389.636 KB/sec.
227 Entering Passive Mode (xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx).
125 Data connection already open; Transfer starting.
226 Transfer complete.
63019 bytes transferred in 0.014 seconds. Transfer rate 4609.390 KB/sec.
Unknown extension in database file name.
Error processing MPUT parameter monrepertoireduserveur.
Enter an FTP subcommand.
> CLOSE
221
Enter an FTP subcommand.
> QUIT



Si j’exécute le code depuis un console windows, aucun pb, si ce n'est qu'on me demande un "y/n" pour chaque fichier

[FORMULARY]

Tu as une erreur dans le type de fichier.
Comme tu as forçé le namefmt, ça devrait être bon.
Essaie ton mput à la main en mode verbose à on.
(Pour changer le mode verbose, il suffit de taper verbose pour qu'il indique Verbose mode On)

[FORMULARY]

Oups !
Je viens de relire ton post.
MPUT côté AS n'a pas une syntaxe MPUT original destination
mais une syntaxe MPUT original1 original2 etc ...

Pour envoyer plusieurs fichiers de monrepertoire400 vers le répertoire monrépertoireserveur, il suffit de faire
CD monrepertoireserveur
MPUT monrepertoire400/*

Attention : monrépertoireserveur doit être indiqué comme répertoire à partir du répertoire utilisé comme répertoire de travail du serveur distant.
Si ton user est paramétré avec c:\repftp comme répertoire, CD rep1 va te positionner sur c:\repftp\rep1

[vivirarazeze]

merci.
cela fonctionne parfaitement maintenant avec le MPUT monrepertoire400/*

[vivirarazeze]

Une fois les fichiers transférés, est il possible de supprimer les fichiers d'un répertoire ?
MDELETE monrepertoire400/*

[FORMULARY]

Bonjour.
On ne peut pas supprimer plusieurs fichiers par FTP, mais on peut lancer une commande AS400.
Si c'est le 400 qui est client FTP :
Syscmd del monrepertoire/*
Si c'est un autre système :
Quote rcmd del monrepertoire/*

[vivirarazeze]

après réflexion on peut aussi faire depuis le CLP un

RMVLNK OBJLNK('monrepertoire400/*')