Surely the file numbers are unique to the data stacks of each program - they are two separate NMPRG's aren't they?
If they are permanent files, you should be able to listf ,8 them both and see they are open to separate processes. PM might be doing strange things though.....

I tried once to pass the data segment no of an open image base from one program to another, but it didn't work because the no is specific to the data stack of a specific process.

Regards,

John Pitman

-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf Of Brian Donaldson
Sent: Wednesday, 21 April 2010 4:51 PM
To: [log in to unmask]
Subject: [HP3000-L] HP3000-L: Cobol/FOPEN/HPFOPEN "Problem"

Hi All:

I have a little problem going on with two Cobol programs. I am sure I
already know the answer but
I will run it by everyone on the list in case there is a solution.

Cobol program #1 (mainline) and Cobol program #2 (also a mainline)

#1 program runs program #2 with the RUN command via the COMMAND  intrinsic.

#1 FOPENS a file (pm file, fopens ok) and the file number returns a value
of +0010

#2 FOPEN's a different file and the returned file number is also a value of
 +0010

Ouch. This isn't exactly what I had been hoping for. When control returns
to program #1

I "FCLOSE" the file opened by #1 -- the bad news is that the file opened by
 program #2 is being closed!


Is there any way of "forcing" the file system to give me different file
numbers so that the correct files

are being closed?

TIA,
Brian Donaldson.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

CAUTION: This message may contain privileged and confidential information intended only for the use of the addressee named above. If you are not the intended recipient of this message you are hereby notified that any use, dissemination, distribution or reproduction of this message is prohibited. If you have received this message in error please notify RYCO Hydraulics Pty. Ltd. immediately. Any views expressed in this message are those of the individual sender and may not necessarily reflect the views of RYCO Hydraulics Pty. Ltd.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *