× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: Re: Can date math be done in CL ?
  • From: booth@xxxxxxxxxxxx
  • Date: Sun, 12 Nov 2000 04:41:59 GMT

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

As an Amazon Associate we earn from qualifying purchases.

This thread ...


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

This mailing list archive is Copyright 1997-2024 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].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.