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.
>
> Joe Teff
> QDS
> Bloomington, MN

Jeff: To move a date field to a numeric field, you specify the numeric
field's date format in Factor 1 of the MOVE. Try:


C             *ISO           Move         DateISO     Number8
                          ^^^^

and

C             *USA           Move         DateISO     Number8
                         ^^^^

to move to 8-digit fields. After the first MOVE, Number8 will be
19970613. After the second, it will be 06131997. Hope this helps.

--
Francis Lapeyre                    flapeyre@communique.net
----------------------------------------------------------
"The probability of life originating from accident is
comparable to the probability of the Unabridged Dictionary
resulting from an explosion in a printing factory."

Prof. Edwin Conklin

****** If you spam me, you will incur the wrath of your Internet **
****** Service Provider. I KNOW who you REALLY are!!***************

Opinions are my own. Otherwise, they are someone else's.


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *