Re: Date question

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

> NumDays=%Int(%Char(DateA:*ISO0));
> DateB=%Date(NumDays:*ISO);

Alternately, if you're at V5R3, you could code:

     D DateA           s               D   inz(d'2005-01-01')
     D IntDate         s             10I 0
        .
        .
         IntDate = %dec(DateA:*ISO);
         DateB = %Date(IntDate:*ISO);

It's not a big change, but I think it's a little easier to read when there 
aren't any nested BIFs.