RE: Convert to RPG400

Hi,

You can't, at least not with pure RPG400!
Why do you want to translate back to a language that was not enhanced the
last 10 (or even more) years?

If you really need it, why not simply compiling this program and call it
from your RPG400 programs?
Another work around would be to use embedded SQL. But I suspect, if you have
to use RPG400 it is not allowed to embed SQL, either.

Birgitta

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Bob O.
Sent: Monday, October 02, 2006 13: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