IBM hat nen Workaround für mich:

PGM
DCL VAR(&VAR) TYPE(*CHAR) LEN(10) +
VALUE('AAA')
DCL VAR(&CMD) TYPE(*CHAR) LEN(200)

CHGVAR VAR(&CMD) VALUE('CPYF FROMFILE(TESTBIB/ELW) +
TOFILE(QTEMP/ELW) MBROPT(*ADD) +
CRTFILE(*YES) INCREL((*IF UPUPRF *EQ ''' +
*CAT &VAR *CAT '''))')
CALL PGM(QCMDEXC) PARM(&CMD 200)

ENDPGM