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



Ooops meant to say

Isn't that a song?????

 
Joel B. Harvell
Food Lion, LLC
(704) 633-8250 x2709
jbharvell@xxxxxxxxxxxx

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Harvell, Joel
Sent: Sunday, October 29, 2006 10:41 AM
To: Midrange Systems Technical Discussion
Subject: RE: Changing the system clock this weekend...

Does anyone really know what time it is???

Isn't that a son...


:-P


 
Joel B. Harvell
Food Lion, LLC
(704) 633-8250 x2709
jbharvell@xxxxxxxxxxxx

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Neil Palmer
Sent: Sunday, October 29, 2006 12:41 AM
To: Midrange Systems Technical Discussion
Subject: Re: Changing the system clock this weekend...

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-Ups:

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.