Hola Javier,
Ahora no lo usamos, pero tengo una nota en un fuente antiguo que dice que se debe cambiar manual cuando el sistema no lo ejecuta y se pasa la hora. Nosotros lo haciamos por programa, te adjunto el fuente.
Saludos
2006/3/13, Javier Mora <[EMAIL PROTECTED]>:
Hola a todos:
En un sistema donde están planificados los encendidos y apagados de
la máquina (GO POWER), ¿alguien sabría decirme en que momento se actualiza
el valor del sistema QIPLDATTIM con la fecha y hora del siguente IPL?
Un saludo y gracias a todos,
Javier Mora
Dpto. Informática
Dialsur S.A.U.
__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400
--
Martí Riera
/*----------------------------------------------------------------MRB*/
/* RECUPERA Y ACTUALIZA DIA/HORA PROXIMO IPL PLANIFICADO */
/* NOTA: Es necesario ejecutarlo cuando no se apaga maquina. */
/*-------------------------------------------------------------------*/
/* COMPILAR COMO QSECOFR Y PARAMETRO USRPRF(*OWNER) */
/*-------------------------------------------------------------------*/
PGM
DCL VAR(&IPLDAT) TYPE(*CHAR) LEN(6)
DCL VAR(&IPLTIM) TYPE(*CHAR) LEN(6)
DCL VAR(&DATE) TYPE(*CHAR) LEN(6)
/* Buscar próximo IPL planificado */
ADDDAT DAYS(1) TOVAR(&IPLDAT) DATE(*TODAY)
RTVPWRSCDE DAY(&IPLDAT) PWRONTIME(&IPLTIM)
SEARCH: IF COND(&IPLTIM *EQ '*NONE ') THEN(DO)
ADDDAT DAYS(1) TOVAR(&DATE) DATE(&IPLDAT)
CHGVAR VAR(&IPLDAT) VALUE(&DATE)
RTVPWRSCDE DAY(&IPLDAT) PWRONTIME(&IPLTIM)
GOTO SEARCH
ENDDO
/* Actualizar dia/hora próximo IPL */
CHGSYSVAL SYSVAL(QIPLDATTIM) VALUE(&IPLDAT *BCAT &IPLTIM)
SNDPGMMSG MSG('Próximo IPL Automático el Día: ' *CAT +
&IPLDAT *CAT ' a las ' *CAT &IPLTIM *CAT +
' Horas.') TOMSGQ(*SYSOPR)
/* Fin de programa */
RETURN
ENDPGM
