CRE Programmer's Guide

Common Language Utility (CLU) Library Functions
Common Run-Time Environment (CRE) Programmer’s Guide—528146-004
9-16
FORTRAN Considerations
file-name
If call-type is 0, file-name is an alphanumeric data item to contain the
retrieved logical file name.
If
call-type is 1, file-name is ignored.
The compiler implicitly computes and transmits the size, in bytes, of
file-name to
the function.
open-flag
is a NATIVE-2 data item or a COMPUTATIONAL numeric data item described with
one to four 9s preceded by an S; for example:
PICTURE S9(9)
result
is a numeric data item.
A file connector has a logical file name and a Guardian file name:
•
The compiler obtains the logical file name of a file connector from the file name
specified in the SELECT clause of a file control entry and repeated after the FD in
the associated file description entry.
•
The compiler assigns the default Guardian file name of a file connector as
described in the
COBOL Manual for TNS and TNS/R Programs.
FORTRAN Considerations
You can use CLU_Process_File_Name_ for programs that run in the TNS CRE or in a
FORTRAN run-time environment.
Before you use this function, you must declare it in a CONSULT directive that specifies
an object file that contains a copy of the function. This function is contained in the file
CLULIB (which is usually in the $SYSTEM.SYSTEM subvolume), rather than in a
FORTRAN product file.
The FORTRAN format for invoking this function is as follows:
result
is a 2-byte integer variable (INTEGER*2).
calltype
is an integer expression that evaluates to 0 or 1.
result = CLU_Process_File_Name_ ( calltype, fcbaddress,
tdmfilename, filename, openflag )