Re: Date manipulation in CL

[Peter Vidal <Peter_Vidal@xxxxxxxx>]

You can do this:

START:      PGM 
 
            DCL        VAR(&SYSDATE) TYPE(*CHAR) LEN(6) 
            DCL        VAR(&NEWDATE) TYPE(*CHAR) LEN(8) 
 
            RTVSYSVAL  SYSVAL(QDATE) RTNVAR(&SYSDATE)
 
            (***) Substract 14 days
 
            CHGVAR     VAR(&NEWDATE) VALUE(&SYSDATE) 
            CVTDAT     DATE(&NEWDATE) TOVAR(&NEWDATE) FROMFMT(*MDY) + 
                         TOFMT(*YYMD) TOSEP(*NONE) 
 
END:        ENDPGM                                                     

(***) You can use this link to have an idea of how to calculate the date:
http://whatis.techtarget.com/tip/1,289483,sid3_gci1003100,00.html

Hope this helps,
Good luck!


Peter Vidal 
PALL Corporation / SR Programmer Analyst, IT Development Group
10540 Ridge Rd., Ste 203, New Port Richey, FL 34654-5111
http://www.pall.com

"Joy is not in things; it is in us. "
Richard Wagner




"Douglas Palme" <dpalme@xxxxxxxxxxx> 
Sent by: midrange-l-bounces@xxxxxxxxxxxx
10/26/2006 10:38 AM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
<midrange-l@xxxxxxxxxxxx>
cc

Subject
Date manipulation in CL






I have been searching google for some info on how to manipulate dates in 
CL
but am coming up somewhat shorthanded.  Specifically, I am looking to
extract the current system date, subtract a number of days to get a new 
date
and then convert it to a string with the century..

 

Similar to the following:

 

Current system date: 10/26/2006

Subtract 14 days: 10/12/2006

Retrieve century: 06

 

Convert date: 20061012

 

I just have not been able to find much in the way of CL for this..any
helpful links?

 

D.W.



****************************************************************************
This transmission may contain information that is privileged,
Confidential and/or exempt from disclosure under applicable law.
If you are not the intended recipient, you are hereby notified that
any disclosure, copying, distribution, or use of the information
contained herein (including any reliance thereon) is STRICTLY
PROHIBITED. If you received this transmission in error, please
immediately contact the sender and destroy the material in its
entirety, whether in electronic or hard copy format. Thank you.
****************************************************************************