RE: OPEN in RPGIII

Same here. Converting to /free left a lot of work (mostly because of MOVE's and Z-ADD's), but even that was cosmetic.

Jerry C. Adams
IBM System i Programmer/Analyst
--
B&W Wholesale
office: 615-995-7024
email: jerry@xxxxxxxxxxxxxxx


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Charles Wilt
Sent: Thursday, February 04, 2010 12:09 PM
To: RPG programming on the IBM i / System i
Subject: Re: OPEN in RPGIII

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.