RE: Moving a date field to a numeric field

Joe,

The MDY, YMD, and DMY formats are 6-positions of date. That is they do not 
expose the century to the "user".

To get the fully date, including the century, you need to use *ISO, or *USA 
on your MOVE operations. Factor 1 of the MOVE indicates either:

(a) The format of the date value stored in Factor 2, when Factor 2 contains 
a non-date field, such as a numeric or character field.
(b) The format that the date field specified in Factor 2 is convert to when 
it is stored in the non-date field specified in the Result field.

So this means it doesn't matter what the actual DATE field's format is, the 
non-date field format is specified in Factor 1.

Bob Cozzi


On Friday, June 13, 1997 8:37 PM, Joe Teff [SMTP:jteff19@IDT.NET] 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
>
> 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.
>
> Joe Teff



Bob Cozzi
Bob@rpgdev.net
http://www.rpgdev.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   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *