INVENGFILE

From MidrangeWiki
Revision as of 08:28, 26 May 2005 by Al Mac (talk | contribs) (The Source Code)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

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