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



AH - that old reply still lives !  
 http://archive.midrange.com/midrange-l/200103/msg01740.html
 
It was coded for North America (most of Europe moves forward in the Spring on 
the last Sunday of March - so it will still be different from North America in 
2007 (I'm sure the trans-atlantic airlines love publishing 3 schedules within a 
month, and now they'll have the fun of doing it in the fall too instead of just 
the spring).  
 
Of course that code will need changing for 2007 and the RELDAYMON value on the 
job schedule entry will need changing to 1st & 2nd Sunday (if you haven't gone 
to V5R3+ and started using QTIMZON instead - and presumably for V5R3+ you'll 
need to install a PTF to fix the time zones IBM supplied or use WRKTIMZON and 
change your start/end dates for your time zone).
http://webexhibits.org/daylightsaving/b.html
http://aa.usno.navy.mil/faq/docs/daylight_time.html
 
This would be the updated version of the DAYSAVTIM program for 2007 in North 
America (as well as changing your job scheduler to run the job on the 1st & 2nd 
Sundays of the month) - supplied without any warranty, use at your own risk, 
blah, blah, blah:
 
DAYSAVTIM:   PGM                                                                
/******************************************************************************/
/* NAME     - DAYSAVTIM                                                       */
/* FUNCTION - Perform automatic Daylight Saving Time adjustments (2007+).     */
/*            Do NOT use this program at V5R3+ as you can not change          */
/*             system value QUTCOFFSET.  Instead set system value QTIMZON.    */
/*     NOTE - Program should be compiled with USRPRF(*OWNER), and             */
/*            the owner should have authority to CHGSYSVAL QHOUR              */
/*            - OR -                                                          */
/*            the Job Schedule entry should name a USER that has              */
/*            authority to CHGSYSVAL QHOUR.                                   */
/*                                                                            */
/* ===>>>  Date of last mods. :  2006/10/29                                   */
/*                                                                            */
/*  Taken from: Midrange Computing, December 1997, page 13.                   */
/*              (from David Hummell, modification of program by Lori Nesje)   */
/*              Further mods by Neil Palmer - DPS, Inc.                       */
/*                                                                            */
/*  Add to system job scheduler as follows (substitute valid USER):           */
/*           ADDJOBSCDE JOB(AUTO_DST) CMD(CALL PGM(QGPL/DAYSAVTIM)) +         */
/*                        FRQ(*MONTHLY) SCDDATE(*NONE) SCDDAY(*SUN) +         */
/*                        SCDTIME(020000) RELDAYMON(1 2) +                    */
/*                        JOBQ(QUSRNOMAX) USER(????) TEXT('Daylight +         */
/*                        Saving Time adjustment program')                    */
/*                                                                            */
/******************************************************************************/
                                                                 
             DCL        &MONTH  *CHAR  2                         
             DCL        &DAY    *CHAR  2                         
             DCL        &HOUR   *CHAR  2                         
             DCL        &HOUR#  *DEC   (2 0)                     
             DCL        &UTCOFFSET  *CHAR  5                     
             DCL        &UTCOFFSET# *DEC  (5 0)                  
                                                                 
             RTVSYSVAL  QMONTH  &MONTH                           
             RTVSYSVAL  QDAY    &DAY                             
             RTVSYSVAL  QHOUR   &HOUR                            
             RTVSYSVAL  QUTCOFFSET &UTCOFFSET                    
                                                                 
             CHGVAR     &HOUR#  &HOUR                            
             CHGVAR     &UTCOFFSET#  &UTCOFFSET                  
                                                                 
             IF         (&MONTH = '03' *AND &DAY > '07') THEN(DO)
              CHGVAR     &HOUR#  (&HOUR# +1)                     
              CHGVAR     &UTCOFFSET#  (&UTCOFFSET# +100)         
             ENDDO                                               
                                                                        
             IF         (&MONTH = '11' *AND &DAY < '08') THEN(DO)       
              CHGVAR     &HOUR#  (&HOUR# -1)                            
              CHGVAR     &UTCOFFSET#  (&UTCOFFSET# -100)                
             ENDDO                                                      
                                                                        
             IF         ((&MONTH = '03' *AND &DAY > '07') *OR +         
                         (&MONTH = '11' *AND &DAY < '08')) THEN(DO)     
              IF         (&UTCOFFSET# > 2400) +                         
                            CHGVAR &UTCOFFSET# (&UTCOFFSET# - 2400)     
              IF         (&UTCOFFSET# < -2400) +                        
                            CHGVAR &UTCOFFSET# (&UTCOFFSET# + 2400)     
              IF         ((&UTCOFFSET# < -45) & (&UTCOFFSET# > -100)) + 
                            CHGVAR &UTCOFFSET# (&UTCOFFSET# + 40)       
              IF         ((&UTCOFFSET# > 45) & (&UTCOFFSET# < 100)) +   
                            CHGVAR &UTCOFFSET# (&UTCOFFSET# - 40)       
              CHGVAR     &UTCOFFSET &UTCOFFSET#                         
              IF         (&UTCOFFSET# >= 0) THEN(CHGVAR +               
                            &UTCOFFSET ('+' *CAT %SST(&UTCOFFSET 2 4))) 
              CHGSYSVAL  SYSVAL(QUTCOFFSET) VALUE(&UTCOFFSET) /* + 
                           Can't change at V5R3+ */                
              CHGVAR     &HOUR   &HOUR#                            
              CHGSYSVAL  QHOUR   &HOUR                             
             ENDDO                                                 
                                                                   
             ENDPGM                                                
****************** End of data ************************************
 
 
Neil Palmer, Cambridge, Ontario, Canada 
 
(This account not monitored for personal mail,
remove the last two letters before @ for that) 


----- Original Message ----
From: Tom Jedrzejewicz tomjedrz@xxxxxxxxx


I believe you are correct that SNTP servers will not change when we "fall
back" this weekend.

My understanding is that the Time Zone (QTIMZON) system value (rather than
QUTCOFFSET) controls time processing after V5R2.  In fact, if I understand
properly, there are going to be some PTF's to install before the "spring
forward" next year to handle the DST changes for next year.

AT V5R2 and prior, DST changes had to be done manually, although there are
readily available utilities to take care of it.  I used this one to take
care of it until I upgraded to a V5R3 box last fall.
http://archive.midrange.com/midrange-l/200103/msg01740.html

Ken Sims has more detail ...
http://www.kensims.net/iseries/faqs/dst-change.shtml

Take care.


As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.