RE: Daylight savings time question. V5R3

So, what is the "procedure" for changing the system clock on a V5R3 or V5R4 
System i5? 

In the past we use to modify the clock by running this program. Moving forward 
was never a problem, moving back in the fall required that we power down the 
system, wait for an hour and then power it up and change the time and 
associated system values during the IPL. If we didn't do this our time stamps 
on journal records and logs was messed up:

/*  GET THE CURRENT MINUTE  */                                   
            RTVSYSVAL  SYSVAL(QMINUTE) RTNVAR(&QMINUTE)          
                                                                 
/*  IF THE MINUTE IS MORE THAN 50, WAIT 10 MINUTES AND RETRY  */ 
            IF         COND(&QMINUTE *GT '50') THEN(DO)          
                 DLYJOB     DLY(600)                             
                 GOTO       CMDLBL(RETRY)                        
            ENDDO                                                
                                                                 
/*  GET THE CURRENT HOUR  */                                     
            RTVSYSVAL  SYSVAL(QHOUR) RTNVAR(&QHOUR)              
                                                                 
/*  IF THE  HOUR IS 23                        */                 
/*  WAIT ONE HOUR TO AVOID CROSSING MIDNIGHT  */                 
            IF         COND(&QHOUR *EQ '23') THEN(DO)            
                    DLYJOB     DLY(3600)                         
                    GOTO       CMDLBL(RETRY)                     
             ENDDO                                        
                                                          
 /*  ADJUST THE UTC OFFSET AND THE HOUR  */               
             CHGVAR     VAR(&HOURN) VALUE(&QHOUR)         
             CHGVAR     VAR(&HOURN) VALUE(&HOURN + 1)     
             CHGVAR     VAR(&QHOUR) VALUE(&HOURN)         
             CHGSYSVAL  SYSVAL(QHOUR) VALUE(&QHOUR)       
                                                          
             CHGSYSVAL  SYSVAL(QUTCOFFSET) VALUE('-0700') 
                                                          
 /*  CYCLE THE *MGTC SERVERS             */               
             ENDTCPSVR  SERVER(*MGTC)                     
             DLYJOB     DLY(60)                           
             STRTCPSVR  SERVER(*MGTC)                     

 /*  SET LOCALE                          */  
            CHGSYSVAL  SYSVAL(QLOCALE) +                       
            VALUE('/QSYS.LIB/LOCALELIB.LIB/EN_USDST.LOCALE') 

Isn't it much simplier now shinc there is some type of time management process 
in iSeries Navigator that adjusts the time forward slowley over a specified 
time period? Do only have to change the QTIMZON system value or is there more 
to it than that?

 

Kenneth

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Jones, John (US)
Sent: Monday, February 27, 2006 9:31 AM
To: Midrange Systems Technical Discussion
Subject: RE: Daylight savings time question. V5R3

John.