CRE Programmer's Guide

Common Language Utility (CLU) Library Functions
Common Run-Time Environment (CRE) Programmer’s Guide—528146-004
9-15
COBOL Considerations
COBOL Considerations
You can use CLU_Process_File_Name_ for programs that run in the TNS CRE or in a
COBOL run-time environment. The COBOL format for invoking this function is:
TAL
Generates more efficient code.
library-reference
is as described in the COBOL Manual for TNS and TNS/R Programs, except that it
is contained in the file CLULIB (which is usually in the $SYSTEM.SYSTEM
subvolume), rather than in a COBOL85 product file such as COBOLLIB.
call-type
is an actual parameter that evaluates to 0 or 1, such as a COMPUTATIONAL,
DISPLAY, or NATIVE numeric data item, a numeric literal, or an expression
enclosed in parentheses. If the parameter does not mathematically evaluate to an
integer, the compiler changes the result into an integer value. To specify
conversion options, you can use COBOL functions INTEGER and
INTEGER_PART (D10 release or later).
fcb-address
is a NATIVE-4 data item or a COMPUTATIONAL numeric data item described with
five to nine 9s preceded by an S; for example:
PICTURE S9(9)
tdm-file-name
If call-type is 0, tdm-file-name is an alphanumeric data item to contain the
retrieved Guardian file name.
If
call-type is 1, tdm-file-name is an alphanumeric value that supplies a
Guardian file name.
The compiler implicitly computes and transmits the size, in bytes, of
tdm-file-name to the function.
ENTER [ TAL ] "CLU_Process_File_Name_"
[ OF library-reference ]
USING call-type, fcb-address, tdm-file-name,
file-name, open-flag
[ GIVING result ]