Re: *MDY into an 8 digit date.

[MWalter@xxxxxxxxxxxxxxx]

Couldn't you use:

C/free
C eval datefield = %date()
c/end-free

Thanks,

Mark


Mark Walter
Sr. Programmer/Analyst
Hanover Wire Cloth a div of CCX, Inc.
mwalter@hanoverwire.com
http://www.hanoverwire.com
717.637.3795 Ext.3040



                    rob@dekko.com
                    Sent by:                 To:     rpg400-l@midrange.com
                    rpg400-l-admin@mi        cc:
                    drange.com               Subject:     Re: *MDY into an 8 
digit date.


                    01/17/02 10:37 AM
                    Please respond to
                    rpg400-l







And your simple test works quite well.
However if I change one line to:
     D EightDigits     S                   like(Digit8Date) inz(99999999)
Then the result is:
99011702

D*mn the archaic move!  Please give is a free format version to convert
dates to numerics!

My workaround is to clear the field prior to the move.

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



                    "Brian Parkins"
                    <PARKIB@uk.ibm.co       To:     RPG400-L@midrange.com
                    m>                      cc:
                    Sent by:                Fax to:
                    rpg400-l-admin@mi       Subject:     *MDY into an 8
digit date.
                    drange.com


                    01/17/2002 09:57
                    AM
                    Please respond to
                    rpg400-l






The result will be 011702 - if your coding looks like:

D WorkDate        S               D   Datfmt(*ISO) INZ(*JOB)
D EightDigits     S                   like(Digit8Date)
D Digit8Date      S              8S 0

C     *MDY          Move      WorkDate      EightDigits

 /Free

   Dsply EightDigits '*REQUESTER';
   *InLR = *On;

 /End-Free

Note that Digit8Date is standalone with no CONST keyword.

Brian Parkins

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





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