Re: Date Conversion

Someone else recommended the ILE CL CEE date functions. Scott Klement has 
provided lots of examples of these - search the group archives for CEEDAT or go 
to the Club Tech newsletter link at www.iseriesnetwork.com that he is editor 
for and dig around. The Lillian date ones mentioned by another poster are easy 
to use even in CL, and you get the number of days since a date in 1500 
something, I think. Then when you subtract or add, it does not care about year 
ends or month ends. Then you convert back with the reciprocal function and, 
ba-da-bing.

-------------- Original message -------------- 
From: fbocch2595@xxxxxxx 

> 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 
> 
> 
> -- 
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list 
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx 
> To subscribe, unsubscribe, or change list options, 
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l 
> or email: MIDRANGE-L-request@xxxxxxxxxxxx 
> Before posting, please take a moment to review the archives 
> at http://archive.midrange.com/midrange-l. 
>