RE: Date compare Best Practices

[<Rick.Chevalier@xxxxxxxxxxxxxxx>]

Rob,

This code isn't tested and I haven't coded RPGIII for a while, but IIRC this 
should do what you want or at least get you pretty close.

I               DS
I                               1       80 FRMMDY
I                               1       4   FRMMD
I                               5       8   FRMYR

I               DS
I                               1       80 TOMDY
I                               1       4   TOMD
I                               5       8   TOYR

C               *LIKE           DEFN    FRMMDY          FRMYMD
C               *LIKE           DEFN FRMMDY             TOYMD

C                               MOVE FRMMD              FRMYMD
C                               MOVELFRMYR              FRMYMD
C                               MOVETOMD                        TOYMD
C                               MOVETOYR                        TOYMD

There are, of course, variations on how to do this depending on personal 
preference, data types, etc.

Rick
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of simafrog
> Sent: Wednesday, February 25, 2004 8:11 AM
> To: RPG programming on the AS400 / iSeries
> Subject: Date compare Best Practices
> 
> 
> Hi,
> I am looking to take two dates entered and passed to a work 
> file build program. They are passed as MMDDYYYY from and to 
> dates. They will be compared with from and to dates in a 
> master file and then records are selected that pass. Since I 
> have already written the first program that accepts the entry 
> from the user I can perhaps change my order in the program 
> there. THe presentation to the user must be in the order 
> described. So far I can only recall that I would take each 
> date and rearrange it with a series of MOVES into a Data 
> Structure. I am interested if there are better ways again 
> unfortunately in the older versions of RPG.
> Thanks,
> Rob
> _______________________________________________
> 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.
> 
>