/*           CRTCMD     CMD(mylib/SNDDTAQE) +                      */
/*                      PGM(QSYS/QSNDDTAQ) +                       */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(SNDDTAQE)                           */

             CMD        PROMPT('Send Dtaq Entry')
             PARM       KWD(SNDQ) +
                        TYPE(*NAME) +
                        LEN(10) +
                        MIN(1) +
                        PROMPT('DtaQ to send to')
             PARM       KWD(SNDQLIB) +
                        TYPE(*NAME) +
                        LEN(10) +
                        DFT(*LIBL) +
                        SPCVAL( +
                          (*LIBL ) +
                          (*CURLIB )) +
                        PROMPT('DtaQ library')
             PARM       KWD(SNDQFLDLEN) +
                        TYPE(*DEC) +
                        LEN(5 0) +
                        PROMPT('Entry length')
             PARM       KWD(SNDQFLD) +
                        TYPE(*CHAR) +
                        LEN(5000) +
                        EXPR(*YES) +
                        PROMPT('Entry variable')