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)

Jan Jorgensen
Programmeur
Odense, Danemark