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

[Gary Guthrie <garyguthrie@xxxxxxxxxxx>]

d $CDate          S               D   DATFMT(*ISO)

c                   if        %len(%trim(CBDATE)) = 7
c                   eval      CBDATE = '0' + %trim(CBDATE)
v                   endif
c     *mdy/         move      CBDATE        $CDate

Gary Guthrie


Richard B Baird wrote:
>
> 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.