Pgm chargé de traiter les messages sur MSGQ CMD

BoTTom | 
             PGM        PARM(&MSGQ &LIB &CLE)
             DCL &MSGQ *CHAR 10
             DCL &LIB *CHAR 10
             DCL &CLE *CHAR 4
             DCL &CMD *CHAR 80
              MONMSG CPF0000
             RCVMSG     MSGQ(&LIB/&MSGQ) MSGKEY(&CLE) MSG(&CMD)
             IF (&CMD = '*') THEN(CALL QCMD)
             ELSE CALL QCMDEXC PARM(&CMD 80)
             ENDPGM




©AF400