Information Systems:EODWEEKLY

This is called by the scheduler (job name ENDOFWEEK) every Sunday, at 1:00AM. It puts the computer into an application restricted state. If it fails, it will be cancelled by the backup; which starts at 3:00AM.

/* send email that weekly overnight process is starting                   */ 
                                                                             
             CHGVAR     VAR(&SMSG) VALUE('EOW starting (2:30 3:00 +          
                          5:00 6:30)')                                       
             CHGVAR     VAR(&LMSG) VALUE(&SMSG)                              
             CALL       PGM(OPMSGSEND) PARM(&SMSG &LMSG)                     
                                                                             
/* End all processes that use either ASW or extension files.  This is     */
/* so that the temporary backup can save all files, and because some of   */
/* the ASW jobs cannot run if any other jobs are using their files.       */
                                                                             
             CALL       PGM(EODEND2)                                         
                                                                             
/* run End of Day processing                                              */ 
                                                                             
             CALL       PGM(EOD)                                             
                                                                             
/* run weekly jobs                                                        */ 
                                                                             
             CALL       PGM(EODUPDW)                                         
             CALL       PGM(EODRPTW)                                         

/* send email that weekly overnight process ended normally                */

             CHGVAR     VAR(&SMSG) VALUE('Weekly overnite processing + 
                          ended Normally')                             
             CHGVAR     VAR(&LMSG) VALUE('This message means there +   
                          were no errors that halted processing.  If + 
                          this message is not sent, it means the +     
                          full backup cancelled this job.')                           
             CALL       PGM(OPMSGSEND) PARM(&SMSG &LMSG)