|
Therefore we will do it via a piece of CL (below) which is schedule to run at 2am on Sunday.
midrange.com
Meanwhile, I need to be sure that the TIMZON feature is turned off.
Anyone know how to do that?
Jerry
... frag ...
RTVSYSVAL SYSVAL(QTIME) RTNVAR(&SYSTIM)
RTVSYSVAL SYSVAL(QUTCOFFSET) RTNVAR(&UTCOFF)
/* Parse out hour from system value QTIME
CHGVAR VAR(&HOURD) VALUE(%SST(&SYSTIM 1 2))
CHGVAR VAR(&UTCHR) VALUE(%SST(&UTCOFF 2 2))
/* If Spring then add one hour to time
/* If Spring then sub one hour from utcoffset
IF COND(&SEASON *EQ 'SPRING') THEN(DO)
CHGVAR VAR(&HOURD) VALUE(&HOURD + 1)
CHGVAR VAR(&UTCHR) VALUE(&UTCHR - 1)
/* Adjust system value QTIME if valid time
CHGVAR VAR(%SST(&SYSTIM 1 2)) VALUE(&HOURD)
CHGSYSVAL SYSVAL(QTIME) VALUE(&SYSTIM)
CHGVAR VAR(%SST(&UTCOFF 2 2)) VALUE(&UTCHR)
CHGSYSVAL SYSVAL(QUTCOFFSET) VALUE(&UTCOFF)
... end frag ...
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
