• Subject: Re: Can date math be done in CL ?
  • From: "Simon COulter" <shc@xxxxxxxxxxxxxxxxx>
  • Date: Sun, 12 Nov 00 12:08:59 +1100

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 thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].