Discussion :

[RoKeN]

Bonjour,

Suite à l'évolution d'un logiciel, je souhaiterais dé-cataloguer puis re-cataloguer des procédures AS400.

Or, lorsque je fais

Code :

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

DROP PROCEDURE MA_LIB/MA_PROCEDURE

j'obtiens l'erreur :

Code :

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

MA_LIB de type *LIB dans *N non trouvé.

Pourtant, cette procédure est bien cataloguée car :
1. elle est renseignée dans QSYS2/SYSPROCS (logique de QSYS2/SYSROUTINE)
2. si je fais le CREATE PROCEDURE correspondant, j'obtiens

Code :

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

Le programme MA_PROCEDURE de MA_LIB existe déjà.

MA_LIB est une bib logique ; j'ai tout de même essayé de créer la bib physique MA_LIB et m'y copier MA_PROCEDURE, puis de dé-cataloguer, mais ça ne change rien...

Quelqu'un peut-il m'aider à diagnostiquer ce problème ? Merci d'avance !!

RoKeN

[Mercure]

MA_LIB est une bib logique

Qu'est-ce qu'une bib logique ?

[RoKeN]

Bonjour,

Merci pour ta question.

C'est une bib qui n'existe pas physiquement sur l'OS (on ne trouve rien avec la commande WRKLIB), et qui, dans mon cas, est utilisée pour pouvoir pointer sur la JOBD de l'utilisateur et non sur une bib précise (ainsi, selon le profil de l'utilisateur, un environnement différent pourra être utilisé).

Plus précisément dans ce cas, je catalogue avec la bib MA_BIB (SPECIFIC_SCHEMA = MA_BIB), et pour le programme MA_PROCEDURE, il pointe (EXTERNAL_NAME) sur *LIBL/MA_PROCEDURE (et donc varie selon la JOBD de l'utilisateur).

SPECIFIC_SCHEMA et EXTERNAL_NAME son des champs du fichier QSYS2/SYSROUTINE qui recense les procédures cataloguées.

[RoKeN]

Je viens de réessayer en indiquant une autre bib (qui n'était pas déjà recensée dans QSYS2/SYSROUTINE).

En création (catalogage), j'ai l'erreur

Code :

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

Contrôle de validation déjà actif

alors que mon programme est compilé en *NONE...

Une interrogation de plus...

[Mercure]

Comment peux-tu utiliser une JOBD qui se trouve dans une bibliothèque qui n'existe pas ? ça m'échappe...

Il n'existe pas de bibliothèque logique ni de bibliothèque physique sur l'AS400 ou alors ça vient de sortir ? Il existe en revanche des FICHIERS logiques et des FICHIERS physiques.

Pour pouvoir créer un objet quelconque sur ce système -- et c'est le cas des procédures -- il faut que la bibliothèque existe avant tout. Une fois créée, on met les objets qu'on veut dedans par l'intermédiaire de diverses commandes, sinon tu ne pourras rien faire sur cette machine...

[RoKeN]

Bonjour,

Merci pour cette réponse.
Ayant dès mes débuts sur AS400 entendu parlé de bib logique, je pensais que c'était une notion qui existait...

En fait, une bib logique n'est pas une bib, juste un alias qui permet de se placer dans un environnement selon le profil de l'utilisateur. Je m'explique.

Via la requête SQL CREATE PROCEDURE ... qui met à jour le fichier QSYS2/SYSROUTINE :
- Je catalogue MA_PROCEDURE avec un SPECIFIC_SCHEMA égal à MA_BIB (logique, en fait c'est un nom quelconque) et qui pointe sur EXTERNAL_NAME=*LIBL/MA_PROCEDURE (donc MA_PROCEDURE doit se trouver dans l'une des bibs de mon profil).
- Dans le logiciel (Windows) qui fait appel à cette procédure cataloguée, je lui dis d'utiliser MA_BIB/MA_PROCEDURE.
- Et donc le catalogage permet d'utiliser réellement *LIBL/MA_PROCEDURE, c'est-à-dire la procédure cataloguée de mon profil. Si je me connecte avec un autre profil, j'utiliserai MA_PROCEDURE d'un autre environnement.

Typiquement, j'ai un profil de développement, un profil de recette et un profil de production... pour un seul et même paramétrage du logiciel Windows, la seule différence étant mon login (= profil AS400).

En espérant que ça soit plus clair...

[Mercure]

Quelle est la current library (CURLIB) ?

Pour le savoir, tapes sur un écran vert et sous ton profil :

Code :

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

DSPLIBL

puis regardes celle qui a le type "CUR" (current).

Si tu ne la trouves pas, QGPL est la CURLIB.

Tes procédures doivent se trouver dans la curlib. Fais alors :

Code :

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

DROP PROCEDURE <Nom curlib>/MA_PROCEDURE