How do I share an open file handle across procedures?

Hey All

I've got a small problem in ILE that I'm trying to understand. The question is this: can I open a file in a subprocedure, but have a different subprocedure write to the file?

So, I have something like this

-----------------------------------------------

ModuleA
h nomain
fQDDSSRC if e disk rename(QDDSSRC:DDSREC)
f usropn

dfunca pr
pfunca b export
dfunca pi

/Free
open QDDSSRC;
/End-Free

pfunca e

-----------------------------------------------

ModuleB

h nomain

fQDDSSRC if e disk rename(QDDSSRC:DDSREC)
f usropn

dfuncb pr

pfuncb b export
dfuncb pi

/Free
if not %open(QDDSSRC); // dummy open
open QDDSSRC;
endif;

read DDSREC;

/End-Free

pfuncb e
-----------------------------------------------

I build Modules A and B, and bind them into a service program. No problem.

-----------------------------------------------

Then I have one more Module, Module C, which looks like this:

dfunca pr
dfuncb pr

/Free
funca();
funcb();
*inlr = *on;
/End-Free

I compile Module C, and create a program with Module C and the service program. It runs, but no data from QDDSSRC shows up on the read. Looking at the Open File display, I see that there are two ODP's issued-- one for the OPEN in FuncA, and one for the open in FuncB.

So I thought if I just did an OVRDBF FILE(QDDSSRC) TOFILE(<mylibrary>/QDDSSRC) SHARE(*YES) OVRSCOPE(*JOB) I might have it. It still ran, but I get the same result-- no data read. The share numbers increment in the Open File display when the OPEN command runs in FuncA and FuncB, so I know the share is at least active.

I'm missing something fundamental here and I can't figure out what it is.

Any ideas?

Thanks!

-Doc