CL to pass parms to a QMQRY

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