/*           CRTCMD     CMD(mylib/CLRDTAQ) +                       */
/*                      PGM(QSYS/QCLRDTAQ) +                       */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(CLRDTAQ)                            */

             CMD        PROMPT('Clear Dtaq')
             PARM       KWD(CLRQ) +
                        TYPE(*NAME) +
                        LEN(10) +
                        MIN(1) +
                        PROMPT('DtaQ to clear')
             PARM       KWD(CLRQLIB) +
                        TYPE(*NAME) +
                        LEN(10) +
                        DFT(*LIBL) +
                        SPCVAL( +
                          (*LIBL ) +
                          (*CURLIB )) +
                        PROMPT('DtaQ library')