Re: OPEN in RPGIII

David

If you can't convert, you can't do it. To do this, you have to convert. The CVTRPGSRC is easy to run, is it policy never to use ILE? The ability to test whether a file is open - that is a very good justification to move this program to ILE. CVTRPGSRC does a minimal conversion, still looks like OPM with wider columns.

Bon chance!
Vern

David FOXWELL wrote:

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.