RE: *MDY into an 8 digit date.

[jerickson@xxxxxxx]

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 ]
True, I believe it'd be 00011702.  The *MDY is a six digit representation of
the date.


Regards,
Jon A. Erickson
Sr. Programmer Analyst
800.COM Inc.
1516 NW Thurman St
Portland, OR  97209-2517

Direct: 503.944.3613
Fax: 503.943.9313
Web: http://www.800.com


-----Original Message-----
From: rob@dekko.com [mailto:rob@dekko.com]
Sent: Thursday, January 17, 2002 6:07 AM
To: rpg400-l@midrange.com
Subject: *MDY into an 8 digit date.



     D WorkDate        S               D   Datfmt(*ISO) INZ(*JOB)
     D EightDigits     S                   like(Digit8Date)
     D Digit8Date                     8S 0 CONST
     C     *MDY          Move      WorkDate      EightDigits

Shouldn't the contents of EightDigits be 011702 and not 20011702?

I use 8 digits because this is only a part of a generic subprocedure.

Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin

_______________________________________________
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.