Programmes d'Exit
Un programme d'exit n'est rien de moins qu'un programme d'exécution événementiel.
Depuis quelques versions, IBM fournit des événements sous forme de points d'exit. Pour chaque point d'exit, un format d'exit est précisé permettant de connaître les paramètres transmis par le point d'exit. Il suffit dès lors de créer un programme recevant ces paramètres et de l'associer au point d'exit.

Nous illustrerons notre affirmation par le point d'exit : QIBM_QSY_CHG_PROFILE, évènement associé à la modification d'un profil utilisateur.
Ce point d'exit est associé au format d'exit CHGP0100 :

Nom du progr d'exit (20 car.)
Nom du format (8 car.)
Nom du profil (10 car.)

Nous allons créer un programme permettant d'envoyer un message à l'opérateur système pour le prévenir de la modification d'un profil utilisateur.
En réception, une zone de 20+8+10 = 38 caractères, que nous découpons dans une Data Structure :

Ensuite, nous associons le programme recevant le paramètre avec le point d'exit :
WRKREGINF : Gestion des points d'exit et des programmes associés

Le point d'exit et le programme sont liés.

JMS

 
 
[ Retour ]