RE: Date Conversion

["Feador, Jerry" <JFeador@xxxxxxxxxx>]

Thanks Don,
No I don't have to use a data structure, I was just trying to get a DS to do
the work and eliminate all of the moves...
i.e.
D                             DS
D Character_Date                                1      8
D Date_Field                                   D
Overlay(Character_Date) ??????????(or something like this)


-----Original Message-----
From: Fisher, Don [mailto:Dfisher@roomstoreeast.com]
Sent: Wednesday, May 15, 2002 7:37 AM
To: 'rpg400-l@midrange.com'
Subject: RE: Date Conversion


Do you have to use a data structure?

If you have eight digits, I suggest using a date field to perform the
conversions.  The specification would look something like this (column
positions not accurate):
D DateField            S            D    DATFMT(*ISO)

C  *<format of date>     MOVE    Wk8DigFld    DateField
C  *<desired date format> MOVE   DateField    WkNewField

Supported date formats may be found in the ILE RPG Reference manual for your
operating system release.

Hope that helps.

Donald R. Fisher, III
Project Manager
The Roomstore Furniture Company
(804) 784-7600 extension 2124
DFisher@roomstoreeast.com


-----Original Message-----
From: Feador, Jerry [mailto:JFeador@Kiausa.com]
Sent: Wednesday, May 15, 2002 10:36 AM
To: 'rpg400-l@midrange.com'
Subject: Date Conversion



Greetings Program, (Tron ref.)

Does anybody know of a way that an 8 digit character or numeric value in a
field can be converted into a date format field by utilization of a data
structure only?

My test say probably not due to the size differential (8 to 10), but one of
you geniuses out there may know of a trick or two.

I've just got a legacy program with a gazillion move-to-date-field
operations that I'm trying to streamline.

Thanks,
Capt.j
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
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@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.