/*           CRTCMD     CMD(mylib/CLSCAN) +                        */
/*                      PGM(QSYS/QCLSCAN) +                        */
/*                      SRCFILE(mylib/mysrcf) +                    */
/*                      SRCMBR(CLSCAN) +                           */
/*                      ALLOW( +                                   */
/*                        *IREXX +                                 */
/*                        *BREXX +                                 */
/*                        *BPGM +                                  */
/*                        *IPGM)                                   */

             CMD        PROMPT('QCLSCAN interface')
             PARM       KWD(STRING) +
                        TYPE(*CHAR) +
                        LEN(999) +
                        MIN(1) +
                        EXPR(*YES) +
                        PROMPT('String to scan' 1)
             PARM       KWD(STRLEN) +
                        TYPE(*DEC) +
                        LEN(3 0) +
                        RANGE( +
                          1 +
                          999) +
                        MIN(1) +
                        PROMPT('String length' 2)
             PARM       KWD(STRPOS) +
                        TYPE(*DEC) +
                        LEN(3 0) +
                        DFT(1) +
                        REL(*GE 1) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('Scan start position' 5)
             PARM       KWD(PATTERN) +
                        TYPE(*CHAR) +
                        LEN(999) +
                        DFT('*') +
                        EXPR(*YES) +
                        PROMPT('Pattern to scan for' 3)
             PARM       KWD(PATLEN) +
                        TYPE(*DEC) +
                        LEN(3 0) +
                        DFT(1) +
                        REL(*GE 1) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('Pattern length' 6)
             PARM       KWD(TRANSLATE) +
                        TYPE(*CHAR) +
                        LEN(1) +
                        RSTD(*YES) +
                        DFT(*YES) +
                        SPCVAL( +
                          (*YES 1) +
                          (*NO 0)) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('Translate string to uppercase?' 7)
             PARM       KWD(TRIM) +
                        TYPE(*CHAR) +
                        LEN(1) +
                        RSTD(*YES) +
                        DFT(*YES) +
                        SPCVAL( +
                          (*YES 1) +
                          (*NO 0)) +
                        PMTCTL(*PMTRQS) +
                        PROMPT('Trim pattern trailing blanks?' 8)
             PARM       KWD(WILD) +
                        TYPE(*CHAR) +
                        LEN(1) +
                        DFT(*BLANK) +
                        SPCVAL( +
                          (*BLANK ' ')) +
                        CHOICE('*CHAR, non-blank if specified') +
                        PMTCTL(*PMTRQS) +
                        PROMPT('Wild character' 9)
             PARM       KWD(RESULT) +
                        TYPE(*DEC) +
                        LEN(3 0) +
                        RTNVAL(*YES) +
                        CHOICE('Must be a variable name') +
                        PROMPT('Pattern location         (3.0)' 4)
             DEP        CTL(*ALWAYS) +
                        PARM( +
                          (&STRPOS *LE &STRLEN)) +
                        MSGID(CPD0146)
             DEP        CTL(*ALWAYS) +
                        PARM( +
                          (&PATLEN *LE &STRLEN)) +
                        MSGID(CPD0146)