× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.