Re: Forcing Files Closed

Did you check if these called programs ended with 'LR' set off. What may be
needed is an indicator when these programs are called and then when the main
program ends call these programs again to set ON LR.
I have seen this used extensively with multiple ERP package to reduce the
overhead of opening files when calling programs repeatedly.

Rob

On Mon, Mar 15, 2010 at 12:38 PM, Robert J. Mullis <
robertmullis99@xxxxxxxxxxx> wrote:

I have an RPG program that calls numerous older programs. Some of these
older programs leave database files open. When exiting the main program, I
would like to check for any files that are left open and close them.

I have a program that calls API QDMLOPNF and gives me a list of open files,
but I haven't been to find a way to close them. CLOF only works if the file
has been opened via an OPNQRYF or OPNDBF command. The RPG CLOSE opcode will
not work, because it only works on files that are in the F-specs of the
program that is currently running.

Does anyone know of another way (or API) to force the files closed?
--
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.