RE: OPEN in RPGIII

David,

Your question lead me to believe you were going to change an RPG III
program. As soon as you have to touch an RPG III program, you should
convert if first. If you are just trying to understand the program, read
the manual (<
http://publib.boulder.ibm.com/infocenter/iseries/v5r4/topic/books/c0918170.pdf

; better download the pdf as well; V6R1 InfoCenter does not have it

anymore).

Joep Beckeringh


rpg400-l-bounces@xxxxxxxxxxxx wrote on 04-02-2010 13:17:12:

[image removed]

RE: OPEN in RPGIII

David FOXWELL

to:

RPG programming on the IBM i/System i

04-02-2010 13:29

Sent by:

rpg400-l-bounces@xxxxxxxxxxxx

Please respond to RPG programming on the IBM i / System i

Can't convert Joep. The program runs OK, though. I think that
putting the indicator on the OPEN command stops it from crashing but
I was wondering if there was something I was missing.

-----Message d'origine-----
De : rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de
J.Beckeringh@xxxxxxxxxxxxxxxxxxxxxxxxxx
Envoyé : jeudi 4 février 2010 11:56
À : RPG programming on the IBM i / System i
Objet : Re: OPEN in RPGIII

Not.

Convert.

Joep Beckeringh

David FOXWELL

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.