Transferts PC vers AS400 via un batch

**AnorkGD** · 09/12/2008, 13h35

Bonjour,
je suis comptable et non pas informaticien (même si j'ai quelques connaissances)
j'ai créé un batch pour transférer des données d'un logiciel de mon PC vers l'AS400 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
@ECHO OFF
SET chemin=T:\Traitements
T:
CD %chemin%
REM ==========================================================SET traitement=Frais
IF NOT EXIST Interface-%traitement%.txt GOTO noexist1
GOTO trffic1
:noexist1
ECHO --------------------------------------------------------------------
ECHO ATTENTION: Fichier Interface-%traitement%.txt inexistant dans %chemin%
GOTO fin1
:trffic1
ECHO --------------------------------------------------------------------
ECHO Transfert du fichier Interface-%traitement%.txt sur l'AS400 (AJOUT)
cwbtf.exe Interface-%traitement%.dtt
ECHO --------------------------------------------------------------------
ECHO Lancement de la commande pour traitement du fichier remonte sur AS400
SET vcmd="CALL CODASPC/COD235CL //AS400" 
RMTCMD %vcmd% 
ECHO --------------------------------------------------------------------
ECHO Suppression du fichier source sur le PC
DEL Interface-%traitement%.txt
ECHO Traitement termine
:fin1

Ce Batch fonctionne, à un détail près : j'ai une fenêtre qui s'ouvre en me demandant un nom d'utilisateur et mot de passe pour l'AS400.

Ce Batch, je voudrai le mettre en tache planifié, et donc mettre le nom d'utilisateur le mot de passe dans le batch.
Et là je suis bloqué, je ne sais pas comment faire
Si quelqu'un peut m'aider ?

merci d'avance

**Mercure** · 09/12/2008, 14h42

Il va falloir changer la méthode d'upload et utiliser par exemple FTP au lieu du transfert par Client Access.
Colle ici stp le contenu des 2 fichiers de transfert Interface-%traitement%.dtt pour analyse et remplacement par un transfert FTP.

**AnorkGD** · 09/12/2008, 14h56

Voici les 2 fichiers :

Interface-Frais.dtt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
[DataTransferToAS400]
Version=1.0
[HostInfo]
HostName=AS400TDF
HostFile=PCSFILE/CPTNOAPF(CPTNOAPF)
FRFFile=
CrtOpt=3
HostFileType=1
ObjAuth=0
RecLen=92
FileText=
MbrText=
[ClientInfo]
PCFile=T:\Traitements_Notilus\Interface-Frais.txt
UseFDF=1
PCFileType=1
FDFFile=T:\Traitements_Notilus\Interface-Frais.FDF
ConvType=0
[Properties]
Convert65535=0
ConvertTabs=0
Notify=1
AutoRun=1
AutoClose=1
ShowWarnings=0

Le fichier des données : Interface-Frais.txt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
SF DEPLACEMENT 625100 S01080 N0017 20081129D 12.72 3429 3429500 
SF DEPLACEMENT 625600 S01080 N0017 20081129D 255.00 3429 3429500 
SF DEPLACEMENT 625700 S01080 N0017 20081129D 28.68 3429 3429500 
SF 445661 20081129D 6.60 3429 3429 
SF 401000 20081129C 303.00 3429 3429

**Mercure** · 09/12/2008, 16h02

J'y pense maintenant. On n'a pas besoin de FTP et, en faisant au plus simple, je remplacerais la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cwbtf.exe Interface-%traitement%.dtt

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rxferpcb.exe Interface-%traitement%.dtt  userID   password

tout simplement.

RXFERPCB est disponible pour les transferts de données à distance depuis la V5R1 de l'OS. Cette commande permet d'indiquer un ID utilisateur et un mot de passe sur la ligne de commande.

userID et password sont évidemment le nom d'utilisateur et le mot de passe nécessaires pour se connecter à l'AS/400. L'ennui, c'est qu'ils sont en dur dans le script et quiconque peut les voir pour peu que ce script se trouve sur un drive partagé, donc voir ou revoir la stratégie de sécurité. L'avantage, c'est que l'outil rxferpcb est commun aussi bien aux transferts upload (rfrompcb) que download (rtopcb). C'est donc le même outil qui regroupe les deux fonctions et c'est l'extension du fichier de transfert indiqué (.DTF, .DTT, .TTO ou .TFR) qui fait la différence.

**AnorkGD** · 09/12/2008, 17h09

Merci,

Mais j'ai l'information suivante :

'rxferpcb.exe' n'est pas reconnu en tant que commande interne ou externe,
un programme exécutable ou un fichier de commandes.

désolé...

**Mercure** · 09/12/2008, 17h23

Version de l'OS/400 ?

Rechercher dans les répertoires \IBM\Client Access si rxferpcb.exe s'y trouve.

Poser le cas échéant ces questions à l'Administrateur de la machine.

RXFERPCB est disponible pour les transferts de données à distance depuis la V5R1 de l'OS et non pas V5R3 comme annoncé précédemment.

**Mercure** · 09/12/2008, 18h16

Ce qui me laisse penser, mais je peux me tromper, que les service packs SI10376 V5R1 ou SI09809 V5R2 n'ont pas été appliqués, ou encore que l'OS est plus ancien.
ça m'étonne un peu quand même.

**AnorkGD** · 10/12/2008, 13h14

Je n'ai pas encour pu contacter l'administrateur pour vérifier la version de notre AS400.

Je ma machine dans le répertoire "Client Access" je n'ai pas rxferpcb.exe, mais j'ai rfrompcb.exe et rtopcb.exe pour info, je ne sais pas si ça peux aider ?

**Mercure** · 10/12/2008, 14h37

Pour vérifier la version de l'OS :
Menu Démarrer>Programmes>IBM iSeries Access for Windows>Propriétés d'iSeries Access for Windows puis lire la version et la release (Version x Release x) dans la fenêtre qui s'affiche alors.

Je joins le zip de rxferpcb.exe de la V5R1. Je suis allé le chercher sur le site d'IBM. Ouvre le zip (ya pas de virus) par double-clic et avec la souris, fais glisser rxferpcb.exe dans le répertoire où se trouvent déjà rfrompcb.exe et rtopcb.exe. Dès que c'est fait, le script d'hier devrait fonctionner.

**AnorkGD** · 10/12/2008, 14h48

j'ai :

Version 5 Edition 2 Niveau de modifciation : SI04484

**Mercure** · 10/12/2008, 15h07

OK. Si rxferpcb.exe n'est pas déjà installé en V5R2, ça veut dire que toutes les PTF (modifs de programmes propres à IBM) ne sont pas appliquées pour une raison que j'ignore. Enfin, ça ne devrait pas empêcher de tourner avec le rxferpcb.exe que je t'ai joint.

Tiens-nous au courant de la suite donnée please.