Difference between revisions of "INVENGFILE"
From MidrangeWiki
(The Source Code) |
m (→Here is the Source Code) |
||
| Line 4: | Line 4: | ||
/*********************************************************************/ | /*********************************************************************/ | ||
/* */ | /* */ | ||
| + | |||
/* Program INVENGFILE runs RUNQRY *N for FILE of operator choice */ | /* Program INVENGFILE runs RUNQRY *N for FILE of operator choice */ | ||
| + | |||
/* */ | /* */ | ||
/*********************************************************************/ | /*********************************************************************/ | ||
Revision as of 08:29, 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
