RE: Converting Dates to *ISO

["Jim Langston" <jlangston@xxxxxxxxxxx>]

*MDY   TEST(D)  MMDDYY              99
       If       *IN99 = *Off
*MDY   MOVE     MMDDYY     ISODate
       Else
       Eval     ISODate = *LOVAL
       EndIf

Perhaps you are forgetting to use the *MDY on the move statement?

Regards,

Jim Langston
Programmer/Analyst
Cels Enterprises, Inc.

-----Original Message-----
From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
Behalf Of Malchow, Grizzly
Sent: Thursday, August 23, 2001 5: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