/*           CRTCMD     CMD(mylib/CVTEDTWRD) +                     */
/*                      PGM(QSYS/QECCVTEW) +                       */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(CVTEDTWRD) +                        */
/*                      TEXT('QECCVTEW') +                         */
/*                      ALLOW( +                                   */
/*                        *IREXX +                                 */
/*                        *BREXX +                                 */
/*                        *BPGM +                                  */
/*                        *IPGM)                                   */

             CMD        PROMPT('Convert edit word')
             PARM       KWD(EDTMSK) +
                        TYPE(*CHAR) +
                        LEN(256) +
                        RTNVAL(*YES) +
                        MIN(1) +
                        CHOICE('*char 256') +
                        PROMPT('Edit mask')
             PARM       KWD(EDTMSKLEN) +
                        TYPE(*CHAR) +
                        LEN(4) +
                        RTNVAL(*YES) +
                        MIN(1) +
                        CHOICE('*char 4') +
                        PROMPT('Edit mask length')
             PARM       KWD(RCVVARLEN) +
                        TYPE(*CHAR) +
                        LEN(4) +
                        RTNVAL(*YES) +
                        MIN(1) +
                        CHOICE('*char 4') +
                        PROMPT('Receiver variable length')
             PARM       KWD(EDTWRD) +
                        TYPE(*CHAR) +
                        LEN(256) +
                        MIN(1) +
                        CHOICE('Valid edit word (*char 256)') +
                        PROMPT('Edit word')
             PARM       KWD(EDTWRDLEN) +
                        TYPE(*INT4) +
                        RANGE( +
                          1 +
                          256) +
                        MIN(1) +
                        CHOICE('*dec (3 0)') +
                        PROMPT('Edit word length')
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)