Re: Date compare Best Practices

Sorry about that, I missed one zero, it should be:

C       dspfld    mult     10000.0001    wrkfld

It will also work to convert a YYYYMMDD 8.0 numeric date to MMDDYYYY.

Joe 

Quoting simafrog <SimaFrog@xxxxxxxxxx>:

> This doesn't appear to be working correctly.
> 
> > -----Original Message-----
> > From: jfs@xxxxxxx [mailto:jfs@xxxxxxx]
> > Sent: Wednesday, February 25, 2004, 12:05 PM
> > To: RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> > Subject: Re: Date compare Best Practices
> > 
> > Rob,
> > 
> > As long as you're only wanting to reverse the two entered fields, you can 
> > create a work field that is 8.0 and use the following command.
> > 
> > C       dspfld    mult     1000.0001    wrkfld
> > 
> > This will change the display date from MMDDYYYY to YYYYMMDD.  This isn't an
> 
> > efficient method to use for a large number of date reversals, but for just
> a 
> > few, it works ok.
> > 
> > Joe
> > 
> > Quoting simafrog <SimaFrog@xxxxxxxxxx>:
> > 
> > > 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.
> > 
> _______________________________________________
> 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.
> 
> 
>