RE: Classic Traps -- I need your input! -- RPG400-L

Understandable and reasonable strategic.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Francis Lapeyre
Sent: Tuesday, April 01, 2008 11:01 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Classic Traps -- I need your input!

Again: management at the time did not wat to convert all of our 500+ RPG
III programs to RPG IV/ILE. I had a hard enough time convincing them to
even let me write and implement my date programs in RPG IV. You have to
pick and choose your battles.

On Tue, Apr 1, 2008 at 10:44 AM, Mark Walter <MWalter@xxxxxxxxxxxxxxx>
wrote:

I don't blame you. I wouldn't use it either. With the BIFs provided in

RPV IV, I see no need for this, unless you have special functionality

needed.

I.e. 4-4-5 accounting periods, stuff like that.

Mark Walter
Paragon Consulting Services, Inc.
IBM Certified System i Specialist
717-764-7909 Ext. 26
mwalter@xxxxxxxxxxxxxxx
www.paragon-csi.com

"Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxxxxxxxxx> Sent by:
rpg400-l-bounces@xxxxxxxxxxxx
04/01/2008 11:33 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>

To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx> cc

Subject
RE: Classic Traps -- I need your input!

Just curious on the purpose of creating your own date routine?

We also have one in our system and I've never use it (A lot of
developers here uses it though). Look at the parms and you will know
why I never use it:
DATECODE A 10 1 10 Date Transaction Code
CENTURY1 S 2 0 11 12 Date 1 Century
YEAR1 S 2 0 13 14 Date 1 Year
MONTH1 S 2 0 15 16 Date 1 Month
DAY1 S 2 0 17 18 Date 1 Day
JUL100YR1 S 5 0 19 23 Date 1 Julian or 100

Year

FORMAT1 A 4 24 27 Date 1 Format
CENTURY2 S 2 0 28 29 Date 2 Century
YEAR2 S 2 0 30 31 Date 2 Year
MONTH2 S 2 0 32 33 Date 2 Month
DAY2 S 2 0 34 35 Date 2 Day
JUL100YR2 S 5 0 36 40 Date 2 Julian or 100

Year

FORMAT2 A 4 41 44 Date 2 Format
DAYOFWEEK S 1 0 45 45 Numeric Day of the Week

SIGNDIFF A 1 46 46 Difference Sign Value
(+,-,' '
YEARDIFF S 7 0 47 53 Difference in Years

MONTHDIFF S 7 0 54 60 Difference in Months

DAYDIFF S 7 0 61 67 Difference in Days

DATEERROR A 7 68 74 Error Return

CLOSEPGM A 1 75 75 Close Program Flag

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Francis Lapeyre
Sent: Tuesday, April 01, 2008 8:20 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Classic Traps -- I need your input!

<clip>

Anyway, the old routines were using Julian dates (ouch!), and did not
account for leap year at all (Feb. 29 simply did not exist). I came up

with four or five callable programs written in RPG IV that did all the

date calcs. All of them are still in use today (we also have a service

program version of them for use in "true ILE" programs).

</clip>
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/rpg400-l.

--
Francis Lapeyre

Da mihi sis crustum Etruscum cum omnibus in eo.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.