IPLing is definitely an option providing SYSTEM CONFIG is setup appropriately, but take a look at Q TIMEZONE. If the desired zone is inactive, then SET TIMEZONE zone. Be careful as some applications may be negatively affected by changes in time.
Regards, Kevin -----Original Message----- From: VM/ESA and z/VM Discussions [mailto:[EMAIL PROTECTED] On Behalf Of Ranga Nathan Sent: Friday, October 28, 2005 1:43 PM To: [email protected] Subject: Re: New Time Change for PST? 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. > > >
