RE: DST disable timzon feature

["Crump, Mike" <Mike.Crump@xxxxxxxxxxxxxxxx>]

Jerry,

I'm a bit confused.  If you at a cum level with V5R3 that can't use the
TIMZON features of the OS then you shouldn't have to turn anything off.

I was under the impression that DST was enabled in base V5R3 and that
you didn't need to be at a certain cum level for it to work.  There are
PTF's needed to ensure that the new DST start and end dates are valid.
At V5R3 you can also create the new time zone yourself.  That was part
of the DST enablement - not only recognizing it but also allowing for it
to be modifiable without OS intervention.

There are some JVM and JDK issues as well.

1.)     Create time zone  (example is Eastern)  

QSYS/CRTTIMZON TIMZON(QN0500EST3) OFFSET(-300) STDNAME(*MSG) 
        DSTNAME(*MSG) STDMSG(CPX091E) DSTMSG(CPX091F) 
        MSGF(QCPFMSG) DSTSTR(*MAR *SUN 2 0200) DSTEND(*NOV *SUN 1 0200)

        TEXT('CREATED BY CUSTOMER') AUT(*USE)


2.)     Edit ownership

QSYS/CHGOBJOWN OBJ(QSYS/QN0500EST3) OBJTYPE(*TIMZON) 
        NEWOWN(QSYS) CUROWNAUT(*REVOKE)

3.)     Set System Value

QSYS/CHGSYSVAL SYSVAL(QTIMZON) VALUE(QN0500EST3)

Michael Crump
 
Manager, Computing Services
Saint-Gobain Containers, Inc.
1509 S. Macedonia Ave.
Muncie, IN  47302
765.741.7696
765.741.7012 f 

"You don't win a war by dying for your country.  You win a war by making
the other son-of-a-bitch die for his."     
General Patton 
This email and its attachments may be confidential and are intended
solely for the use of the individual to whom it is addressed. Any views
or opinions expressed are solely those of the author and do not
necessarily represent those of Saint-Gobain.  If it did, it would be
folded, mutilated, watered down, politically corrected, and would show
up a week later if at all.  If you are not the intended recipient of
this email and its attachments, you must take no action based upon them,
nor must you copy or show them to anyone.
Please contact the sender if you believe you have received this email in
error.
 
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Jerry Draper
Sent: Friday, March 09, 2007 4:56 PM
To: midrange-l@xxxxxxxxxxxx
Subject: DST disable timzon feature

I am working on a V5R3 system that is not current on required cumPTF's 
so we can't use the TIMZON features of the OS.

Therefore we will do it via a piece of CL (below) which is schedule to 
run at 2am on Sunday.

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 ...