Files opened in called programs

It's one of those days when I think that everything I thought I knew
isn't true anymore....

RPG program A does a dynamic call to RPG program B.
I've confirmed everything is running in the same activation group.

Program B uses the INFDS to see if a given file is open. If it's not, it
opens it. The program then does a RETURN to exit- saving the pain of
opening the file again next time. Subsequent calls show the file as
being opened, so that's all working exactly like expected.

Program A eventually sets *INLR on when it exits.
But the file program B opened stays open.

I was certain the *INLR being set in program A would close all open
files, but obviously not.

At this point I'm wondering if I'm missing something obvious or I'm
forgetting some basic idea?

I'd appreciate some input.

James P. Wiant
Testing Coordinator
Foodstuffs, Auckland, Ltd.
60 Roma Road
Auckland, New Zealand
09-621-0774



Not too long ago, if you did 75 percent of the things you did right, it
was okay. Now, if you don't do 98 percent of those things right, some
competitor will eat you for lunch.
Spoelhof, John



This message has been sent from Foodstuffs (Auckland) Limited ("Foodstuffs").

The information contained in this message and or attachments
is intended only for the person or entity to which it is
addressed and may contain confidential and/or privileged
material. Any review, retransmission, dissemination or other
use of, or taking of any action in reliance upon, this
information by persons or entities other than the intended
recipient is prohibited. If you received this in error,
please contact the sender and delete the material from any
system and destroy any copies.

The views and opinions expressed in this message may be those
of the individual and not necessarily those of Foodstuffs,
and are not given or endorsed by it.

Please note that this communication does not designate an
information system for the purposes of the Electronic
Transactions Act 2002.