RE: OPEN in RPGIII

-----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.