Files left open even though they were closed?

["Brad Stone" <brad@xxxxxxxxxxxx>]

Ok, either I'm having a brain fart or something isn't
working the way it should.  Or it is working how it should,
but it's not what I expected... :)

I have a CGI program that runs.  It dynamically sets the
library list depending on whether it's running in
production or test mode (ie different libraries for prod
and test environments).

In the CGI program I call an RPG program that does the
actual file processing (writing, updating, etc...).  These
programs DO set on LR, and have the files used defined in
F-Specs normally (not with USROPN).  Files are not set to
SHARE(*YES), and there are no overrides prior to calling
the program.

So, I call PGMA, it opens CUSTMSTPF in PRODLIB (since
PRODLIB is in my library list).  Does it's thing, sets on
LR, end exits.

Now, if I set the library list so TESTLIB is in the library
list instead of PRODLIB, I call PGMA again from the CGI
program (same job) and it opens the file in PRODLIB.  If I
view open files for the job, it shows the file open, and in
PRODLIB.  Like it didn't close the data path when the
previous program ended.

This is causing some weird problems, and I'm wondering what
the heck is going on?  Why isn't the file closing, and if
that is working the way it should, how to I make it close
the ODP so the next time it's called it opens the correct
file specified in the library list?

Other items I can think of is CGI program is compiled to
run in QILE AG, and the others are *DFTACTGRP (I only wrote
the CGI portion).

Brad