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