Exemple dans un programme de type CLP
PGM
DCL VAR(&RESP) TYPE(*CHAR) LEN(1)
SNDUSRMSG MSG('TEST MESSAGE SNDUSRMSG') VALUES(A B) +
TOMSGQ(*SYSOPR) MSGRPY(&RESP)
ENDPGM
Comportement
- En arrivant sur le SNDUSRMSG, le programme va s’interrompre jusqu’à ce qu’une réponse A ou B soit entrée pour le message généré dans la file d’attente des messages SYSOPR.
- La commande WRKMSG QSYSOPR permet d’afficher les messages de la file d’attente.
- Une fois la réponse entrée, le programme reprend la suite de son traitement.