Re: OPEN in RPGIII

Charles,

 "Safe" is relative.  On one project I used
their tool.  The result was much prettier than
IBM's (which is safe, but can get messy), but it
did not handle cases where there was numeric
overflow in the calcs.  RPG/400 techniques often
relied on overflow being ignored.  In that case,
that behavior was acceptable to the client, but
the hard halt was not, even though the high order
digit might have gotten truncated.

 It's possible that their newer version of the
software handles this more cleanly, but the
version I was using wreaked a bit of havoc.

 -mark


At 2/4/10 03:29 PM, you wrote:

I have to second the recommendation of Linoma's tool.

It's not that expensive, it's just as safe as IBM's CVTRPGSRC but it
does a heck of a lot more.  You won't have what I would call an ILE
RPG program, but you will have a full fledged RPG IV program.

Charles


On Thu, Feb 4, 2010 at 2:22 PM, Vern Hamberg <vhamberg@xxxxxxxxxxx> wrote:

Agreed - CVTRPGSRC is a pretty "stupid" line by line converter - the
work comes when you try to move all your data definitions out of
C-specs. No need for that to get the %open() functionality.

And that's why they should get Linoma's tool to take care of more
advanced conversion.

There is also a free tool called JCR4MAX by Craig Rutledge that does
more with the result of CVTRPGSRC - and you get the source, so you can
tailor it to your liking. I forget the URL - just Google on JCR4MAX. He
has other tools, too - very nice.

Vern

Charles Wilt wrote:

David,

I've never had CVTRPGSRC leave me with hours of work.  Honestly, I
can't remember it ever leaving me with _ANY_ work to do.

Charles

On Thu, Feb 4, 2010 at 9:59 AM, David

FOXWELL <David.FOXWELL@xxxxxxxxx> wrote:

Guys, guys, lets be reasonable here. Surely

we're not the only shop with a load of RPGIII
that still need to be maintained. I only ever
used CVTRPGSRC once and it left me with hours
of work to get the program running correctly.

What noone has replied to is, why can't I just do this?

C                     OPEN MYFILE                 10
C           KEY       CHAINMYFILE               10

Isn't it like
monitor;
open myfile;
on-error;
 // do nothing
endmon;

??

-----Message d'origine-----
De : rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de rob@xxxxxxxxx
Envoyé : jeudi 4 février 2010 14:23
À : RPG programming on the IBM i / System i
Objet : Re: OPEN in RPGIII

First you take the RPGIII and run CVTRPGSRC on it.  Then you
have your way with it.


Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





From:   David FOXWELL <David.FOXWELL@xxxxxxxxx>
To:     RPG programming on the IBM i / System i
<rpg400-l@xxxxxxxxxxxx>
Date:   02/04/2010 05:52 AM
Subject:        OPEN in RPGIII
Sent by:        rpg400-l-bounces@xxxxxxxxxxxx



Hi all,

How do I write the equivalent of

/FREE

  IF NOT %OPEN(MYFILE);
     %OPEN(MYFILE);

  ENDIF;

/END-FREE

for RPGIII ?


At the moment, I have
C                     OPEN MYFILE                 10
C           KEY       CHAINMYFILE               10 >
Thanks
--
This is the RPG programming on the IBM i / System i
(RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


--
This is the RPG programming on the IBM i / System i
(RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the IBM i /

System i (RPG400-L) mailing list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.