Re: Calculating a New Date

[Raul A Jager <raul@xxxxxxxxxx>]

Why not use directly the "BIF" provided in V5.2?

Bill wrote:

> I've got a program that calculates a new date based upon a number of days offset.  Here is a snippet of the code:
>
> . . . 
> C     *entry        Plist                                         
> C                   Parm                    indate                
> C                   Parm                    dateformat        5   
> C                   Parm                    diffdays          4 0 
> C                   Parm                    outdate               
> C*                                                                
> C                   Select                                        
> C*                                                                
> C     dateformat    WhenEq    '*MDY'                              
> C     dateformat    OrEq      '*mdy'                              
> C     *mdy          Move      inmdy         @date                 
> C                   AddDur    diffdays:*days@xxxx                 
> C     *mdy          Move      @date         outmdy        
> . . .
>
> I'm enhancing the logic to handle all valid date formats, to allow the option specification of an output date format, and will be prototyping the parameters.
>
> Does anyone have a sample of a program like this already written?  I'm going to end up overhauling this thing and would like to save a lot of time if it's already been done.  BTW, I'm at V5R2 and am not against free form code.
>
> Bill
> _______________________________________________
> 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.
>