Hola Luis ;
Te contesto a tus preguntas
-----Mensagem original-----
De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]Em nome de LLuis Segura
Enviada: segunda-feira, 18 de Mar�o de 2002 16:58
Para: [EMAIL PROTECTED]
Assunto: Programa de salida en copias de seguridad del sistema.
Hola a todos/as.
Desearia planificar un trabajo de copias de todo el sistema, mensualmente,
he visto en el Operations Navigator que puedo especificarle un programa de
salida, desearia hacerlo para parar unos subsistemas y despues volverlos a
arrancar, pero aqui se me produce las primeras dudas.
Puede ser un CL normal ? Si
El mismo programa se ejecuta antes y despues de acabar la copia ?. Si
Alguien tiene implementado algo parecido y me podria proporcionar un ejemplo
?.Te envio ejemplo para que analices y adaptes a tu sistema
Saludos Cordiales
Jose Miguel fugencio
5722WDS V5R1M0 010525 SEU SOURCE LISTING
18/03/02 17:28:47 PAGE 1
SOURCE FILE . . . . . . . AITENAUTIL/QCLSRC
MEMBER . . . . . . . . . EXTBCKUPRE
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+...
8 ...+... 9 ...+... 0
100 /*****************************************************/
22/10/94
200 /*PROG:EXTBCKUP */
19/08/97
300 /*DESCRIPCION: REALIZA CONTROL DE SALIDA DEL BACKUP */
19/08/97
400 /*REALIZADA ANTES Y DESPUES DE EJECUTAR RUMBCKUP */
19/08/97
500 /* */
19/08/97
600 /* */
19/08/97
700 /* PARAMETROS : */
25/08/97
800 /* &PROD ->LLAMADA AL PRODUCTO */
25/08/97
900 /* &FLAG ->INDICADOR DE SALIDA (*BEFORE *AFTER) */
25/08/97
1000 /* &OPTIONS->TIPO DE BACKUP *DAILY,*WEEKLY,*MONTHLY */
25/08/97
1100 /* &DEVICE ->NOMBRE DEL DISPOSITIVO DE ARRAQUE */
25/08/97
1200 /* &TAPSET ->NOMBRE D LA UNINDAD DE CINTRA PREPARADA */
25/08/97
1300 /* &RETCODE->CODIGO DE RETORNO */
25/08/97
1400 /* */
25/08/97
1500 /* */
25/08/97
1600 /*FECHA: */
13/08/97
1700 /*PROGRAMADOR: JOSE MIGUEL FULGENCIO */
22/10/94
1800 /*****************************************************/
22/10/94
1900 PGM PARM(&PROD &FLAG &OPTIONS &DEVS &TAPSET +
14/08/97
2000 &RETCODE)
14/08/97
2100 /* VARIABLES DE PASO PARAMETROS */
14/08/97
2200 DCL VAR(&PROD) TYPE(*CHAR) LEN(10)
14/08/97
2300 DCL VAR(&FLAG) TYPE(*CHAR) LEN(10)
14/08/97
2400 DCL VAR(&OPTIONS) TYPE(*CHAR) LEN(10)
14/08/97
2500 DCL VAR(&DEVS) TYPE(*CHAR) LEN(40)
14/08/97
2600 DCL VAR(&TAPSET) TYPE(*CHAR) LEN(4)
14/08/97
2700 DCL VAR(&RETCODE) TYPE(*CHAR) LEN(7)
14/08/97
2800 /* VARIABLES */
14/08/97
2900 DCL VAR(&SYSNOM) TYPE(*CHAR) LEN(8) /* Nombre */
15/08/97
3000 DCL VAR(&JOBLOG) TYPE(*CHAR) LEN(10) /* Nombre +
13/08/97
3100 del trabajo */
13/08/97
3200 DCL VAR(&USERLOG) TYPE(*CHAR) LEN(10) /* Usuario */
14/08/97
3300 DCL VAR(&NBRLOG) TYPE(*CHAR) LEN(6) /* Numero */
14/08/97
3400 DCL VAR(&FECHA) TYPE(*CHAR) LEN(6) /* Fecha del */
14/08/97
3500 DCL VAR(&FECHAI) TYPE(*CHAR) LEN(6) /* Fecha del */
14/08/97
3600 DCL VAR(&FECHAF) TYPE(*CHAR) LEN(6) /* Fecha del */
14/08/97
3700 DCL VAR(&HORA) TYPE(*CHAR) LEN(6) /* HORA del */
14/08/97
3800 DCL VAR(&HORAI) TYPE(*CHAR) LEN(6) /* HORA */
14/08/97
3900 DCL VAR(&HORAF) TYPE(*CHAR) LEN(6) /* HORA del */
14/08/97
4000 /*----------------------------------------------------*/
14/03/96
4100 /*----------------------------------------------------*/
14/08/97
4200 MONMSG MSGID(CPF0000)
15/08/97
4300 RTVNETA SYSNAME(&SYSNOM)
15/08/97
4400 RTVJOBA JOB(&JOBLOG) USER(&USERLOG) NBR(&NBRLOG) +
14/08/97
4500 DATE(&FECHA) /* Recuperamos los atributos +
14/08/97
4600 de trabajo para joblog. */
14/08/97
4700 RTVSYSVAL SYSVAL(QTIME) RTNVAR(&HORA)
14/08/97
4800 /*----------------------------------------------------*/
14/08/97
4900 IF COND(&FLAG *EQ '*BEFORE ') THEN(DO)
14/08/97
5000 /*FINALIZAMO SUBSISTEMA */
21/08/97
5100 21/08/97
5500 DLYJOB DLY(180)
21/08/97
5600 GOTO FIN
14/08/97
5700 ENDDO
14/08/97
5800
14/08/97
5900 IF COND(&FLAG *EQ '*AFTER ') THEN(DO)
14/08/97
6000 IF COND(&RETCODE *EQ 'CPC1E62') THEN(SBMJOB +
06/08/98
6100 CMD(SNDNETMSG MSG('El proceso de copias +
06/08/98
6200 de salvar ha terminado correctamente') +
06/08/98
6300 TOUSRID((USR SISTEMAS))) USER(QPGMR))
06/08/98
6400 ELSE CMD(SBMJOB CMD(SNDNETMSG MSG('El Proceso de +
06/08/98
6500 Salvar no ha terminado correctamente +
06/08/98
6600 revise spool en cola salida QPGMR ') +
06/08/98
6700 TOUSRID((USR SISTEMAS))) USER(QPGMR))
06/08/98
6800
14/08/97
6900 CHGVAR VAR(&HORAF) VALUE(&HORA)
10/10/97
7000 CHGVAR VAR(&FECHAF) VALUE(&FECHA)
10/10/97
7100 DSPLOG PERIOD((*AVAIL &FECHA)) OUTPUT(*PRINT) +
10/10/97
7200 MSGID(CPC3701 CPC3723 CPF3771)
19/08/97
7300 CHGSPLFA FILE(QPDSPLOG) SAVE(*SAME) USRDTA(&SYSNOM)
10/10/97
7400 /*SI NO ES COPIA SEMANAL NO ARRACAMOS COMUNICACIONES*/
10/10/97
7500 IF COND((&OPTIONS *NE '*WEEKLY') *AND (&OPTIONS +
10/10/97
7600 *NE '*MONTHLY')) THEN(DO)
10/10/97
7700 /*ARRANCAMOS COMUNICACIONES */
16/10/97
7800
16/10/97
8100 ENDDO
10/10/97
8200 ELSE CMD(IF COND((&OPTIONS *EQ MONTHLY) *OR +
16/10/97
8300 (&OPTIONS *EQ *WEEKLY)) THEN(DO))
16/10/97
8400 /*ARRANCAMOS COMUNICACIONES */
16/10/97
8500
16/10/97
8700 ENDDO
16/10/97
8800 ENDDO
14/08/97
8900 /*----------------------------------------------------------*/
13/09/95
9000 /*FIN PROCESO PRINCIPAL */
18/10/94
9100 /*----------------------------------------------------------*/
13/09/95
9200 FIN: ENDPGM
15/03/96
* * * * E N D O F S O U R C E * * * *
