Difference between revisions of "INVENGFILE"
From MidrangeWiki
(The Source Code) |
(No difference)
|
Revision as of 08:28, 26 May 2005
Here is the Source Code
/*********************************************************************/ /* */ /* Program INVENGFILE runs RUNQRY *N for FILE of operator choice */ /* */ /*********************************************************************/
PGM
/* Chapter SIX of CL manual explains the rules */
RUNQRY QRY(*NONE) ??QRYFILE((IIM)) RCDSLT(*YES)
MONMSG MSGID(CPF6801) EXEC(GOTO CMDLBL(ENDIT)) /* +
F3 F12 etc. allowed */
ENDIT: ENDPGM
