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

["Johnson, Duane" <djohnson@xxxxxxxxxxxxx>]

Try this. Translate " " to "0" and then convert.
Duane

> -----Original Message-----
> From: Richard B Baird [SMTP:rbaird@esourceconsulting.com]
> Sent: Friday, September 20, 2002 4:07 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.