RE: Date Conversion

There used to be an ADDDAT command in TAA Tools - some of our older CLs
referenced it. I also wrote an updated ADDDATE command to add/subtract days,
weeks, months, or years from a date (using RPG IV).

Can't you also use the CEE* APIs for date manipulation in CL? I seem to
remember Scott K. doing that.

Loyd Goodbar
Senior programmer/analyst
BorgWarner
E/TS Water Valley
662-473-5713
-----Original Message-----
From: fbocch2595@xxxxxxx [mailto:fbocch2595@xxxxxxx] 
Sent: Monday, May 01, 2006 09:18
To: midrange-l@xxxxxxxxxxxx
Subject: Date Conversion

Hi, can someone explain how to use cl to calculate dates properly?  
 
I'm using the following;
 
/* RETRIEVE THE CURRENT SYSTEM DATE & TIME */                             
             RTVSYSVAL  SYSVAL(QDATE) RTNVAR(&SYSDAT)                     
             RTVSYSVAL  SYSVAL(QTIME) RTNVAR(&SYSTIM)                     
                                                                          
/* CONVERT THE CURRENT DATE FROM MMDDYY TO YYYYMMDD */                    
             CVTDAT     DATE(&SYSDAT) TOVAR(&SYSYYMD) FROMFMT(*MDY) +     
                          TOFMT(*YYMD) TOSEP(*NONE)                       
                                                                          
/* CREATE PREVIUOS FRIDAY'S DATE BY SUBTRACTING 3 FROM CURRENT DATE */    
             CHGVAR     VAR(&PRVDAT#) VALUE(&SYSYYMD)                     
             CHGVAR     VAR(&PRVDAT#) VALUE(&PRVDAT# - 3)             
             CHGVAR     VAR(&PRVDAT) VALUE(&PRVDAT#)   
 
When I run the job on 0501 the pgm returns the date -3 as 20060498.  How
would I have to change the code so that it returns 0429?  
 
Any examples appreciated.  
 
Thanks