Re: Date calculation in RPG

Date calculations are easy using "date type" fields.  If your dates come
in numeric or alpha fields, you can move them to auxiliary work area to
do your calculations.

Sample:

D Aux             s           d

C   *YYMD0          Move       NumDate        Aux
C                   SubAddDur  7:*D           Aux
C   *YYMD0          Move       AUx            NumDate 

        Before the first Move it will be a good idea to use  Test(d) to make
sure you have a valid date.

        In a new application define date types in the DDS.
_____________________________________________________________________________
Chris Bipes wrote:
> 
> Sorry but 20000431 is not a valid date.  There is only 30 days in April.
> 
<snip>
-- 
  Raul A. Jager W.
Asuncion - Paraguay
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---