So you've got the module bound by copy into the program?

Don't suppose you've got an F-spec for the file, but are actually
using SQL to access it are you? (Don't laugh, I've seen that before)
If so, then the SQLRPGLE module was probably compiled with CLSSQLCUR(*ENDMOD).

Otherwise, double check that the procedure is not being called from a
service program with ACTGRP(*NEW) specified.

That's the only two ways I know of that you can get the behavior you
describe without having an explicit CLOSE of the file.

HTH,
Charles Wilt



On Fri, Aug 22, 2008 at 11:23 AM, Mike Cunningham <mcunning@xxxxxxx> wrote:
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.



This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].