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



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?
_______________________________________________
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.
_______________________________________________
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.


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.