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

This entry was posted on 4. April 2008 at 01:10 and is filed under Uncategorized. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response or trackback from your own site.