Mike,
Try this:
ISODate = %Date(cmStart :*ISO); // Assuming cmStart is in *ISO format
MDYDate = %Dec(ISODate :*MDY);
Rick
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Smith, Mike
Sent: Tuesday, February 02, 2010 1:10 PM
To: RPG programming on the IBM i / System i
Subject: Moving *ISO date to *MDY date in Free Format
This is probably simple to do, but I'm struggling.
I converted an existing program to Free, however, this didn't convert.
How do I convert this ?
C *ISO Move CMSTART ISODATE
C *MDY Move ISODATE MDYDATE
ISODATE is defined in my D specs
MDYDATE is a field defined in my Display file 6.0 using a 'Y' edit code.
Thanks
Mike
NOTICE: This message, including any attachment, is intended as a confidential and privileged communication. If you have received this message in error, or are not the named recipient(s), please immediately notify the sender and delete this message.
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
Privileged and Confidential. This e-mail, and any attachments there to, is intended only for use by the addressee(s) named herein and may contain privileged or confidential information. If you have received this e-mail in error, please notify me immediately by a return e-mail and delete this e-mail. You are hereby notified that any dissemination, distribution or copying of this e-mail and/or any attachments thereto, is strictly prohibited.
midrange.com
