AW: Calculating a New Date

[Werner Noll <werner.noll@xxxxxxxxx>]

I agree with you. Since we have V5R2 we never used any sub-programs for date
operations. You can do everything by using BIFs.
Here an example for a "one-line-operation":

D DateCYYMMDD     S              7S 0                                    
D DateYYYYMMDD    S              8S 0                                    
 /free                                                                   
   DateCYYMMDD=1030410;                                                  
   // Add 3 days to DateCYYMMDD and convert the result to DateYYYYMMDD   
   DateYYYYMMDD = %int(%char(%date(DateCYYMMDD:*cymd) + %days(3):*iso0));
   Return;                                                               
 /end-free                                                               

It's important to be on V5R2 because %int is not available with R1.

Regards,
Werner Noll

-----Ursprüngliche Nachricht-----
Von: Raul A Jager [mailto:raul@xxxxxxxxxx]
Gesendet: Mittwoch, 9. April 2003 19:41
An: RPG programming on the AS400 / iSeries
Betreff: Re: Calculating a New Date


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.
>  
>

_______________________________________________
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.