Re: Date comparison

I did not take care of that, thank's birgitta :)
----- Original Message ----- 
From: "Hauser, Birgitta" <Birgitta.Hauser@xxxxxxxxxxx>
To: <rpg400-l@xxxxxxxxxxxx>
Sent: Thursday, April 13, 2006 11:17 AM
Subject: Re: Date comparison


> Hi,
>
> >>here is a sample :
>
> >>C/EXEC SQL
> >>C+                Delete from Mylib/MyFile  where
> >>c+                current_date - date(DateFieldOfMyfile) >= :nbdays
> >>C/END-EXEC
>
> >>NBDays is a numeric value
>
> The example above will work correctly as long as nbdays will be less than
or
> equal 30 day.
> To make it also work correctly for more than 30 days it must be changed as
> follows:
>
> C/EXEC SQL Delete from MyLib/MyFile
> C+                where (Days(Current_Date) -
Days(Date(DateFieldOfMyFile)))
> >= :nbdays
> C/END-EXEC
>
>
>
> Birgitta
>
> -- 
> 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.
>
>