Information Systems:EODDAILY

/* send email that daily overnight process is starting                    */
                                                                            
             CHGVAR     VAR(&SMSG) VALUE('EOD starting (2:15 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)                                            
  
/* send email that daily overnight process ended normally                 */  
                                                                              
             CHGVAR     VAR(&SMSG) VALUE('Daily 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)