RE: free format date?

["Smith, Mike" <Mike_Smith@xxxxxxxxxxxxxxxx>]

That's exactly what I was looking for.  Thanks

-----Original Message-----
From: Chevalier, Rick [mailto:Rick.Chevalier@xxxxxxxxxxxxxxx] 
Sent: Friday, October 03, 2003 12:07 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: free format date?


Mike,

I think what you are looking for is this:
        StrRevDate = CurDate - %Years(3);

Rick

> -----Original Message-----
> From: Smith, Mike [mailto:Mike_Smith@xxxxxxxxxxxxxxxx]
> Sent: Friday, October 03, 2003 10:17 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: free format date?
> 
> 
> Can someone provide an example of how to convert this
> C     CurDate       SubDur    3:*Y         StrRevDate 
> to a free format statement.
>  
> I have tried
> StrRevDate = %Diff(Curdate: 3 : *Years);
> 
> but it doesn't work and i can't find an example anywhere
> 
> Thanks
> 
> Mike
> 

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.