Interrompre un traitement jusqu’à  réponse utilisateur

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.
Print Friendly, PDF & Email