Re: Open/close files in an RPG module

Each time the *New pgm called, files will need to be opened.

*INLR at all. Do modules, by deault, always close their files when the

RETURN is executed?
No

Jim Franz

----- Original Message ----- From: "Mike Cunningham" <mcunning@xxxxxxx>
To: "'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, August 22, 2008 11:23 AM
Subject: RE: Open/close files in an RPG module

No, at least not that I am aware of.

The main RPG that does the read loop and uses the module is actgrp(*new). The module has nothing specified for activation group and is bound to the main RPG using a binding directory on the H: spec of the RPG. The main RPG just has

READ PF LOOP
.
. standard rpg code
.
EVAL results = module(parm1:parm2)
.
. standard rpg code
.
END LOOP

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jim Franz
Sent: Friday, August 22, 2008 10:58 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Open/close files in an RPG module

Are you ending the activation group?
Jim Franz
----- Original Message -----
From: "Mike Cunningham" <mcunning@xxxxxxx>
To: "'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, August 22, 2008 9:54 AM
Subject: Open/close files in an RPG module

We have a module that we bind into multiple programs that needs to open a
file to do it's job. One of the applications that uses this module reads
through a 10,000+ record file and calls the module. The module has USROPN
on the files needed and does a test to see if the file is open using NOT
%OPEN and will open it if needed. It never closes the files. The journals
for this application show that the file used in the module is being
opened/closed for every record processed. The module does not reference
*INLR at all. Do modules, by deault, always close their files when the
RETURN is executed?
--
This is the RPG programming on the AS400 / iSeries (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 AS400 / iSeries (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 AS400 / iSeries (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.