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

             CMD        PROMPT('Retrieve User Index Entry')
             PARM       KWD(ENTRTV) +
                        TYPE(*CHAR) +
                        LEN(1008) +
                        RTNVAL(*YES) +
                        MIN(1) +
                        PROMPT('Entry retrieved')
             PARM       KWD(ENTRTVLEN) +
                        TYPE(*INT4) +
                        CONSTANT(1008) +
                        MIN(1)
             PARM       KWD(ENTLENOFFS) +
                        TYPE(*CHAR) +
                        LEN(1008) +
                        RTNVAL(*YES) +
                        MIN(1) +
                        PROMPT('Entry lengths and offsets')
             PARM       KWD(ELOLEN) +
                        TYPE(*INT4) +
                        CONSTANT(1008) +
                        MIN(1)
             PARM       KWD(NBRENTRTV) +
                        TYPE(*CHAR) +
                        LEN(4) +
                        RTNVAL(*YES) +
                        MIN(1) +
                        PROMPT('Number of entries retrieved')
             PARM       KWD(USRIDXLIBR) +
                        TYPE(*CHAR) +
                        LEN(10) +
                        CONSTANT(*NONE) +
                        MIN(1)
             PARM       KWD(USRIDX) +
                        TYPE(Q01E9) +
                        MIN(1) +
                        CHOICE(*NONE) +
                        PROMPT('User index name')
Q01E9:       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) +
                        DFT(*MIN) +
                        RANGE( +
                          1 +
                          4095) +
                        SPCVAL( +
                          (*MAX 4095) +
                          (*MIN 1)) +
                        PROMPT('Maximum number of entries')
             PARM       KWD(SCHTYPE) +
                        TYPE(*INT4) +
                        RSTD(*YES) +
                        DFT(*EQ) +
                        SPCVAL( +
                          (*EQ 1) +
                          (*GT 2) +
                          (*LT 3) +
                          (*GE 4) +
                          (*LE 5) +
                          (*FIRST 6) +
                          (*LAST 7) +
                          (*BETWEEN 8)) +
                        PROMPT('Search type')
             PARM       KWD(SCHCTA) +
                        TYPE(*CHAR) +
                        LEN(2000) +
                        EXPR(*YES) +
                        PASSVAL(*NULL) +
                        PROMPT('Search criteria')
             PARM       KWD(SCHCTALEN) +
                        TYPE(*INT4) +
                        DFT(120) +
                        RANGE( +
                          1 +
                          1000) +
                        PROMPT('Length of search criteria')
             PARM       KWD(SCHCTAOFFS) +
                        TYPE(*INT4) +
                        DFT(120) +
                        RANGE( +
                          1 +
                          1000) +
                        PROMPT('Search criteria offsets')
             PARM       KWD(ERRCOD) +
                        TYPE(*INT4) +
                        CONSTANT(0)
             DEP        CTL(*ALWAYS) +
                        PARM( +
                          (SCHCTA)) +
                        MSGID(SYU5020)