Re: Date calculation in RPG

[Raul Jager <raul@xxxxxxxxxx>]

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