RE: Convert to RPG400

["Paul Tuohy" <tuohyp@xxxxxxxxxxxxx>]

Bob,

We are all wondering why you need to convert back to RPG400?

There is no native support for dates in RPG400 (i.e. RPG III). You need to
call APIs or convert to day of millennium and subtract one from the other.

But why can't you just use RPG IV?

Regards
 
Paul Tuohy
ComCon
www.comconadvisor.com 
 

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Bob O.
Sent: 02 October 2006 12:59
To: midrange-l@xxxxxxxxxxxx
Subject: Convert to RPG400

   Does somebody know what the code for this should be if written in RPG400?

   I need to convert this but can't figure out what I need to do.  Thanks.
    
    
    
    
        
   *********************************************************************
         *  Definition Specifications
        
   *********************************************************************
         *
        D ISODate1        S               D
        D ISODate2        S               D
         *
        
   *********************************************************************
         *  Calculation Specifications
        
   *********************************************************************
         *
        c     *Entry        Plist
        c                   Parm                    Date1             8 0
        c                   Parm                    Date2             8 0
        c                   Parm                    DAYS              5 0
         *
        c                   move      Date1         IsoDate1
        c                   move      Date2         IsoDate2
         *
        C     IsoDate1      SubDur    IsoDate2      Days:*D
         *
        c                   Eval      *Inlr = *On