× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



There is nothing wrong with using the "MULT 10000.01" technique in RPGIII. I
do it every time I need to convert a date in that old language.
If you use it in RPG IV, then you are right it is a questionable choice.
The only other technique in RPG III is to use a data structure, but that can
be a bit more complex that the MULT. If you haven't seen it before then it
doesn't matter which one you use because the person maintaining the code
after you will have to deal with it, so just be sure to document it
properly.
-Bob

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of jfs@xxxxxxx
Sent: Thursday, February 26, 2004 2:07 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Date compare Best Practices

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




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




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.