Das API QCLSCAN ist da die Lösung

http://publib.boulder.ibm.com/iserie...is/qclscan.htm

CALL PGM(QCLSCAN) PARM(&STRING &STRLEN &STRPOS +
&PATTERN &PATLEN &TRANSLATE &TRIM &WILD +
&RESULT)
IF COND(&RESULT = 0) THEN(GOTO CMDLBL(END))