/*           CRTCMD     CMD(mylib/RCVDTAQKES) +                    */
/*                      PGM(QSYS/QRCVDTAQ) +                       */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(RCVDTAQKES) +                       */
/*                      ALLOW( +                                   */
/*                        *IREXX +                                 */
/*                        *BREXX +                                 */
/*                        *BPGM +                                  */
/*                        *IPGM)                                   */

             CMD        PROMPT('Receive Dtaq Keyed Entry')
             PARM       KWD(RCVQ) +
                        TYPE(*NAME) +
                        LEN(10) +
                        MIN(1) +
                        PROMPT('DtaQ to receive from')
             PARM       KWD(RCVQLIB) +
                        TYPE(*NAME) +
                        LEN(10) +
                        DFT(*LIBL) +
                        SPCVAL( +
                          (*LIBL ) +
                          (*CURLIB )) +
                        PROMPT('DtaQ library')
             PARM       KWD(RCVQFLDLEN) +
                        TYPE(*DEC) +
                        LEN(5 0) +
                        RTNVAL(*YES) +
                        PROMPT('Entry length')
             PARM       KWD(RCVQFLD) +
                        TYPE(*CHAR) +
                        LEN(256) +
                        RTNVAL(*YES) +
                        CHOICE('*char(256)') +
                        PROMPT('Entry return variable')
             PARM       KWD(RCVQWAIT) +
                        TYPE(*DEC) +
                        LEN(5 0) +
                        DFT(*NOWAIT) +
                        SPCVAL( +
                          (*NOMAX -1) +
                          (*NOWAIT 0)) +
                        CHOICE('Seconds (negative=no limit)') +
                        PROMPT('Seconds to wait')
             PARM       KWD(ORDER) +
                        TYPE(*CHAR) +
                        LEN(2) +
                        RSTD(*YES) +
                        DFT(EQ) +
                        VALUES( +
                          'GT' +
                          'LT' +
                          'NE' +
                          'EQ' +
                          'GE' +
                          'LE')
                        PROMPT('Key retrieval order')
             PARM       KWD(KEYLEN) +
                        TYPE(*DEC) +
                        LEN(3 0) +
                        DFT(0) +
                        PROMPT('Key value length')
             PARM       KWD(KEY) +
                        TYPE(*CHAR) +
                        LEN(32) +
                        RTNVAL(*YES) +
                        CHOICE('*char(32)') +
                        PROMPT('Key value')
             PARM       KWD(SNDRLEN) +
                        TYPE(*DEC) +
                        LEN(3 0) +
                        RSTD(*YES) +
                        DFT(*NO) +
                        SPCVAL( +
                          (*NO ) +
                          (*YES 44)) +
                        PROMPT('Include sender ID')
             PARM       KWD(SNDR) +
                        TYPE(*CHAR) +
                        LEN(44) +
                        RTNVAL(*YES) +
                        CHOICE('*char(44) or null') +
                        PROMPT('Sender ID')