Keith, You need to make sure that your string variables contain a trailing null value:
Code:
DCL VAR(&NULL) TYPE(*CHAR) LEN(01) VALUE(X'00') DCL VAR(&PATH) TYPE(*CHAR) LEN(51) DCL VAR(&LIB) TYPE(*CHAR) LEN(14) CHGVAR VAR(&FOLDER) VALUE('/Engraver/*') CHGVAR VAR(&PATH) VALUE(&FOLDER *TCAT &NULL) CHGVAR VAR(&LIB) VALUE('\L:QTEMP' *CAT &NULL) CALL PGM(QRYIFSLIB) PARM(&PATH '\S' '\Q' '\T' + &LIB)
Leave a comment: