RE: OPEN in RPGIII

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.