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

             CMD        PROMPT('Edit a variable')
             PARM       KWD(RCVVAR) +
                        TYPE(*CHAR) +
                        LEN(512) +
                        RTNVAL(*YES) +
                        MIN(1) +
                        CHOICE('*char 512') +
                        PROMPT('Receiver variable')
             PARM       KWD(RCVVARLEN) +
                        TYPE(*INT4) +
                        MIN(1) +
                        EXPR(*YES) +
                        PROMPT('Receiver variable length')
             PARM       KWD(SRCVAR) +
                        TYPE(*CHAR) +
                        LEN(256) +
                        MIN(1) +
                        CHOICE('*char 256') +
                        PROMPT('Source variable')
             PARM       KWD(SRCVARCLS) +
                        TYPE(*CHAR) +
                        LEN(10) +
                        RSTD(*YES) +
                        DFT(*ZONED) +
                        VALUES( +
                          '*ZONED' +
                          '*PACKED' +
                          '*BINARY')
                        PROMPT('Source variable class')
             PARM       KWD(SRCPRE) +
                        TYPE(*INT4) +
                        RANGE( +
                          1 +
                          31) +
                        PROMPT('Source precision')
             PARM       KWD(EDTMSK) +
                        TYPE(*CHAR) +
                        LEN(256) +
                        CHOICE('*char 256') +
                        PROMPT('Edit mask')
             PARM       KWD(EDTMSKLEN) +
                        TYPE(*INT4) +
                        RANGE( +
                          1 +
                          256) +
                        EXPR(*YES) +
                        PROMPT('Edit mask length')
             PARM       KWD(ZERBALFIL) +
                        TYPE(*CHAR) +
                        LEN(1) +
                        DFT(X'00') +
                        SPCVAL( +
                          (*BLANK ' ') +
                          (*ASTERISK '*')) +
                        PROMPT('Zero-balance fill character')
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)