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

             CMD        PROMPT('Convert edit code')
             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(ZERBALFIL) +
                        TYPE(*CHAR) +
                        LEN(1) +
                        RTNVAL(*YES) +
                        MIN(1) +
                        CHOICE('*char 1') +
                        PROMPT('Zero-balance fill character')
             PARM       KWD(EDTCDE) +
                        TYPE(*CHAR) +
                        LEN(1) +
                        RSTD(*YES) +
                        VALUES( +
                          'A' +
                          'B' +
                          'C' +
                          'D' +
                          'J' +
                          'K' +
                          'L' +
                          'M' +
                          'N' +
                          'O' +
                          'P' +
                          'Q' +
                          'Y' +
                          'Z' +
                          '1' +
                          '2' +
                          '3' +
                          '4' +
                          '5' +
                          '6' +
                          '7' +
                          '8' +
                          '9')
                        MIN(1) +
                        CHOICE('Valid edit code') +
                        PROMPT('Edit code')
             PARM       KWD(FLTCURSYM) +
                        TYPE(*CHAR) +
                        LEN(1) +
                        DFT(*BLANK) +
                        SPCVAL( +
                          (*BLANK ' ') +
                          (*ASTERISK '*')) +
                        PROMPT('Fill/float currency symbol')
             PARM       KWD(SRCPRE) +
                        TYPE(*INT4) +
                        RANGE( +
                          1 +
                          31) +
                        PROMPT('Source precision')
             PARM       KWD(SRCDECPOS) +
                        TYPE(*INT4) +
                        DFT(*ZERO) +
                        SPCVAL( +
                          (*ZERO 0)) +
                        PROMPT('Source decimal positions')
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)
             DEP        CTL(*ALWAYS) +
                        PARM( +
                          (&SRCDECPOS *LE &SRCPRE)) +
                        MSGID(CPD0146)