so sieht das CL aus:

PGM PARM(&BIBLIOTHEK)
DCL VAR(&BIBLIOTHEK) TYPE(*CHAR) LEN(10)
RUNQRY QRY(QRYBIB/MEINEQRY) +
QRYFILE((&BIBLIOTHEK/DATEI))
ENDPGM

Aufruf des CL-Programms:

CALL MEINPROG 'MEINEBIB'

Gruß
HS