Re: Date compare Best Practices

[jfs@xxxxxxx]

Rob,
I'm sorry if I offended your sensibities with my attempt at helping someone 
else.  Don't worry, I don't intend to EVER do it again.  I'm removing myself 
from this list to prevent the temptation.

By the way BIG MOUTH if you ever want to try "pants" me, come on down and I'll 
show you some real southern hospitality!

Joe

Quoting rob@xxxxxxxxx:

> Ok, so we can "pants" him also.
> 
> Rob Berendt
> -- 
> Group Dekko Services, LLC
> Dept 01.073
> PO Box 2000
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com
> 
> 
> 
> 
> 
> MWalter@xxxxxxxxxxxxxxx 
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 02/26/2004 09:57 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
> 
> 
> 
> 
> 
> 
> 
> Hey, we've all done this in a pinch. Plus, I believe this guy is running
> RPGIII.
> 
> Thanks,
> 
> Mark
> 
> Mark D. Walter
> Senior Programmer/Analyst
> CCX, Inc.
> mwalter@xxxxxxxxxx
> http://www.ccxinc.com
> 
> 
> |---------+----------------------------->
> |         |           rob@xxxxxxxxx     |
> |         |           Sent by:          |
> |         |           rpg400-l-bounces@m|
> |         |           idrange.com       |
> |         |                             |
> |         |                             |
> |         |           02/26/2004 09:10  |
> |         |           AM                |
> |         |           Please respond to |
> |         |           RPG programming on|
> |         |           the AS400 /       |
> |         |           iSeries           |
> |         |                             |
> |---------+----------------------------->
>  
> >-----------------------------------------------------------------------------
-------------------------------------------------|
>   |                                                       |
>   |       To:       RPG programming on the AS400 / iSeries 
> <rpg400-l@xxxxxxxxxxxx>                                               |
>   |       cc:                                                       |
>   |       Subject:  Re: Date compare Best Practices            |
>  
> >-----------------------------------------------------------------------------
-------------------------------------------------|
> 
> 
> 
> 
> 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.
> 
> 
> _______________________________________________
> 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.
> 
> 
>