AS400 : Déqualification de bibliothèque [Résolu]

[Arrnno]

Bonjour,
Un projet consiste à retirer de l'environnement AS400 une bibliothèque : retrait des JOBD, des appels dans les programmes, des zones de PF qui pourraient contenir le nom de la bib (pour du paramètrage), etc...
Je souhaite identifier d'abord les divers objets commandes qui pourraient contenir un nom de bib : JOBD, PF, DSPF, PRTF, DTAARA, USRPRF, MSGF, MEMBRES de SRCPF...
Est-ce que d'autres éléments vous viennent à l'esprit ?
Ensuite vient la tâche de réaliser une automatisation de recherche de ce nom de bib dans ces divers objets ou membres... et Enfin, pour chaque cas identifié, de déterminer quoi faire : par exemple, pour remplacer cette bib par une autre (dans une JOBD) ou de retirer cette bib d'un appel de programme dans un membre-source (et déplacer le pgm dans la nouvelle bib et associer une JOBD à son appel...)
Merci pour vos réponses, Arnaud

[rcordonnier]

Bonjour,

pour ta recherche je ne vois en methode rapide et simple que le wrkobjpdm
option 25 plus F13 et entrée

la il faut donner un élément de recherche (eventuellment par un cl ......)

tu aura une grosse partie des objets que tu recherche
attention tous les objets n'accepte pas ce type de recherche ex: les qry, les journaux, les msgd, les savf j'oublie peut etre un ou deux ..

bon courage

[adermex]

Bonjour,

Malheureusement, FNDSTRPDM ne trouvera pas grand chose, les sources de programmes et les DTAARAs...

Pour les JOBDs, les USRPRFs, les SBSDs, etc... cela demande un peu de code CL & RPG pour extraire les infos...

La meilleure solution est un peu de code API...pour les connaisseurs...

[K2R400]

Tu peux auditer un objet, donc ta bib, ainsi tu verras tout ce qui peut toucher à cette biblithèque dans le journal d'audit

[Arrnno]

Bonjour et merci pour vos réponses,

L'audit d'objet, journal d'audit, intéressant... si vous avez des infos pratiques sur la question n'hésitez pas messieurs. Je vois sur la toile ce qu'on peux y trouver !

[K2R400]

Tu crées un receveur : CRTJRNRCV.
Tu créés le journal d'audit : CRJRN QSYS/QAUDJRN
Tu modifies la valeur système QAUDCTL avec au moins *OBJAUD
Tu modifies éventuellement la valeur système QAUDLVL (mais pas necessaire dans ton cas).
Tu fais un CHGOBJAUD OBJ(MABIB) OBJTYPE(*LIB) OBJAUD(*ALL)

Il n'y a plus qu'à scruter le journal d'audit avec un DSPJRN ou extraire les postes ZR (Accès objet en lecture) avec CPYAUDJRNE (V5R4)