Re: Can date math be done in CL ?

[booth@xxxxxxxxxxxx]

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

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? 

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.

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




MacWheel99@aol.com
Sent by: owner-midrange-l@midrange.com
11/11/2000 11:17 AM
Please respond to MIDRANGE-L

 
        To:     MIDRANGE-L@midrange.com (AS400 & family discussion group)
        cc: 
        Subject:        Can date math be done in CL ?

Standard scenario ..
CL sets up prompt screen
user choices on prompt screen control choices which RPG JOBQ printer data 
ranges

I want prompt screen default date selection range to pre-compute thru 2 
weeks 
into the future

I can write then call an RPG program to translate what that is from today 
date.
Is there a standard CMD or API already available to do this?

hypothetical example

RTVSYSVAL QDATE &TODAY

CALL   QSYS/QDATEMATH 
DAYS(14)   DIRECTION(*PLUS)   START(&TODAY)   RESULT(&RESULT)

Alister William Macintyre 
Computer Data Janitor etc. of BPCS 405 CD Rel-02 on 400 model 170 OS4 V4R3 

(forerunner to IBM e-Server i-Series 400)  @ http://www.cen-elec.com Central 
Industries of Indiana--->Quality manufacturer of wire harnesses and 
electrical sub-assemblies

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