Re: Can date math be done in CL ?

[booth@xxxxxxxxxxxx]

Actually, in this scenario I'd prefer to have the date routine in the 
RPGIV too but I'd also include the prompt window in the RPGIV too.  It is 
so much easier.  But the request was for CL. 

_______________________
Booth Martin
Booth@MartinVT.com
http://www.MartinVT.com
_______________________




"Simon COulter" <shc@flybynight.com.au>
Sent by: owner-midrange-l@midrange.com
11/11/2000 08:08 PM
Please respond to MIDRANGE-L

 
        To:     MIDRANGE-L@midrange.com
        cc: 
        Subject:        Re: Can date math be done in CL ?

D
Hello Booth,

You wrote:
>Several choices come to mind but all of them revolve around knowing the 
>Julian day of the year.

It would seem easier to write an RPG IV program that does the date 
calculation and 
returns the appropriate value.  It could be a *PGM or procedure.  Call it 
from CL.

>What happens if you:
>retrieve today's date, 
>CVTDAT to format *LONGJUL,
>do a CHGVAR into a numeric field, 
>then add 14 to the numeric value? 

What happens if you add 14 to the Julian representation of Dec 20th?  You 
need to add 
code to check for the year boundary and allow for leap years.  All those 
problems 
disappear if you use an RPG IV routine.

>Then CHGVAR from the new numeric value to *LONGJUL and 
>CVTDAT the *LONGJUL to *MDY for your screen layout?

>Obviously you'd think to deal with a resulting number like 2000367.

That's a valid Julian day since 2000 is a leap year.

Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175      Mobile: +61 0411 091 400           «»
«» Fax:   +61 3 9419 0175      mailto: shc@flybynight.com.au      «»
«»                                                                «»
«» Windoze should not be open at Warp speed.                      «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
+---
| 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
+---