Information Systems:EOM

/* send email that daily overnight process is starting                    */ 
                                                                             
             CHGVAR     VAR(&SMSG) VALUE('Monthly processing is +            
                          starting')                                         
             CHGVAR     VAR(&LMSG) VALUE(&SMSG)                              
             CALL       PGM(OPMSGSEND) PARM(&SMSG &LMSG)                     
                                                                             
/*  MAKE SURE LIBRARY LIST IS CORRECT                                      */
                                                                             
             ADDLIBLE   LIB(DOCMGRCMD)                                       
             ADDLIBLE   LIB(UNIPHARMIT)                                      
                                                                              
/*  RUN ASW PROCESSING                                                     */
                                                                             
             CALL       PGM(EOMASW)                                          
                                                                             
/* send email that daily overnight process is ending                      */ 

             CHGVAR     VAR(&SMSG) VALUE('Monthly processing is + 
                          ending')                                
             CHGVAR     VAR(&LMSG) VALUE(&SMSG)                   
             CALL       PGM(OPMSGSEND) PARM(&SMSG &LMSG)