RE: Date compare Best Practices

Oops.  There is an error in the last C-spec.  It should be MOVEL instead of 
MOVE. 

         C                              MOVETOYR                        TOYMD

Should be
         C                              MOVELTOYR               TOYMD

Rick

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Chevalier, Rick
> Sent: Wednesday, February 25, 2004 8:57 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: RE: Date compare Best Practices
> 
> 
> 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.
> > 
> > 
> 
> _______________________________________________
> 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.
> 
>