PGM PARM(&TRITAD &TCRTCN)
DCL VAR(&TRITAD) TYPE(*CHAR) LEN(9)
DCL VAR(&TCRTCN) TYPE(*CHAR) LEN(20)
STRQMQRY QMQRY(PRODOBJ/CRQRYREQU) SETVAR((tritad +
&TRITAD) (tcrtcn &TCRTCN))
ENDPGM: ENDPGM
Ugly but works.
PGM PARM(&TRITAD &TCRTCN)
DCL VAR(&TRITAD) TYPE(*CHAR) LEN(9)
DCL VAR(&TCRTCN) TYPE(*CHAR) LEN(20)
STRQMQRY QMQRY(PRODOBJ/CRQRYREQU) SETVAR((tritad +
&TRITAD) (tcrtcn &TCRTCN))
ENDPGM: ENDPGM