RE: Moving *ISO date to *MDY date in Free Format

// IF CMSTART is numeric 8.0
MDYDATE = %Dec(%Date(CMSTART:*ISO):*MDY);
// If CMSTART IS 8 CHAR ALPHA
MDYDATE = %Dec(%Date(CMSTART:*ISO0):*MDY);
// If cmstart is 10 CHAR ALPHA WITH DATE SEPARATOR '/'
MDYDATE = %Dec(%Date(CMSTART:*ISO/):*MDY);
// If cmstart is 10 CHAR ALPHA WITH DATE SEPARATOR '-'
MDYDATE = %Dec(%Date(CMSTART:*ISO-):*MDY);

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Alan Campin
Sent: Tuesday, February 02, 2010 2:58 PM
To: RPG programming on the IBM i / System i
Subject: Re: Moving *ISO date to *MDY date in Free Format

ADATEFIELD = %Date(CMSTART:*ISO);
MDYFIELD = %Date(ADATEFIELD:*MDY)

On Tue, Feb 2, 2010 at 12:10 PM, Smith, Mike
<Mike_Smith@xxxxxxxxxxxxxxxx>wrote:

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.