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

["Eric Wolf" <eric_a_wolf@xxxxxxxxxxx>]

[ Converted text/html to text/plain ]

Richard,

Is the file coming from a download of a Windows product (ie: Excel)?  If so, I
believe there is a global setup to change the dates to MM/DD/YY.  This way you
do not have to worry about the single digit month or day.  I had the exact
same problem at a customer site and did not know about the Global Date change
until I wrote the entire extraction routine.  It was a pain.

Eric A. Wolf
>From: "Richard B Baird"
>Reply-To: rpg400-l@midrange.com
>To: rpg400-l@midrange.com
>Subject: Converting alpha dates to date data type fields (m/d/yy)
>Date: Fri, 20 Sep 2002 16:07:16 -0500
>
>
>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.
>

------------------------------------------------------------------------------
Send and receive Hotmail on your mobile device: Click Here[1]

===References:===
  1. http://g.msn.com/1HM1ENUS/c152??PI=44364