INVENGFILE

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