das CL muss so aussehen:
Code:
PGM PARM(&VAR1)
DCL VAR(&VAR1) TYPE(*CHAR) LEN(15)
DCL VAR(&VAR2) Type(*CHAR) LEN(17)

CHGVAR VAR(&VAR2) VALUE('''' *CAT &VAR1 *CAT '''');

STRQMQRY QMQRY(TRUMPFH/MARTIN_4) OUTPUT(*PRINT) +
ALWQRYDFN(*YES) SETVAR((VAR1 &VAR2))
MONMSG MSGID(CPF0000)
ENDPGM: ENDPGM
Birgitta