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
|
|
| ¿Buscas trabajo ? | | Inscríbete en nuestra lista laboral y recibirás las ofertas de trabajo en tu buzón de correo electrónico. |
|
|
¿Tienes algún truco que quieras compartir con todos
los profesionales de Recursos iSeries AS400?.
Envianoslo y si resulta seleccionado
te enviaremos un vale de Amazon por valor de 50$.
Todos los trucos y documentos recibidos serán publicados.
|
|
