Re: DST disable timzon feature

[smorrison@xxxxxxxxxxxxxxxxxxx]

Jerry,

There are only 2 PTFs needed to adjust the time zone on V5R3. Both can be 
applied immediately, as long as no JAVA JVMs are running. On our system 
there are JVMs in use (apparently by IBM), so an IPL was required to apply 
the DST PTFs. Since we were doing an IPL for the DST PTFs, I took the 
opportunity to do a cume application at the same time. If you want to get 
the DST PTFs, they are SI25991 and SI26039. 

If you aren't applying the PTFs, I'd suggest making sure that you select 
your local time zone that uses standard time, and change your clock with 
your CL program. Hopefully the JVM issues won't appear since you will be 
using standard time.

Are you doing any time sensitive processing or data exchanges that 
consider different time zones?

Steve


Steven Morrison
Fidelity Express 
903-885-1283  ext. 479



Jerry Draper <midrangel@xxxxxxxxxxxxx> 
Sent by: midrange-l-bounces@xxxxxxxxxxxx
03/09/2007 03:56 PM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
midrange-l@xxxxxxxxxxxx
cc

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