RE: Date Conversion

Note that converting to Julian in CL will not help if you expect to be
able to cross year boundaries.  You can use Julian, but you'd have to
handle the change of year and the fact that the last day of a year could
be day 365 or day 366 yourself.

The problem is that CL has no date data type.

The easiest way to do this is to do it in RPG IV instead of CL.

If you absolutely have to use CL.  Then switch to CLLE and see about
using the ILE CEE APIs, Convert Date to Lilian Format (CEEDAYS) and
Convert Lilian Date to Character Format (CEEDATE).


HTH,

Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
  

> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx 
> [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of 
> Rick.Chevalier@xxxxxxxxxxxxxxx
> Sent: Monday, May 01, 2006 10:23 AM
> To: midrange-l@xxxxxxxxxxxx
> Subject: RE: Date Conversion
> 
> 
> Convert your date to Julian, subtract the number of days, then convert
> to the format you need.  Sorry, I don't have any examples.
> 
> Rick
> 
> > -----Original Message-----
> > From:
> > midrange-l-bounces+rick.chevalier=americredit.com@xxxxxxxxxxxx
> > 
> > [mailto:midrange-l-bounces+rick.chevalier=americredit.com@midr
> > ange.com] On Behalf Of fbocch2595@xxxxxxx
> > Sent: Monday, May 01, 2006 9:18 AM
> > 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              
> 
> Privileged and Confidential.  This e-mail, and any 
> attachments there to, is intended only for use by the 
> addressee(s) named herein and may contain privileged or 
> confidential information.  If you have received this e-mail 
> in error, please notify me immediately by a return e-mail and 
> delete this e-mail.  You are hereby notified that any 
> dissemination, distribution or copying of this e-mail and/or 
> any attachments thereto, is strictly prohibited.
> 
> -- 
> 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.
> 
>