Re: Converting alpha dates to date data type fields (m/d/yy)

--
--
[ Picked text/plain from multipart/alternative ]
Maybe define an 8-char field, then:

   C      MOVE   '00000000'  Tmp8
   C      MOVE   CBDATE    Tmp8

Use Tmp8 for your existing calcs.   Not neat and spiffy, but reliable and
clear.




---------------------------------------------------------
Booth Martin   http://www.MartinVT.com
Booth@MartinVT.com
---------------------------------------------------------

-------Original Message-------

From: rpg400-l@midrange.com
Date: Friday, September 20, 2002 05:12:27 PM
To: rpg400-l@midrange.com
Subject: Converting alpha dates to date data type fields (m/d/yy)

I'm trying to convert a date field from an ascii file to an rpg date data
type.

The date coming in is an 8 byte alpha field in the format of mm/dd/yy BUT
when the month or the day is less than 10, it only serves one digit -

i.e. 09/05/02 shows up as 9/5/02. I have no control over what this file
looks like when it arrives.

I tried converting it using the following code:

d $CDate S D DATFMT(*ISO)

c *mdy/ move CBDATE $CDate

but I get an error that '8/23/02 ' is an invalid date.

short of searching for slashes and manipulating this alpha field with
substrings to extract the date, is there an easy way to convert these?

thanks,

Rick

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

.
--
[ Content of type image/gif deleted ]
--