Re: Handling Dates (replacement for MULT 10000.01/1000.001)

Thanks Bill !

I'll try it out !

Chuck

Bill Meecham wrote:

> Chuck,
>
> Here's a data structure trick (non-ISO), shown in
> RPG 3 style but you'll get the idea.
>
>     1      40      CY1
>     5      60     MM
>     7      80    DD
>     1       80    YMD
>     9     120    CY2
>     5     120    MDY
>
> If you have a CYMD:  move it to YMD and then move
> CY1 to CY2 or
> if  you have a MDCY:  move it to MDY and then move
> CY2 to CY1.
> Now you have the date either way you want it with
> only 2 z-add's.
> Make this a generic routine and pass in a
> directional variable so you know which way to
> convert and you've got date handling a la carte.
>
> Just a thought.
>
> Bill
>
> -----Original Message-----
> From: Chuck Lewis <CLEWIS@IQUEST.NET>
> To: MIDRANGE-L@midrange.com
> <MIDRANGE-L@midrange.com>
> Date: Tuesday, September 15, 1998 11:37 AM
> Subject: Handling Dates (replacement for MULT
> 10000.01/1000.001)
>
> >Hi Folks !
> >
> >I KNOW many people in the past have condemed the
> use of the MULT
> >statements to convert dates from YYMMDD to MMDDYY
> but I also know that
> >TONS of folks used this too...
> >
> >How are you handling this with "full" dates ? I'm
> setting up some test
> >programs (we use package software that is Y2K
> ready) of my own and have
> >a test file with YEAR, MONTH and DAY sorted by
> YEAR so it works like
> >YYMMDD but is there an "easy way" to edit this
> other than a data area (I
> >know, lazy...)...
> >
> >Or how are you handling this ?
> >
> >Thanks,
> >
> >Chuck
> >
> >
> >+---
> >| This is the Midrange System Mailing List!
> >| To submit a new message, send your mail to
> MIDRANGE-L@midrange.com.
> >| To subscribe to this list send email to
> MIDRANGE-L-SUB@midrange.com.
> >| To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> >| Questions should be directed to the list
> owner/operator: david@midrange.com
> >+---
>
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---