RE: Convert to RPG400 -- MIDRANGE-L

Just ust STRDBG, on an ILE pgm that is interactive

-----Oorspronkelijk bericht-----
Van: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx]Namens Bob O.
Verzonden: maandag 2 oktober 2006 14:56
Aan: midrange-l@xxxxxxxxxxxx
Onderwerp: RE: Convert to RPG400



I just wanted to do some testing.  Using the Interactive source debugger 
with RPG400 programs, I couldn't use the RPGIV program.  I was getting an 
invalid source type error (of couse).  I found the error anyway.  Sombody 
was passing it 20060931.  I didn't catch that for a few minutes (only 30 
days in September).  Thanks for all you help!

From: "Paul Tuohy" <tuohyp@xxxxxxxxxxxxx>
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 13:40:40 +0100

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