..."system may come up in GMT."
No, not "may" -- it absolutely WILL come up in GMT.
:blush on
Two weeks ago it took about 2 minutes to realize what *I* had done .. once
I stopped blaming the operators.
:blush off
Now. about future timezone dates... see the EXEC below. It produces a set
of statements good through the year 2041, and is easily changed if the US
Congress decides to create more mini-Y2K's before I am elected U.S. Grande
Pooh-Bah. Once so elected I will issue a Grande Pooh-Bah Declaration that
if it is wise to save daylight in the summer, it's even wiser to save it
in winter - so we'll stay on Daylight Savings Time which will henceforth
be known as Sir Mike Standard Time. So there!
Why do we save daylight in the summer time when there is so much of it?
Does Congress plan to spend it in winter? Obviously, that does NOT work.
In winter it's still dark when I get up to go to work in the morning and
before I go to home in the afternoon. Time for... Sir Mike Standard
Time! We have the technology. ;-)
Mike Walter (Sir Mike the Prestidigitator, Order of the Knights of
VM)
Hewitt Associates
Any opinions expressed herein are mine alone and most certainly do not
necessarily represent the opinions or policies of Hewitt Associates.
* Prolog; See Epilog for additional information ********************
* Exec Name - TZDATES EXEC *
* Unit Support - OSS/VM *
* Status - Version 2, Release 1.0 *
********************************************************************/
address 'COMMAND'
parse source xos xct xfn xft xfm xcmd xenvir .
parse upper arg parms 1 operands '(' options ')' parmrest
If operands='?' then Signal Explain
parse var operands tz .
If tz='' then tz='C'
ltz=length(tz)
If ltz<>1 then
Do
say xfn'; Invalid timezone character, length not "1".' ,
'Found "'tzc'".'
say 'For more help, issue:' xfn '?'
Call Exit 20
End
resultfile=xfn 'BOUNDS A'
'FINIS' resultfile
'ERASE' resultfile
Signal ON Error
Do ix=2007 to 2042 /* What years do we want to cover? */
If ix=2042 then Leave /* Old TOD clock wrapped in August 2042 */
/* As of 2005-09-27, dates beginning in 2042 cause error msg: */
/* HCPZPM6706E Invalid date - 2042-mm-dd */
/* There's time for an APAR before then... */
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
say xfn 'results are now contained in file:' resultfile
Call Exit rc
/********************************************************************/
/* Sub-Routines below this point */
/********************************************************************/
Exit:
parse arg exitrc .
If verify(exitrc,'-0123456789')=0 then Exit exitrc
else Exit 999999
GetSpring:
parse arg year .
/* Find 1st Sunday in March, beginning in 2007 per the: */
/* "U.S. Government Energy Policy Act of 2005". */
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 14 for 2nd Sunday in March*/
spring='Timezone_Boundary on' ,
date('S',dx,'S','-') , /* In yyyy-mm-dd fmt */
'at 02:00:00 to' tz'DT' /* Change to Daylight Time */
Return spring
GetFall:
parse arg year .
/* Find 1st Sunday in November beginning in 2007 per the: */
/* "U.S. Government Energy Policy Act of 2005". */
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' tz'ST' /* Change to Standard Time */
End
Return
Error:
say '+++ "ERROR" error routine entered in:' xfn xft xfm', rc='rc
say '+++ from line:' sigl', which reads:'
say '+++'sourceline(sigl)
Exit 20
Syntax:
say '+++ "SYNTAX" error routine entered in:' xfn xft xfm', rc='rc
say '+++ from line:' sigl', which reads:'
say '+++'sourceline(sigl)
Call Exit 20
NoValue:
say '+++ "NoValue" error routine entered in:' xfn xft xfm', rc='rc
say '+++ from line:' sigl', which reads:'
say '+++'sourceline(sigl)
say '+++ Variable with no value is:' condition('Description')
Call Exit 24
Explain:
'PIPE (NAME Explain)' ,
'| <' xfn xft xfm ,
'| INSIDE /ExplainBegin:/ /ExplainEnd:/' ,
'| PREFACE STRLITERAL /'xfn xft xfm 'help.../' ,
'| CONSOLE'
Call Exit 0
/*
ExplainBegin:
Unless changed, TZDATES will produce a file suitable for inclusion in
"SYSTEM CONFIG" on MAINT's CF1, CF2, etc. disks to define the Spring and
Fall Daylight/Standard timezones.
+-C--------+
>>-Cmdname--+----------+-----------------------------------------------><
+-timezone-+
+-?--------+
Where:
timezone
is the first character of the timezone to preface "DT" or
"ST". Default="C", as in "CST" and "CDT".
?
displays this command help.
ExplainEnd:
*/
/* Epilog ***********************************************************
* Function - See "Explain:" subrtn above. *
* Component of - z/VM Sysprog's Toolbox. *
* Command format- See "Explain:" subrtn above. *
* Called by - Prepared z/VM Sysprogs. *
* Dependencies - VM/ESA *
* Program Lang. - CMS REXX *
* Date Written - ? *
* Author - Michael R. Walter *
* Changed | By | Description of Change *
* --------+-----+------------------------------------------------- *
* yyyymmdd iii - *
* *
********************************************************************/
"Mrohs, Ray" <[EMAIL PROTECTED]>
Sent by: "The IBM z/VM Operating System" <IBMVM@LISTSERV.UARK.EDU>
03/08/2007 12:52 PM
Please respond to
"The IBM z/VM Operating System" <IBMVM@LISTSERV.UARK.EDU>
To
IBMVM@LISTSERV.UARK.EDU
cc
Subject
Re: TIMEZONE
Don't forget to retain the record for the current period if you plan to
IPL before 3/11, otherwise you system may come up in GMT.
Ray Mrohs
U.S. Department of Justice
202-307-6896
> -----Original Message-----
> From: The IBM z/VM Operating System
> [mailto:[EMAIL PROTECTED] On Behalf Of David L. Craig
> Sent: Thursday, March 08, 2007 12:09 PM
> To: IBMVM@LISTSERV.UARK.EDU
> Subject: Re: TIMEZONE
>
> On Thu, Mar 08, 2007 at 11:50:06AM -0500, Tony Thigpen wrote:
> > Can somebody cut-n-paste their SYSTEM CONFIG USA Timezone_boundary
> > statements for the next few years. I thought I had updated
> it, but when
> > I double checked, they are not updated. :-(
>
> Timezone_Boundary on 2007-03-11 at 02:00:00 to EDT
> Timezone_Boundary on 2007-11-04 at 02:00:00 to EST
> Timezone_Boundary on 2008-03-09 at 02:00:00 to EDT
> Timezone_Boundary on 2008-11-02 at 02:00:00 to EST
> Timezone_Boundary on 2009-03-08 at 02:00:00 to EDT
> Timezone_Boundary on 2009-11-01 at 02:00:00 to EST
> Timezone_Boundary on 2010-03-14 at 02:00:00 to EDT
> Timezone_Boundary on 2010-11-07 at 02:00:00 to EST
> Timezone_Boundary on 2011-03-13 at 02:00:00 to EDT
> Timezone_Boundary on 2011-11-06 at 02:00:00 to EST
> Timezone_Boundary on 2012-03-11 at 02:00:00 to EDT
> Timezone_Boundary on 2012-11-04 at 02:00:00 to EST
> Timezone_Boundary on 2013-03-10 at 02:00:00 to EDT
> Timezone_Boundary on 2013-11-03 at 02:00:00 to EST
> Timezone_Boundary on 2014-03-09 at 02:00:00 to EDT
> Timezone_Boundary on 2014-11-02 at 02:00:00 to EST
> Timezone_Boundary on 2015-03-08 at 02:00:00 to EDT
> Timezone_Boundary on 2015-11-01 at 02:00:00 to EST
>
> > --
> >
> > Tony Thigpen
>
> --
>
> May the LORD God bless you exceedingly abundantly!
>
> Dave Craig
>
> - - - - - - - - - - - - - - - - - - - -
> "'So the universe is not quite as you thought it was.
> You'd better rearrange your beliefs, then.
> Because you certainly can't rearrange the universe.'"
>
> --from _Nightfall_ by Asimov/Silverberg
>
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.
