/*--+------------------------------------------------------------+--*/
/*--+   COMMAND ID : MONMSGQ                                     +--*/
/*--+ COMMAND NAME : MONITOR MESSAGE QUEUE.                      +--*/
/*--+------------------------------------------------------------+--*/
/*--+      VERSION : 1.1 (1999/11/08) ADDED DEPENDENT DEFINITION +--*/
/*--+                1.0 (1999/10/12)                            +--*/
/*--+------------------------------------------------------------+--*/
             CMD        PROMPT('MONITOR MESSAGE QUEUE')

             PARM       KWD(MSGQ) TYPE(GETMSGQ) MIN(1) +
                          PROMPT('MESSAGE QUEUE')

             PARM       KWD(MSGID) TYPE(*CHAR) LEN(7) MIN(1) +
                          FULL(*YES) EXPR(*YES) PROMPT('MESSAGE ID')

             PARM       KWD(ACTION) TYPE(*CHAR) LEN(5) RSTD(*YES) +
                          VALUES(*CMD *RPY *BOTH) MIN(1) EXPR(*YES) +
                          PROMPT(ACTION)

             PARM       KWD(RPY) TYPE(*CHAR) LEN(132) SPCVAL((*DFT)) +
                          EXPR(*YES) PMTCTL(IFRPY) PROMPT(REPLY)

             PARM       KWD(CMD) TYPE(*CMDSTR) LEN(3000) +
                          PMTCTL(IFPGM) PROMPT('COMMAND TO RUN(IN +
                          SBMJOB)')

             PARM       KWD(CONTINUE) TYPE(*CHAR) LEN(4) RSTD(*YES) +
                          DFT(*YES) VALUES(*YES *NO) EXPR(*YES) +
                          PROMPT('IF FOUND, THEN CONTINUE ?')
             PARM       KWD(WAIT) TYPE(*CHAR) LEN(6) DFT(30) RANGE(0 +
                          999999) EXPR(*YES) CHOICE(SECONDS) +
                          PMTCTL(*PMTRQS) PROMPT('WAIT TIME')


 GETMSGQ:    QUAL       TYPE(*NAME) LEN(10) EXPR(*YES)
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +
                          SPCVAL((*LIBL) (*CURLIB)) EXPR(*YES) +
                          PROMPT(LIBRARY)


 IFRPY:      PMTCTL     CTL(ACTION) COND((*EQ *RPY))
             PMTCTL     CTL(ACTION) COND((*EQ *BOTH)) LGLREL(*OR)

 IFPGM:      PMTCTL     CTL(ACTION) COND((*EQ *CMD))
             PMTCTL     CTL(ACTION) COND((*EQ *BOTH)) LGLREL(*OR)

/* DEPENDENT DEFINITION */
             DEP        CTL(&ACTION *EQ *RPY) PARM((RPY))
             DEP        CTL(&ACTION *EQ *CMD) PARM((CMD))
             DEP        CTL(&ACTION *EQ *BOTH) PARM((RPY) (CMD))