Hmmm,

DCL VAR(&LIB) TYPE(*CHAR) LEN(10)

RTVOBJD OBJ(MEINCL) OBJTYPE(*PGM) RTNLIB(&LIB)

... aufgrund der Suchliste müsste sich das CL dann selbst finden, somit:

IF COND(&LIB *EQ '...') THEN() u.s.w.