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