transfert AS400/PC et vis versa [Résolu]

[GADA60]

Bonjour,
Je souhaiterai transférer de façon automatique, via une procédure CLP en batch, des fichiers de l'As400 vers un PC et vis versa par client acces, FTP ou tout autre solution.
Par avance merci
Cordialement.

[Green Hornet]

voici un petit bout d'exemple de programme CL à utiliser:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
            PGM                                                                                                    
             CLRPFM     FILE([Fichier de commandes FTP])                                                                
             CALL       PGM([Programme de remplissage du fichier de commandes FTP])
             OVRDBF     FILE(INPUT) TOFILE([Fichier de commandes FTP])                                                
 CONNECT:    FTP        RMTSYS([ADRESSE FTP])
             MONMSG     MSGID(TCP10B0) EXEC(DO)                                                         
             SNDPGMMSG  MSG('Connexion FTP impossible. Nouvelle +                                       
                          tentative dans 2 minutes')                                                    
             DLYJOB     DLY(120)                                                                        
             GOTO       CMDLBL(CONNECT)                                                                 
             ENDDO                                                                                      
             DLTOVR     FILE(INPUT)                                                                     
             ENDPGM

pour expliquer brièvement, tu as dans un fichier BDD une liste de commandes FTP, tu fais un overdbf sur input avant l'ouverture de la session FTP et une fois la session ouverte, toutes les commandes contenues dans le fichier seront effectuées

[roseline]

Transferts par PCS

le .BAT sur le PC pour lancer les extractions AS400 :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
REM ****************************************************
REM * A Lancer après "call BUS300C2" en production     * 
REM *                                                  *  
REM * Lancement extractions Cube / BO                  *
REM **************************************************** 
REM @ECHO OFF
C:\PROGRA~1\IBM\CLIENT~1\rtopcb.exe T:\Ncr\ORA_BO\Script\BHLFO_BO.dtf
C:\PROGRA~1\IBM\CLIENT~1\rtopcb.exe T:\Ncr\ORA_BO\Script\BHIFO_BO.dtf
C:\PROGRA~1\IBM\CLIENT~1\rtopcb.exe T:\Ncr\ORA_BO\Script\BHEFO_BO.dtf
C:\PROGRA~1\IBM\CLIENT~1\rtopcb.exe T:\Ncr\ORA_BO\Script\BHDFO_BO.dtf
C:\PROGRA~1\IBM\CLIENT~1\rtopcb.exe T:\Ncr\ORA_BO\Script\BFOUR_BO.dtf
C:\PROGRA~1\IBM\CLIENT~1\rtopcb.exe T:\Ncr\ORA_BO\Script\BFOTR_BO.dtf
C:\PROGRA~1\IBM\CLIENT~1\rtopcb.exe T:\Ncr\ORA_BO\Script\BARTI_BO.dtf
ECHO Extraction terminée
PAUSE

(le chemin d'accès du rtopcb.exe , = utilitaire de lancement du transfet PCS, peut changer suivant les installations des PC, lancer une recherche de cet exécutable et changer le chemin d'accès de celui-ci , si besoin est.
LE .dtf peut s'appeler autrement aussi selon votre version de client acces, si vous créé votre transfert à partir de la sessions as400, vous l'enregistrez et ,noter la bonne extension fichier.


Le(s) Transfert(s) , par exemple pour le 1er dans le bat et ceci à partir de l'as400 vers le réseau :

. AS400 - Nom du système: S4410845 <- le nom de votre système AS400
. AS400 - Nom du fichier: PLRSFIC/BHIFO_BO <- le nom de votre fichier avec sa bibliothèque devant.
. PC - Unité de sortie : Fichier
. PC - Nom du fichier : T:\Ncr\ORA_BO\BHBO.csv <- mettre le chemin complet !

extrait de www.forumas400.com

cordialement

Bonne journée

[fred_crrm]

Bonjour,

Pourquoi ne pas faire de transfert par CPYTOIMPF vers l'IFS de L'Iseries

Les données sont ensuite accessible depuis le PC.

Fred

[gomezc]

Bonjour

J'aimerais transferer un fichier as400 :
Pour cela j'aurais besoin de lancer un batch qui tournerais toute les heures
Pourriez vous me dire ce que vous mettriez dans votre commande FTP

Merci

[Green Hornet]

ça dépend de ce que tu veux faire

généralement il faut enchainer les commandes suivantes :

- login
- mot de passe
- différentes manip pour le transfert
- put fichier-local fichier_distant (avec chemins complets si non précisé avant)
- close
- quit

[Hédhili Jaïdane]

Bonjour.

Voilà des exemples. Il suffit de programmer la planification des .bat

Code FTPGETSTL.BAT :

1
2
FTP -s:FTPGETSTL.TXT xxx.xxx.xxx.xxx

Code FTPGETSTL.TXT :

1
2
3
4
5
6
7
8
9
10
11
12
UserName
PassWord 
bin
quote site namefmt 1
cd /QSYS.LIB/HJSAVF.LIB
get BB_S1999.SAVF C:\HJSAVF\BB_S1999.SAVF
get BB_S2005.SAVF C:\HJSAVF\BB_S2005.SAVF
get BIB_COMM.SAVF C:\HJSAVF\BIB_COMM.SAVF
get BIB_CONS.SAVF C:\HJSAVF\BIB_CONS.SAVF
get BIB_EXPL.SAVF C:\HJSAVF\BIB_EXPL.SAVF
quit

Code FTPPUTSTL.BAT :

1
2
FTP -s:FTPPUTSTL.TXT xxx.xxx.xxx.xxx

Code FTPPUTSTL.TXT :

1
2
3
4
5
6
7
8
9
10
11
12
UserName
PassWord 
bin
quote site namefmt 1
cd /QSYS.LIB/HJSAVF.LIB
put C:\HJSAVF\BB_S1999.SAVF
put C:\HJSAVF\BB_S2005.SAVF
put C:\HJSAVF\BIB_COMM.SAVF
put C:\HJSAVF\BIB_CONS.SAVF
put C:\HJSAVF\BIB_EXPL.SAVF
quit

[Green Hornet]

sauf que tu es dans le sens PC -> AS400

[Hédhili Jaïdane]

Envoyé par Green Hornet

sauf que tu es dans le sens PC -> AS400

Tu es sur le PC mais tu fais des transferts dans les deux sens :
PC---> AS400 par PUT
AS400 ---> PC par GET

[BALLAT]

Autre possibilité :
Si Ton PC est dans ton réseau local :
MKDIR "/QNTC/Tonpc"

Avec le WRKLNK "/QNTC/Tonpc" Tu Verras tes répertoires partagées.

Maintenant que ton PC est connu par l'AS400:
- CPYFRMIMPF (Du PC vers BDAS)
- CPYTOIMPF (De l'AS vers PC)

Cette conf te permet de gérer des W Plannifiés (WRKjobscde) qui te permet d'exécuter des Transfers vers et du PC.

[Green Hornet]

Envoyé par Hédhili Jaïdane

Tu es sur le PC mais tu fais des transferts dans les deux sens :
PC---> AS400 par PUT
AS400 ---> PC par GET

j'avais lu que les derniers exemples...

[dblue_ln]

Envoyé par BALLAT

Autre possibilité :
Si Ton PC est dans ton réseau local :
MKDIR "/QNTC/Tonpc"

Avec le WRKLNK "/QNTC/Tonpc" Tu Verras tes répertoires partagées.

Maintenant que ton PC est connu par l'AS400:
- CPYFRMIMPF (Du PC vers BDAS)
- CPYTOIMPF (De l'AS vers PC)

Cette conf te permet de gérer des W Plannifiés (WRKjobscde) qui te permet d'exécuter des Transfers vers et du PC.

Bonjour,
Je suis en train d'essayer de tester cette méthode car je dois automatiser des tâches d'envoi de fichiers à différents PC de mon réseau.
J'ai fait un MKDIR "QNTC/nomdemonpc"
j'ai partagé un dossier sur mon pc ("mes documents" au hasard...)
j'ai déclaré sur mon as/400 un utilisateur avec mot de passe identique à celui de mon poste
j'ai fait un
WRKLNK '/QNTC/FSE-BLQ-006/Mes documents/*' sous ce profil et... ben cela ne fonctionne pas. j'ai un message "Objet introuvable. L'objet est /QNTC/FSE-BLQ-006/Mes documents." et je ne sais pas m'en débrouiller. Une idée sur quelque chose que j'ai loupé ?

[K2R400]

Pour ce faire, ton PC doit être dans le même DOMAINE que l'AS/400.
Pour voir le domaine de l'AS, commande CHGTCPDMN puis F4

[Mercure]

Quand tu fais

Code :

MKDIR 'QNTC/nomdemonpc'

Est-ce que nomdemonpc est le nom d'un serveur visible dans le réseau local ?

Avec User et MDP identiques sur les 2 systèmes, il faut faire

Code :

MKDIR 'QNTC/NomServeurWindows/NomRépertoirePartagéSurLeServeurWindows'

Et là, avec WRKLNK, tu devrais voir les fichiers sur NomRépertoirePartagéSurLeServeurWindows.

Ensuite, pour copier d'une machine à l'autre, tu peux en effet employer CPYFRMIMPF et CPYTOIMPF mais aussi CPYTOSTMF et COPY qui seraeint peut-être plus adaptés à ce que tu veux faire.

[dblue_ln]

Bonjour et merci pour vos réponses.

J'ai essayé d'afficher avec MKDIR 'QNTC/NomServeurWindows/NomRépertoirePartagéSurLeServeurWindows' et cela ne fonctionne pas non plus.

Mais J'ai contrôlé et ils n'ont pas le même domaine. Et bien maintenant je n'ai plus qu'à chercher si cela a une incidence si je le modifie sur l'AS/400...

[Mercure]

Mets un fichier quelconque dans NomRépertoirePartagéSurLeServeurWindows sur le Serveur Windows.

Vois-tu oui ou non le fichier quand tu fais

Code :

WRKLNK 'QNTC/NomServeurWindows/NomRépertoirePartagéSurLeServeurWindows*'  ?

Attention ! il y a un ' * ' accollé à la fin du nom du répertoire.

[dblue_ln]

Non, je ne vois aucun fichier sur le repertoire partagé (et j'ai bien mis l'étoile).
Je fais des recherches pour le changement potentiel de nom de domaine...

[Mercure]

Envoyé par K2R400

... ton PC doit être dans le même DOMAINE que l'AS/400.

Tu veux dire que le domaine du serveur Windows et le nom du host AS400 doivent être les mêmes ? Si oui, je ne le pense pas.

Je pense qu'il vaudrait mieux plutôt s'assurer que NETSERVER est bien démarré :
iSeries Nav>Réseau> Serveurs > TCP/IP, puis clic droit sur NetServer>Démarrer
Ensuite, aller dans l'IFS, toujours dans iSeries Nav, et positionne-toi sur le répertoire que tu veux partager avec le réseau Windows. Clic droit et choisis partage --> nouveau partage et indique les niveaux d'accés Windows.

Au fait, j'espère qu'un routeur quelconque ne se balade pas entre l'AS400 et le serveur Windows...

[Green Hornet]

Envoyé par dblue_ln

Et bien maintenant je n'ai plus qu'à chercher si cela a une incidence si je le modifie sur l'AS/400...

si il sert, entre autre de serveur de mail, ça peut être problématique il me semble

[dblue_ln]

Envoyé par Green Hornet

si il sert, entre autre de serveur de mail, ça peut être problématique il me semble

Bonjour,
notre as/400 ne sert pas de serveur mail mais le nom de domaine est peut être utilisé par notre erp et je suis donc en train de me renseigner.