PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

|
|
|
FR
Inicio → WINDEV 2024 → Accès natif AS400
Accès natif AS400
Iniciado por guest, jul., 28 2005 11:13 PM - 3 respostas
#1
Publicado em julho, 28 2005 - 11:13 PM
Bonjour,

Les noms des bibliothèques de mon AS400 sont amenées à changer régulièrement
au fil des évolutions de la GPAO. D'où ma question : Comment faire pour
changer par programmation la bibliothèque d'un fichier AS400 ?

J'ai essayé hchangenom(nomdufichier,nomdufichierphysique) mais sans
résultats. Si ce n'est un comportement plutôt étrange :

- en spécifiant un nom de biblio valide du style D800/OF210 en lieu et place
de la biblio décrite dans l'analyse => nada, le fichier parcouru est toujour
celui de la biblio D799.
- en spécifiant un nom de biblio bidon du style TOTO/OF210 : là j'obtiens
l'erreur du style impossible de trouver le fichier OF210 dans la LIB TOTO (normal me direz-vous).


En utilisant la fonction ASExec("OVRDBF FILE(OF210) TOFILE(D800/OF210)
OVRSCOPE(*JOB)"), c'est pas mieux.

Si quelqu'un a une solution je suis preneur.

Cordialement
J. Martins
#2
Publicado em julho, 29 2005 - 11:14 AM
Salut,

Je suppose que tu utilises EASYCOM!
Il faut que tu aille dans ton analyse.
Au niveau de chaque fichier il faut enlever les références de la
bibliothèque initiale.
Par exemple: BIBLIO1/CLIENT
Rubriques de fichier:
Les logiques ou clés=>Infos étendues mettre:
<EASYCOM>LF=*LIBL/CLIENT</EASYCOM>
Description de fichier=>Infos étendues
mettre:<EASYCOM>MAIN=*LIBL/CLIENT</EASYCOM>

De cette manière il prendra en compte les fichiers en fonction de la
liste des bibliothèques en cours.

N'oublie pas de faire avant un ADDLIBLE(BIBLIO1)

A+








Bonjour,

Les noms des bibliothèques de mon AS400 sont amenées à changer régulièrement
au fil des évolutions de la GPAO. D'où ma question : Comment faire pour
changer par programmation la bibliothèque d'un fichier AS400 ?

J'ai essayé hchangenom(nomdufichier,nomdufichierphysique) mais sans
résultats. Si ce n'est un comportement plutôt étrange :

- en spécifiant un nom de biblio valide du style D800/OF210 en lieu et place
de la biblio décrite dans l'analyse => nada, le fichier parcouru est toujour
celui de la biblio D799.
- en spécifiant un nom de biblio bidon du style TOTO/OF210 : là j'obtiens
l'erreur du style impossible de trouver le fichier OF210 dans la LIB TOTO
(normal me direz-vous).


En utilisant la fonction ASExec("OVRDBF FILE(OF210) TOFILE(D800/OF210)
OVRSCOPE(*JOB)"), c'est pas mieux.

Si quelqu'un a une solution je suis preneur.

Cordialement
J. Martins



--
Bon développement à tous
Christian

cciochir@ _ at _ cmii.fr
#3
Publicado em julho, 29 2005 - 1:14 PM
Merci christian

çà fonctionne, mais que c'est laborieux de changer les infos étendues pour chaque clé !

A+
Bonnes vacances à tous
#4
Publicado em julho, 30 2005 - 12:32 AM
Nous faisons cela régulièrement sans toucher aux infos étendues des fichiers de l'analyse.
Après la connexion au 400, nous faisons seulement un

ASExec("ADDLIBLE BIBLI01")

Comme ça la bibliothèque BIBLI01 est ajoutée en tête des librairies utilisées par la session Easycom sur le AS400. Tout accès à un fichier vérifiera d'abord si le fichier existe dans cette librairie et l'utilisera s'il le trouve.

Christian Potvin
Beaulieu Canada

Merci christian

çà fonctionne, mais que c'est laborieux de changer les infos étendues pour chaque clé !

A+
Bonnes vacances à tous
→ Voltar para WINDEV 2024