Re: Date compare Best Practices

[rob@xxxxxxxxx]

Arrgh!  He's converting a newbie to the dark side!  Who all wants to get 
together at COMMON and "pants" this guy?

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





jfs@xxxxxxx 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
02/26/2004 08:27 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


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

Fax to

Subject
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.
> 
> 
> 




_______________________________________________
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.