|
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.
As an Amazon Associate we earn from qualifying purchases.
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.
midrange.com
