"Mark Boyd" <[log in to unmask]> wrote in message
> It can be passed to a subroutine.  I've had to do it.

With the calling program looking something like this:

FD INPUT-FILE.
...
001  FILE-NBR         PIC S9(04)  COMP.
...
   CALL  'GETFILENUM'
      USING  BY CONTENT    INPUT-FILE
                   BY REFERENCE  FILE-NBR.


And the called program looking something like this:

LINKAGE SECTION.
01  FD-INT                          PIC S9(04)      COMP.
01  FILE-INT                        PIC S9(04)      COMP.

PROCEDURE DIVISION.
MAIN-PROCESS                    SECTION.
ENTRY  'GETFILENUM'    USING  FD-INT, FILE-INT.

    MOVE  FD-INT  TO  FILE-INT.
    GOBACK.


You can determine the MPE file number of the file.

You could then use the file number to allow other library routines to
access the a file opened with the Cobol OPEN statement.

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