INVENGQRY
From MidrangeWiki
Explanation for the Program
Here is the Source Code
/*********************************************************************/ /* */ /* Program INVENGQRY runs Query of user choice */ /* */ /*********************************************************************/
PGM
/* Chapter SIX of CL manual explains the rules */
RUNQRY ??QRY(XQRY_AVIEW) RCDSLT(*YES)
MONMSG MSGID(CPF6801) EXEC(GOTO CMDLBL(ENDIT)) /* +
F3 F12 etc. allowed */
ENDIT: ENDPGM
