Polling MSGQ CL program

["Condon, Mike" <M1C@xxxxxxxxxxxxxxxxx>]

A couple of you mentioned you were interested:

             PGM
             DCL        VAR(&MSGID) TYPE(*CHAR) LEN(7)
             DCL        VAR(&RTNTYPE) TYPE(*CHAR) LEN(2)
             DCL        VAR(&KEYVAR) TYPE(*CHAR) LEN(4)
             DCL        VAR(&MSGIN) TYPE(*CHAR) LEN(132)
             CHGMSGQ    MSGQ(QSYS/QSYSOPR) RESET(*YES)
 BEGIN:      RCVMSG     MSGQ(QSYS/QSYSOPR) MSGTYPE(*INQ) +
                          MSGKEY(*NONE) WAIT(0) RMV(*NO) +
                          MSG(&MSGIN) MSGID(&MSGID) RTNTYPE(&RTNTYPE)
             MONMSG     MSGID(CPF2451) EXEC(GOTO CMDLBL(M2451))
             MONMSG     MSGID(CPF2410) EXEC(GOTO CMDLBL(DONE))
             GOTO       CMDLBL(MSG)
 AGAIN:      CHGMSGQ    MSGQ(QSYS/QSYSOPR) RESET(*NO)
             MONMSG     MSGID(CPF2451) EXEC(GOTO CMDLBL(M2451))
             MONMSG     MSGID(CPF2410) EXEC(GOTO CMDLBL(DONE))
             RCVMSG     MSGQ(QSYS/QSYSOPR) MSGTYPE(*INQ) +
                          WAIT(0) RMV(*NO) +
                          MSG(&MSGIN) MSGID(&MSGID) RTNTYPE(&RTNTYPE)
             MONMSG     MSGID(CPF2451) EXEC(GOTO CMDLBL(DONE))
             MONMSG     MSGID(CPF2410) EXEC(GOTO CMDLBL(DONE))
 MSG:        IF         COND(&RTNTYPE = '05') THEN(DO)
             SNDDST     TYPE(*LMSG) +
                          TOINTNET(('m1c@xxxxxxxxxxxxxxxxx') +
                          ('8159859069@xxxxxxxxx') +
                          ('jkj@xxxxxxxxxxxxxxxxx') +
                          ('rjg@xxxxxxxxxxxxxxxxx') +
                          ('m2r@xxxxxxxxxxxxxxxxx') +
                          ('smb@xxxxxxxxxxxxxxxxx' *CC)) +
                          DSTD('Message Requiring Reply on +
                          Qsysopr') LONGMSG(&MSGIN)
             GOTO       CMDLBL(DONE)
             ENDDO
             GOTO       CMDLBL(DONE)
 M2451:      SNDDST     TYPE(*LMSG) +
                          TOINTNET(('M1C@xxxxxxxxxxxxxxxxx') +
                          ('8159859069@xxxxxxxxx') +
                          ('jkj@xxxxxxxxxxxxxxxxx') +
                          ('M2r@xxxxxxxxxxxxxxxxx') +
                          ('rjg@xxxxxxxxxxxxxxxxx') +
                          ('smb@xxxxxxxxxxxxxxxxx' *CC)) +
                          DSTD('CPI2451 - MSGQ LOCKED') +
                          LONGMSG('CPI2451 - QSYSOPR MSGQ LOCKED.')
             DLYJOB     DLY(120)
             GOTO       CMDLBL(AGAIN)
 DONE:       DLYJOB     DLY(120)
             GOTO       CMDLBL(AGAIN)
             ENDPGM