> Tech > Identifier l’origine d’un programme CL appelé.

Identifier l’origine d’un programme CL appelé.

Tech - Par Renaud ROSSET - Publié le 24 juin 2010

Plus de 99,9 % de mes appels de programmes sont non qualifiés, comptant sur la liste de bibliothèques. Mais, dans quelques rares cas, je veux savoir d'où le programme est appelé.
Supposons, par exemple, que j'ai différents environnements, chacun avec sa propre bibliothèque « données + programmes spéciaux » et

Identifier l’origine d’un programme CL appelé.

certaines
bibliothèques de programmes communes.
La sélection de l’environnement
devrait être faite par le programme
initial de votre profil
utilisateur (sur le paramètre INLPGM
sur l’objet profil utilisateur) ou sur le
paramètre INLGRPPGM de la commande
TFRGRPJOB 5Transfer to
Group Job). Je pourrais écrire un programme
individuel pour chaque environnement,
mais il est plus élégant
d’utiliser des copies identiques du programme
dans chaque bibliothèque
d’environnement puis de laisser le programme
ajouter la bibliothèque d’environnement
d’abord à la liste de bibliothèques.
Mais ensuite, comment savoir
à partir de quelle bibliothèque le
programme est appelé ? Voici une solution :

OVRPRTF    FILE(QPPGMDMP)

           TOFILE(QSYS/QDARCDSP)

/* An OS/400 randomly chosen Display File

  /*

DMPCLPGM

MONMSG     MSGID(CPF0570)

           /*Will always occur*/

RCVMSG     MSGTYPE(*EXCP) RMV(*YES)

           MSGDTA(&MSGDTA)

CHGVAR VAR(&RUNFROMLIB)

       VALUE(%SST(&MSGDTA 11 10))

DLTOVR FILE(QPPGMDMP)

La première ligne effectue un remplacement
dans un fichier écran, qui
garantit que la deuxième ligne
échouera avec CPF0570. Si l’on exécute
la commande DSPMSGD
CPF0570, on verra que la bibliothèque
du programme CL courant fait partie
des données de messages. C’est ce qui
est extrait dans &RUNFROMLIB aux
lignes 9 et 10. La dernière ligne sert
simplement à s’assurer que l’on pourra
effectuer un DMPCLPGM réel ultérieurement.

Jan Jorgensen
Programmeur
Odense, Danemark

Téléchargez cette ressource

Créer des agents dans Microsoft 365 Copilot

Insight vous guide dans l’utilisation de la nouvelle expérience de création d’agents dans Microsoft Copilot Studio, disponible dans Copilot Chat. Découvrez les étapes clés pour concevoir, configurer et déployer ces nouveaux agents et injecter la puissance de l’IA directement dans le flux de travail.

Les articles les plus consultés

A travers cette chaîne

A travers ITPro

Les plus consultés sur iTPro.fr

Articles les + lus

Analyse Patch Tuesday Mars 2026

Confiance et curiosité : les clés pour entrer (et grandir) en tant que femme dans la tech

Portails développeurs internes : accélérer l’innovation sans alourdir les budgets

Pourquoi Shopify Plus s’impose dans la transformation du e-commerce B2B

Quand l’innovation échappe à ses créateurs: Comment éviter l’effet Frankenstein à l’ère de l’IA

A lire aussi sur le site

Stratégie de cyber résilience : la France en avance sur la prise de conscience mais en retard sur les moyens

Le deuxième volet de l’étude mondiale de Zscaler sur la cyber résilience révèle un paradoxe français : les organisations de l’Hexagone ont mieux intégré la nature systémique et externe du risque cyber que la moyenne mondiale, mais leurs investissements et leurs transformations techniques ne suivent pas au même rythme.

À la une de la chaîne Tech

Devenir ingénieur en intelligence artificielle

Cette transformation numérique massive redessine les métiers, les compétences et les parcours de formation. Au cœur de cette révolution se trouve l’ingénieur en intelligence artificielle, un expert capable de concevoir des systèmes informatiques qui imitent certaines capacités humaines comme l’apprentissage ou la prise de décision.