Re: Open/close files in an RPG module

["Charles Wilt" <charles.wilt@xxxxxxxxx>]

No.

Files referenced in a module with USROPN are only closed when you
explicitly close them, or the activation group and/or job ends.

Is this module bound into the *PGM or a *SRVPGM.

If a *SRVPGM, does the *SRVPGM by chance have ACTGRP(*NEW) specified?

Charles


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