RE: Convert to RPG400

["Bob O." <otis_the_cat@xxxxxxxxxxx>]

  There has to be some way in RPG400 to get the duration (in days) between
  two dates.

    ----------------------------------------------------------------------

    From:  "Hauser, Birgitta" <Birgitta.Hauser@xxxxxxxxxxx>
    Reply-To:  Midrange Systems Technical Discussion
    <midrange-l@xxxxxxxxxxxx>
    To:  "'Midrange Systems Technical Discussion'" <midrange-l@xxxxxxxxxxxx>
    Subject:  RE: Convert to RPG400
    Date:  Mon, 2 Oct 2006 14:09:06 +0200
    >
    >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
    >--
    >This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
    list
    >To post a message email: MIDRANGE-L@xxxxxxxxxxxx
    >To subscribe, unsubscribe, or change list options,
    >visit: http://lists.midrange.com/mailman/listinfo/midrange-l
    >or email: MIDRANGE-L-request@xxxxxxxxxxxx
    >Before posting, please take a moment to review the archives
    >at http://archive.midrange.com/midrange-l.
    >--
    >This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
    list
    >To post a message email: MIDRANGE-L@xxxxxxxxxxxx
    >To subscribe, unsubscribe, or change list options,
    >visit: http://lists.midrange.com/mailman/listinfo/midrange-l
    >or email: MIDRANGE-L-request@xxxxxxxxxxxx
    >Before posting, please take a moment to review the archives
    >at http://archive.midrange.com/midrange-l.
    >