Information Systems:EODBU

/* send email that full backup is starting; pause to let it complete       */   
                                                                              
             CHGVAR     VAR(&SMSG) VALUE('Full backup is starting')           
             CHGVAR     VAR(&LMSG) VALUE(&SMSG)                               
             CALL       PGM(OPMSGSEND) PARM(&SMSG &LMSG)                      
             DLYJOB     DLY(180)
                     
/* End Domino and Gauss; pause to let it complete                         */             
                                                                              
             CALL       PGM(EODEND3)                                          
             DLYJOB     DLY(180) 
     
/* If the first of the month, backup to a permanent period end tape.     */  
/* Otherwise backup to the next available tape in the 42 tape cycle.     */  
            
             RTVSYSVAL  SYSVAL(QDAY) RTNVAR(&DAY)                           
             IF         COND(&DAY = '01') THEN(STRBKUBRM +                  
                          CTLGRP(UNIMONTHLY) SBMJOB(*NO))                   
             ELSE       CMD(STRBKUBRM CTLGRP(UNIDAILY) SBMJOB(*NO))