OVH Cloud OVH Cloud

[EASYCOM] Localisation de fichiers AS400

3 réponses
Avatar
Romain PETIT
Bonjour,

J'utilise dans une analyse WD7.5, un fichier AS400 (via Easycom) qui se
trouve sur l'environnement de test dans une librairie.

Dans l'environnement de production, ce fichier se trouve sur une autre
librairie.

Je défini par programmation (cf code simplifié ci-dessous) ma connexion
à l'AS400 voulu mais y-a-t-il un moyen de redéfinir la localisation de
ce fichier AS400 (sauf à utiliser une seconde analyse) ?

A+

bRes = HDécritConnexion(:EA_sNOMCNXEASYCOM,:EA_sLoginEasyCom, :EA_sPassEasyCom,:EA_sHoteAS400,"", hAccèsNatifAS400,eMode)
SI bRes ALORS
:EA_mpTracer("Description de la connexion Easycom <" +:EA_sNOMCNXEASYCOM+">, Hôte =<"+:EA_sHoteAS400+">, Login=<"+:EA_sLoginEasyCom+">, mode=<"+eMode+">", sAction)
sListeFichiers = HListeFichier()
c = 0
BOUCLE
c++
sFichier = ExtraitChaîne(sListeFichiers,c,RC)
SI sFichier ~= "" OU sFichier = EOT ALORS SORTIR
// on affecte le fichier à la connexion AS400 définie (pas forcement celle de l'analyse...)
SELON {sFichier}..Type
CAS hFichierAS400
bRes = HChangeConnexion(sFichier,:EA_sNOMCNXEASYCOM)
SI bRes ALORS
:EA_mpTracer("Fichier <" + sFichier+"> pris en compte pour la connexion Easycom <" +:EA_sNOMCNXEASYCOM+">", sAction)
SINON
:EA_mpErr("Erreur lors de l'affectation du fichier <" + sFichier+"> à la connexion Easycom <" +:EA_sNOMCNXEASYCOM+">")
// on ne va pas plus loin !
SORTIR
FIN
AUTRE CAS
:EA_mpTracer("Fichier non AS400 <" + sFichier+"> non pris en compte pour la connexion Easycom <"+:EA_sNOMCNXEASYCOM+">, (type=" +{sFichier}..Type+")", sAction)
FIN
FIN
SI bRes ALORS
bRes = HOuvreConnexion(:EA_sNOMCNXEASYCOM)
....






--
Romain PETIT
http://cerbermail.com/?O16kfXOFcq
(cliquez sur le lien ci-dessus pour me contacter en privé)

3 réponses

Avatar
Romain PETIT
Romain PETIT vient de nous annoncer :

Je défini par programmation (cf code simplifié ci-dessous) ma connexion
à l'AS400 voulu mais y-a-t-il un moyen de redéfinir la localisation de
ce fichier AS400 (sauf à utiliser une seconde analyse) ?



Bon, voilà la solution :
- dans l'analyse, supprimer les références à la bibliothèque dans la
description du fichier ET des clés (infos étendues)
- regénérer l'analyse
- Dans le code, APRES la connexion à l'AS400, utiliser la commande AS
pour ajouter la librairie spécifique pour le fichier décrit sans lib.

SI ASExec("ADDLIBLE "+sLibrairie) ALORS
...

A+

--
Romain PETIT
http://cerbermail.com/?O16kfXOFcq
(cliquez sur le lien ci-dessus pour me contacter en privé)
Avatar
André Schütze
si je peux me permettre.... une alternative possible c'est de jouer sur le
profil utilisé et sa LIBLE, notamment pour avoir le même code en test et en
prod... et éviter ainsi le ASExec. De même c'est les fichiers de LIBLE qui
sont proposés par défaut à l'importation et dans ce cas on n'a pas de
références à la bibliothèque dans les descriptions et infos étendues, ce qui
évite de devoir les supprimer, surtout quand les clés sont nombreuses...

Bon devs !
André







"Romain PETIT" a écrit dans le message de news:

Romain PETIT vient de nous annoncer :

Je défini par programmation (cf code simplifié ci-dessous) ma connexion
à l'AS400 voulu mais y-a-t-il un moyen de redéfinir la localisation de
ce fichier AS400 (sauf à utiliser une seconde analyse) ?



Bon, voilà la solution :
- dans l'analyse, supprimer les références à la bibliothèque dans la
description du fichier ET des clés (infos étendues)
- regénérer l'analyse
- Dans le code, APRES la connexion à l'AS400, utiliser la commande AS pour
ajouter la librairie spécifique pour le fichier décrit sans lib.

SI ASExec("ADDLIBLE "+sLibrairie) ALORS
...

A+

--
Romain PETIT
http://cerbermail.com/?O16kfXOFcq
(cliquez sur le lien ci-dessus pour me contacter en privé)




Avatar
Romain PETIT
André Schütze avait écrit le 14/09/2006 :
si je peux me permettre.... une alternative possible c'est de jouer sur le
profil utilisé et sa LIBLE, notamment pour avoir le même code en test et en
prod... et éviter ainsi le ASExec. De même c'est les fichiers de LIBLE qui
sont proposés par défaut à l'importation et dans ce cas on n'a pas de
références à la bibliothèque dans les descriptions et infos étendues, ce
qui évite de devoir les supprimer, surtout quand les clés sont
nombreuses...



Le problème dans mon cas, c'est qu'il y a utilisation de 2
environnements distincts (2 systèmes) mais avec un user commun, et 1
seul fichier qui se trouve (ne cherchons pas la raison :-) dans des lib
différentes.

En utilisant l'outil d'importation avec ce user, il ne liste pas le
fichier concerné dans *USRLIB (je suis obligé de spécifier la
bibliothèque, qui est donc différente selon la machine...alors que sur
les 2 machines, sur le profil concerné, il y a bien des ADDLIBLE pour
chacune des librairies...

A+

--
Romain PETIT
http://cerbermail.com/?O16kfXOFcq
(cliquez sur le lien ci-dessus pour me contacter en privé)