Re: OPEN in RPGIII -- RPG400-L

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.