Fuente para el Salvado Diario de:

§ Objetos de Seguridad (SAVSECDTA)
§ Objetos de Configuración (SAVCFG)
§ Todos los datos (SAVLIB c/ *NONSYS)
§ Objetos de Documentos (SAVDLO)


*************** Principio de datos ************************************ 
             PGM        PARM(&DEVD)                                     
                                                                        
/*********************************************************************/ 
/*La idea principal para que este CL funcione correctamente es tener */ 
/*previamente las Cintas Inicializadas con el ID de Volumen que      */ 
/*valida (ID Vol.: LUN - MAR - MIE - JUE - VIE).                     */ 
/*Tener en cuenta la cantidad de Gb. a salvar con respecto a la      */ 
/*cantidad de cintas a inicializar.                                  */ 
/*********************************************************************/

/*********************************************************************/ 
/*Declara parámetro de Unidad de Cinta y ID de Volumen               */ 
/*********************************************************************/ 
             DCL        VAR(&DEVD) TYPE(*CHAR) LEN(5)                   
             DCL        VAR(&VOL) TYPE(*CHAR) LEN(4)                    
                                                                        
/*********************************************************************/ 
/*Avisa del Comienzo del Backup Diario                               */ 
/*********************************************************************/ 
             SNDMSG     MSG('Atención: Dentro de CINCO MINUTOS +        
                        comenzarán las Copias de Seguridad +            
                        Diarias (SEC - CFG - DTA - FLR), +              
                        solicitamos que CIERRE todos sus +              
                        Trabajos.                                
                                                           Muchas +     
                        gracias por su colaboración.') +                
                        TOUSR(*ALLACT) MSGTYPE(*INFO)                   
             DLYJOB     DLY(300)                                        
             SNDMSG     MSG('Atención: A partir de este instante +      
                        comenzaran las Copia de Seguridad +             
                        Diarias.') TOUSR(*ALLACT) MSGTYPE(*INFO)        
             DLYJOB     DLY(120)                                        
                                                                        
/*********************************************************************/ 
/*Baja todos los servicios de TCP/IP                                 */ 
/*********************************************************************/ 
             ENDHOSTSVR SERVER(*ALL)                                    
             MONMSG     MSGID(CPF0000)                                  
             ENDTCPSVR  SERVER(*ALL)                                    
             MONMSG     MSGID(CPF0000)                                  
             ENDTCP     OPTION(*IMMED)                
             MONMSG     MSGID(CPF0000)                                  
                                                                        
/*********************************************************************/ 
/*En el siguiente comando (ENDSBS) la idea es que baje todos los Sub */ 
/*Sistemas MENOS el QCTL. Porque este JOB lo tendrá que adicionar en */ 
/*el Schedule del Sistema para que se ejecute en el QCTL. No olvide  */ 
/*de pasarle el PARAMETRO NECESARIO.                                 */ 
/*********************************************************************/ 
             ENDSBS     SBS(QBATCH) OPTION(*IMMED)                      
             MONMSG     MSGID(CPF0000)                                  
             ENDSBS     SBS(QITNER) OPTION(*IMMED)                      
             MONMSG     MSGID(CPF0000)                                  
             ENDSBS     SBS(QSNADS) OPTION(*IMMED)                      
             MONMSG     MSGID(CPF0000)                                  
             ENDSBS     SBS(QCMN) OPTION(*IMMED)                        
             MONMSG     MSGID(CPF0000)                                  
             ENDSBS     SBS(QSPL) OPTION(*IMMED)  
             MONMSG     MSGID(CPF0000)                                  
             ENDSBS     SBS(QSYSWRK) OPTION(*IMMED)                     
             MONMSG     MSGID(CPF0000)                                  
             ENDSBS     SBS(QUSRWRK) OPTION(*IMMED)                     
             MONMSG     MSGID(CPF0000)                                  
             ENDSBS     SBS(QSERVER) OPTION(*IMMED)                     
             MONMSG     MSGID(CPF0000)                                  
                                                                        
/*********************************************************************/ 
/*Valida el ID del Volumen de la Cinta según Valor del Sistema       */ 
/*********************************************************************/ 
             RTVSYSVAL  SYSVAL(QDAYOFWEEK) RTNVAR(&VOL)                 
             IF         COND(&VOL = *MON) THEN(CHGVAR VAR(&VOL) +       
                        VALUE(LUN ))                                    
             IF         COND(&VOL = *TUE) THEN(CHGVAR VAR(&VOL) +       
                        VALUE(MAR ))                                    
             IF         COND(&VOL = *WED) THEN(CHGVAR VAR(&VOL) +       
                        VALUE(MIE ))                                    
             IF         COND(&VOL = *THU) THEN(CHGVAR VAR(&VOL) +       
                        VALUE(JUE ))                                    
             IF         COND(&VOL = *FRI) THEN(CHGVAR VAR(&VOL) +       
                        VALUE(VIE ))                                    
             CHKTAP     DEV(&DEVD) VOL(&VOL) ENDOPT(*REWIND)            
             MONMSG     MSGID(CPF6720) EXEC(GOTO CMDLBL(END))           
                                                                        
/*********************************************************************/ 
/*Comienzo del salvado de SEC - CFG - DTA - DLO                      */ 
/*********************************************************************/ 
             INZTAP     DEV(&DEVD) NEWVOL(&VOL) CHECK(*NO)              
             SAVSECDTA  DEV(&DEVD) VOL(&VOL) SEQNBR(1) ENDOPT(*LEAVE)   
             MONMSG     MSGID(CPF0000)                                  
             SAVCFG     DEV(&DEVD) VOL(&VOL) ENDOPT(*LEAVE)             
             MONMSG     MSGID(CPF0000)                                  
             SAVLIB     LIB(*NONSYS) DEV(&DEVD) VOL(&VOL) +             
                        ENDOPT(*LEAVE) TGTRLS(*CURRENT) ACCPTH(*YES)    
             MONMSG     MSGID(CPF0000)                                  
             SAVDLO     DLO(*ALL) DEV(&DEVD) VOL(&VOL)                  
             MONMSG     MSGID(CPF0000)                                  
                                                                        
/*********************************************************************/ 
/*Una vez salvado el Sistema, lo Apaga y luego lo Enciende           */ 
/*********************************************************************/ 
             PWRDWNSYS  OPTION(*IMMED) RESTART(*YES *FULL)              
                                                                        
END:                                                                    
             SNDMSG     MSG('Atención: La Cinta que ha colocado NO +    
                          PERTENECE al día en curso') +                 
                          TOUSR(*SYSOPR) MSGTYPE(*INQ)                  
             ENDPGM                                                     
****************** Fin de datos ***************************************