Information Systems:EODEMAIL

This is called by the scheduler (job name EODEMAIL) every day at 8:00AM. It will email IT saying which tape volume was used for the backup, and archive the BRMS recovery reports to SuperServer.

/* Hold BRMS maintenance reports so they don't print                     */  
                                                                            
             OVRPRTF    FILE(QP1AEP)   HOLD(*YES)                              
             OVRPRTF    FILE(QP1ARCY)  HOLD(*YES)                             
             OVRPRTF    FILE(QP1A2RCY) HOLD(*YES)  
             OVRPRTF    FILE(QP1AASP)  HOLD(*YES)                              
             OVRPRTF    FILE(QP1A2SL)  HOLD(*YES)  

/* Run BRMS maintenance, requesting the recovery analysis report         */                  
                                                                              
             STRMNTBRM  PRTEXPMED(*NO) PRTVSNRPT(*NO) PRTBKUACT(*NO) +        
                          PRTRCYRPT(*RCYANL)                                  
                                                                              
/* Email report of backup tape used, and recovery analysis report to IT, */
/* and archive then to SuperServer                                       */   
/* Note that if Catapult is not currently running, the command will wait */
/* to be run when it is.  So these two spool files should be be deleted  */
                                                                              
             ZRUNRULE   FILE(QP1A2RCY) JOB(*) SPLNBR(*LAST) +                 
                          RULENBR(8971) TIMEOUT(20)                           
             ZRUNRULE   FILE(QP1ARCY) JOB(*) SPLNBR(*LAST) +                  
                          RULENBR(8998) TIMEOUT(20)   

/* delete unused generated spool files                                   */
                                                                           
             DLTSPLF    FILE(QP1AEP)  SPLNBR(*LAST)                         
             DLTSPLF    FILE(QP1AASP) SPLNBR(*LAST)                        
             DLTSPLF    FILE(QP1A2SL) SPLNBR(*LAST)