Difference between revisions of "INVENGQRY"
From MidrangeWiki
(Framework) |
(→Here is the Source Code) |
||
| Line 6: | Line 6: | ||
== Here is the Source Code == | == 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 | ||
Revision as of 06:45, 26 May 2005
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
