/*           CRTCMD     CMD(mylib/SNDBRKMSGA) +                    */
/*                      PGM(QSYS/QEZSNDMG) +                       */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(SNDBRKMSGA) +                       */
/*                      TEXT('QZLSENDS Send break message (ass+    */
/*                      isted)')                                   */

             CMD        PROMPT('Send break message (assisted)')
             PARM       KWD(MSGTYP) +
                        TYPE(*CHAR) +
                        LEN(10) +
                        RSTD(*YES) +
                        DFT(*INFO) +
                        VALUES( +
                          '*INQ' +
                          '*INFO') +
                        PROMPT('Message type')
             PARM       KWD(DLVRY) +
                        TYPE(*CHAR) +
                        LEN(10) +
                        RSTD(*YES) +
                        DFT(*BREAK) +
                        VALUES( +
                          '*BREAK' +
                          '*NORMAL') +
                        PROMPT('Delivery mode')
             PARM       KWD(MSG) +
                        TYPE(*CHAR) +
                        LEN(494) +
                        EXPR(*YES) +
                        PROMPT('Message text')
             PARM       KWD(MSGLEN) +
                        TYPE(*INT4) +
                        DFT(*MAX) +
                        SPCVAL( +
                          (*MAX 494) +
                          (*MIN 0)) +
                        EXPR(*YES) +
                        PROMPT('Message text length')
             PARM       KWD(RCP) +
                        TYPE(*CHAR) +
                        LEN(1000) +
                        EXPR(*YES) +
                        PROMPT('Recipients')
             PARM       KWD(NBRRCP) +
                        TYPE(*INT4) +
                        EXPR(*YES) +
                        PROMPT('Number of recipients')
             PARM       KWD(MSGSNT) +
                        TYPE(*CHAR) +
                        LEN(4) +
                        CONSTANT(X'00000000')
             PARM       KWD(FUNC) +
                        TYPE(*CHAR) +
                        LEN(4) +
                        CONSTANT(X'00000000')
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)
             PARM       KWD(SHOSNDDSP) +
                        TYPE(*CHAR) +
                        LEN(1) +
                        RSTD(*YES) +
                        DFT(*NO) +
                        SPCVAL( +
                          (*YES Y) +
                          (*NO N)) +
                        EXPR(*YES) +
                        PROMPT('Show "Send a message" display')
             PARM       KWD(RPYMSGQ) +
                        TYPE(Q02FD) +
                        CHOICE(*NONE) +
                        PROMPT('Qualified reply *msgq name')
Q02FD:       QUAL       TYPE(*NAME) +
                        LEN(10)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        SPCVAL( +
                          (*CURLIB ) +
                          (*LIBL )) +
                        PROMPT('*msgq library')
             PARM       KWD(NAMTYP) +
                        TYPE(*CHAR) +
                        LEN(4) +
                        RSTD(*YES) +
                        DFT(*USR) +
                        VALUES( +
                          '*USR' +
                          '*DSP') +
                        EXPR(*YES) +
                        PROMPT('Name type')