/*           CRTCMD     CMD(mylib/RTNDTAQD) +                      */
/*                      PGM(*LIBL/RTNDTAQD) +                      */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(RTNDTAQD) +                         */
/*                      ALLOW( +                                   */
/*                        *IREXX +                                 */
/*                        *BREXX +                                 */
/*                        *BPGM +                                  */
/*                        *IPGM)                                   */

             CMD        PROMPT('Return *dtaq description')
             PARM       KWD(DTAQ) +
                        TYPE(Q00AB) +
                        MIN(1) +
                        CHOICE(*NONE) +
                        PROMPT('Dtaq name')
Q00AB:       QUAL       TYPE(*NAME) +
                        LEN(10) +
                        MIN(1)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*LIBL) +
                        SPCVAL( +
                          (*CURLIB ) +
                          (*LIBL )) +
                        PROMPT('Library')
             PARM       KWD(MAXLEN) +
                        TYPE(*DEC) +
                        LEN(5 0) +
                        RTNVAL(*YES) +
                        PROMPT('Maximum entry length')
             PARM       KWD(FORCE) +
                        TYPE(*CHAR) +
                        LEN(4) +
                        RTNVAL(*YES) +
                        PROMPT('Force indicator')
             PARM       KWD(SEQ) +
                        TYPE(*CHAR) +
                        LEN(6) +
                        RTNVAL(*YES) +
                        PROMPT('Sequence')
             PARM       KWD(KEYLEN) +
                        TYPE(*DEC) +
                        LEN(3 0) +
                        RTNVAL(*YES) +
                        PROMPT('Key length')
             PARM       KWD(SENDERID) +
                        TYPE(*CHAR) +
                        LEN(4) +
                        RTNVAL(*YES) +
                        PROMPT('Sender ID')
             PARM       KWD(TEXT) +
                        TYPE(*CHAR) +
                        LEN(50) +
                        RTNVAL(*YES) +
                        PROMPT('Text')
             PARM       KWD(NBRMSG) +
                        TYPE(*DEC) +
                        LEN(9 0) +
                        RTNVAL(*YES) +
                        PROMPT('Number of messages queued')
             PARM       KWD(MAXMSG) +
                        TYPE(*DEC) +
                        LEN(9 0) +
                        RTNVAL(*YES) +
                        PROMPT('Maximum messages on queue')