RE: Real rookie question

Job scheduler should run the job Monthly on the 1st and Last Sunday at
02:00
Checking for 15th tells pgm whethe rit's the 1st or last Sunday.
...Neil





"Condon, Mike" <M1C@ingersoll-imc.com>
Sent by: midrange-l-admin@midrange.com
2001/10/31 09:57
Please respond to midrange-l


        To:     "'midrange-l@midrange.com'" <midrange-l@midrange.com>
        cc:
        Subject:        RE: Real rookie question


Do you run this through the scheduler, and if so, how do you prevent it
from
running
over & over?
And what is the significance of the 15th day rather than the last
saturday?

-----Original Message-----
From: Robert Perno [mailto:r_perno@wshein.com]
Sent: Wednesday, October 31, 2001 6:36 AM
To: 'midrange-l@midrange.com'
Subject: 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?