Information Systems:EOD

/* Do temporary backup.  This is to restore files if update program     */ 
/* bombs.  It can be used to do a quick restore if say, a user deletes  */ 
/* something they shouldn't.  And it is used to rebuild test libraries. */ 
                                                                             
             CALL       PGM(EODBUTEMP)                                       
                                                                             
/* Set up production environment for company VA.                        */ 
                                                                             
             CHGASWCOM  COMPANY(VA)                                          
                                                                              
/* Run End of Day updates.                                              */ 
                                                                             
             CALL       PGM(EODUPD)                                          
                                                                             
/* Run End of Day reports.                                              */ 
                                                                             
             CALL       PGM(EODRPT)                                          
                                                                             
/* Run End of Day housekeeping.                                         */ 
                                                                             
             CALL       PGM(EODCLR)                                          
                                                                             
/* Clear consolidated item master file (XXITEMP).  This is rebuilt in   */ 
/* EODREBLD, but as it is used by so many jobs, it can be cleared only  */
/* in the Application Restricted State.                                 */
                                                                          
             RCLRSC                                                          
             CLRPFM     FILE(XXITEMP)                                        
                                                                             
/* Rebuild statistics files, and update summary files.  As this can run  */ 
/* while users are on the system, submit job to QBATCH so that it will   */
/* run after the system is brought back up again.  This gets it out of   */
/* the restricted state sooner.                                          */
                                                                           
            SBMJOB     CMD(CALL PGM(EODREBLD)) JOBQ(QS36EVOKE)