RE: Converting Dates to *ISO

Numeric MMDDYY must be defined as 6,0.
Character MMDDYY must be defined as 8,0.

If this is the same program, you can't do that.

If you try different lengths, it will not work.

_________________
Art Tostaine, Jr.
CCA, Inc.
Jackson, NJ 08527

> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
> Behalf Of Reeve Fritchman
> Sent: Thursday, August 23, 2001 9:18 AM
> To: rpg400-l@midrange.com
> Subject: RE: Converting Dates to *ISO
>
>
> If numeric (MMDDYY)
> *MDY     move     MMDDYY     ISO_date
>
> If character (MM/DD/YY):
> *MDY/     move    MMDDYY     ISO_date
>
> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
> Behalf Of Malchow, Grizzly
> Sent: Thursday, August 23, 2001 8:53 AM
> To: 'rpg400-l@midrange.com'
> Subject: Converting Dates to *ISO
>
> This message is in MIME format. Since your mail reader does not understand
> this format, some or all of this message may not be legible.
> --
> [ Picked text/plain from multipart/alternative ]
> Hello,
> I am trying to convert a date into *ISO format.  I have tried using
> converting with the built in functions *MDY to *ISO, *YMD to *ISO, and *CYMD
> to *ISO.  I can't even compile the program unless the field I am trying to
> convert from is 10 characters long. Even when I try that the date doesn't
> get converted correctly. Does anyone have any suggestions?
>
> I thank you in advance.
>
> Grizzly Malchow - Programmer/Analyst
> Gross-Given Mfg./Automatic Products International
> gmalchow@automaticproducts.com
> http://www.automaticproducts.com/
>
> Visit The St. Paul Pigs Rugby Football Club Website!
> http://www.saintpaulrugby.com
>
>
> _______________________________________________
> 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
>
> _______________________________________________
> 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
>