/*           CRTCMD     CMD(mylib/CLRUSRIDX) +                     */
/*                      PGM(QSYS/QUSRMVUI) +                       */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(CLRUSRIDX) +                        */
/*                      TEXT('QUSRMVUI')                           */

             CMD        PROMPT('Clear a user index')
             PARM       KWD(NBRENTRMV) +
                        TYPE(*INT4) +
                        CONSTANT(0) +
                        MIN(1)
             PARM       KWD(ENTRMV) +
                        TYPE(*CHAR) +
                        LEN(8) +
                        CONSTANT(X'0000000000000000') +
                        MIN(1)
             PARM       KWD(ENTRMVLEN) +
                        TYPE(*INT4) +
                        CONSTANT(0) +
                        MIN(1)
             PARM       KWD(ENTLENOFFS) +
                        TYPE(*CHAR) +
                        LEN(8) +
                        CONSTANT(X'0000000000000000') +
                        MIN(1)
             PARM       KWD(ELOLEN) +
                        TYPE(*INT4) +
                        CONSTANT(0) +
                        MIN(1)
             PARM       KWD(USRIDXLIBR) +
                        TYPE(*CHAR) +
                        LEN(10) +
                        CONSTANT(*NONE) +
                        MIN(1)
             PARM       KWD(USRIDX) +
                        TYPE(Q01FB) +
                        MIN(1) +
                        CHOICE(*NONE) +
                        PROMPT('User index name')
Q01FB:       QUAL       TYPE(*NAME) +
                        LEN(10) +
                        MIN(1)
             QUAL       TYPE(*NAME) +
                        LEN(10) +
                        DFT(*LIBL) +
                        SPCVAL( +
                          (*CURLIB ) +
                          (*LIBL )) +
                        PROMPT('Index library')
             PARM       KWD(FORMAT) +
                        TYPE(*CHAR) +
                        LEN(8) +
                        CONSTANT(IDXE0100)
             PARM       KWD(MAXENT) +
                        TYPE(*INT4) +
                        CONSTANT(4095)
             PARM       KWD(RMVTYPE) +
                        TYPE(*INT4) +
                        CONSTANT(4)
             PARM       KWD(RMVCRIT) +
                        TYPE(*CHAR) +
                        LEN(1) +
                        CONSTANT(X'F0F0')
             PARM       KWD(RMVCRITLEN) +
                        TYPE(*INT4) +
                        CONSTANT(1)
             PARM       KWD(RMVCTAOFFS) +
                        TYPE(*INT4) +
                        CONSTANT(1)
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)