Re: Date comparison

["Stiju Easo" <stiju.as400@xxxxxxxxx>]

>>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.
Can u say logic behind that,
 I am bit cofused.


On 4/13/06, Hauser, Birgitta <Birgitta.Hauser@xxxxxxxxxxx> wrote:
>
> 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.
>
>