RE: Real rookie question

Try this out - works great for us.

0              PGM
0              DCL        VAR(&MONTH) TYPE(*CHAR) LEN(2)
0              DCL        VAR(&DAY) TYPE(*CHAR) LEN(2)
0              DCL        VAR(&HOUR) TYPE(*CHAR) LEN(2)
0              DCL        VAR(&HOUR#) TYPE(*DEC) LEN(2 0)
0              RTVSYSVAL  SYSVAL(QMONTH) RTNVAR(&MONTH)
0              RTVSYSVAL  SYSVAL(QDAY) RTNVAR(&DAY)
0              RTVSYSVAL  SYSVAL(QHOUR) RTNVAR(&HOUR)
0              CHGVAR     VAR(&HOUR#) VALUE(&HOUR)
0              IF         (&MONTH = '04' *AND &DAY < '15') +
0                           THEN(CHGVAR VAR(&HOUR#) VALUE(&HOUR# + 1))
0              IF         (&MONTH = '10' *AND &DAY > '15') +
0                           THEN(CHGVAR VAR(&HOUR#) VALUE(&HOUR# - 1))
0              CHGVAR     VAR(&HOUR) VALUE(&HOUR#)
0              CHGSYSVAL  SYSVAL(QHOUR) VALUE(&HOUR)
0              ENDPGM
  ****************** End of data ****************************************

Robert D. Perno
Sr. Programmer/Analyst
William S. Hein & Co., Inc.

-----Original Message-----
From: Norbut, Jim [mailto:Jim.Norbut@Grubb-Ellis.com]
Sent: Tuesday, October 30, 2001 3:33 PM
To: 'midrange-l@midrange.com'
Subject: RE: Real rookie question


I hope the answer is NO (at least with the standard OS/400....not any
special 3rd party utilities)
because I sure would feel dumb if it isn't. I have been doing it manually
since V4R3.

Jim


 -----Original Message-----
From:   Condon, Mike [mailto:M1C@ingersoll-imc.com]
Sent:   Tuesday, October 30, 2001 2:33 PM
To:     'midrange-l@midrange.com'
Subject:        Real rookie question

Is there a way to have the AS400 (v4r5) automatically adjust for the
beginning/end of daylight savings time?
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.