¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
System i5 iSeries AS400 Recursos. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Noticias tecnológicas

Utilidades. CL backups diarios

Este CL tiene como objetivo controlar la correcta ejecución de un proceso de backup diario.

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 ***************************************
                                                                       
Puedes verlo en formato texto aquí
Utilidad desarrollada por Alex Ramos
08-11-2001

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 

 

NUESTRA COMUNIDAD EN
ÚNETE Y.... ¡¡ PARTICIPA !!
Dossiers técnicos iSeries y AS400
- Seguridad
- Alta disponibilidad.
Nuestros links favoritos
- Tendencias tecnologías de la información
Expertos en tecnologías de la información, nos dan su punto de vista sobre las tendencias actuales y futuras
- Los últimos anuncios sobre hardware-software para iSeries AS400 realizados por IBM
- Freeware y shareware para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Los manuales y links más interesantes del iSeries AS400

  Links patrocinados
  •  
  •  

[ Soy nuevo |   Profesionales |   AS qué |   Empresas |    Foros |   Recomiéndanos |    Productos ]
 
Recursos iSeries AS400. Es una web de: PUBLICACIONES HELP400, S.L. CIF:B-60-202827 Gran Vía de les Corts Catalanes, núm. 715, Entresuelo – 3ª - Barcelona - Tel.+34.932.310.049