Re: Moving a date field to a numeric field

Joe Teff 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.
> 

Is this what you're looking for:

  C             *ISO           Move         DateISO     Number8
   *      Number8 would now contain 19970613

In the MOVE operations between a date data type field and numeric (or
character) field, the value in factor 1 (*MDY, *YMD, *ISO, *JUL, etc.)
refers
to the format of the data in the field that is _not_ a date data type.

HTH.

-- 
-Jeff

jlcrosby@fwi.com
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *