lunes, 19 de octubre de 2009

Cambio hora verano/invierno


La madrugada del ultimo domingo de Octubre los sistemas deben cambiar la hora al horario de invierno, o sea a las 3:00 se retrasara la hora a las 2:00 horas.
Actualmente, a partir de la V5R4, podemos configurar el sistema para que automáticamente realize el cambio de hora sin nuestra intervención, para ello debéis seguir las indicaciones del articulo:
Sincronizar la hora del AS400
Pero si tenemos un sistema con una versión anterior del OS400, podemos utilizar mi utilidad SUMWIN para realizar el cambio de hora automáticamente.

La estrategia para realizar el cambio de hora es añadir un trabajo automático al planificador de tareas el siguiente mandato (con usuario QSECOFR):
ADDJOBSCDE JOB(SUMWIN) CMD(CALL PGM(SUMWIN)) FRQ(*MONTHLY) SCDDATE(*NONE) SCDDAY(*SUN) SCDTIME(020000) RELDAYMON(*LAST) JOBQ(QSYSNOMAX) TEXT('Cambio automático a horario de verano-invierno')

Con esto conseguimos que cada ultimo domingo de mes se lance el trabajo y solo cambiara la hora cuando sea:
  • El ultimo domingo del mes de Marzo a las 02:00:00 sumara una hora o
  • El ultimo domingo del mes de Octubre esperara a las 03:01:00 y restara una hora,
  • En ambos casos envía un mensaje al operador.
  • El resto de meses no hará nada.

2 comentarios:

Begio dijo...

Ya no deja bajar el codigo, subelo a otro sitio por favor.

mrierab dijo...

Acabo de actualizar el enlace del codigo.
De todas maneras esta utilidad solo tiene sentido implementarla en sistemas con versiones del sistema operativo anteriores a la V5R4.
Actualmente tenemos el valor de sistema QTIMZON donde se le indica al sistema cuando realizar el cambio de hora.
Saludos