On Sunday when time changes, what command can we issue to change the
clock? Or do we have to re-IPL to set the TOD? I could not see a CP
command to set TOD.
Sorry, I am relatively new to VM.
Thanks
Mike Walter wrote:
One could say the "Subject:" of this thread is "insensitive" to the other
timezones of the world! What, only Pacific Time is subject to the new
law? :-)
Being just as insensitive, I offer the following TZDATES EXEC. It
calculates the CDT/CST Timezone_Boundary values beginning in 2007, through
2042.
Why 2042? Because it needed to stop somewhere, that's well after I
retire, and August 2042 was when the old 31-bit TOD clock wrapped.
Changing CDT/CST to your own timezone is a simple matter of XEDITing the
result file.
If I don't make the change now, while the subject is hot, it won't happen
until "too late" in 2007. There may be a better, more efficient method,
but this works, and is easily understood. I don't expect to need to run
it again until the U.S. Congress wises up, changing to Daylight Savings
Time all year around -- don't hold your breath.
Mike Walter
Hewitt Associates
The opinions expressed herein are mine alone, not my employer's.
/* TZDATES EXEC - Get Timezone_Boundary dates for "a while" */
address COMMAND
resultfile='TZ BOUNDS A'
'FINIS' resultfile
'ERASE' resultfile
Do ix=2007 to 2042 /* Old TOD clock wrapped in August 2042 */
spring=GetSpring(ix)
fall =GetFall(ix)
'EXECIO 1 DISKW' resultfile '0 F 80 (STRING' spring
'EXECIO 1 DISKW' resultfile '0 F 80 (STRING' fall
End
'FINIS' resultfile
Exit rc
GetSpring:
parse arg year .
/* Find 1st Sunday in March */
Do dx=year||0301 by 1 for 7 until dow='Sunday'
dow=date('W',dx,'S')
End
dx=dx+7 /* Ooooh, easy date math! Add 7 for 2nd Sunday in March */
spring='Timezone_Boundary on' ,
date('S',dx,'S','-') , /* In yyyy-mm-dd fmt */
'at 02:00:00 to CDT' /* Change CDT as needed */
Return spring
GetFall:
parse arg year .
/* Find 1st Sunday in November */
Do dx=year||1101 by 1 for 7
If date('W',dx,'S')<>'Sunday' then Iterate
Return 'Timezone_Boundary on' ,
date('S',dx,'S','-') , /* In yyyy-mm-dd fmt */
'at 02:00:00 to CST' /* Change CST as needed */
End
Return
The information contained in this e-mail and any accompanying documents may
contain information that is confidential or otherwise protected from
disclosure. If you are not the intended recipient of this message, or if this
message has been addressed to you in error, please immediately alert the sender
by reply e-mail and then delete this message, including any attachments. Any
dissemination, distribution or other use of the contents of this message by
anyone other than the intended recipient is strictly prohibited.
