Re: Moving a date field to a numeric field

Joe Toff wrote:

>I discovered something about moving a date field to a numeric field defined
as 8
>digits. I'm on V3R1.
>
>D Date6                       S                  6   0  Inz(061397)
>D DateISO                   S                    D     DatFmt(*ISO)
>D Number8                  S                  8   0
>
>C            *MDY           Move          Date6        DateISO
>  *      DateISO now contains 1997-06-13
>
>C             *YMD           Move         DateISO     Number8
>  *      Number8 now contains 00970613
>
>C             *MDY           Move         DateISO     Number8
>  *      Number8 now contains 00061397

*YMD fields can only be in the range of 1940 to 2039.  A *YMD date field is
6 digits long.  From the ILE RPG/400 Reference  Manual:

| When moving a value to a date field, keep in mind that factor 1 determines 
| the number of digits to be moved. If the format of Factor 1 contains 6 
| digits as in the case of *YMD, and Factor 2 is a numeric field, the 
| rightmost 6 digits of Factor will be converted to the date. 

My guess is if you initialize Number8 to 99999999 BEFORE the move, it will
have a value of 99970613 or 99061397 AFTER the move since only the last 6
characters will be effected.
>
>Am I missing something here, or can you not get an 8 digit date moved from
>a data field to a numeric field? Is this unique to V3R1? Thanks for any help.

You can get an 8 digit date field moved to an 8 digit numeric field if you
use a four digit year format, e.g. *ISO, *EUR, *JIS, or *USA in factor 1.
>


Charlie Massoglia, Massoglia Technical Consulting, Inc.
PO Box 1065, Okemos, MI 48854, USA
517-676-9700  Fax: 517-676-1006  EMAIL: cmassoglia@voyager.net


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *