Re: Classic Traps -- I need your input!

["Francis Lapeyre" <flapeyre@xxxxxxxxx>]

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.