Makes the Compiler declare the literals in CALL
literal statements as public symbols, so they are resolved at link time rather than run time. (Calls generated in this way are referred to as litlinked.)
Note: This directive is supported for native COBOL only.
Syntax:
>>-.---.-.-----LITLINK-.-----------.-.-----><
+-/-+ | +-"integer"-+ |
+-NOLITLINK-----------------+
Parameters:
-
integer
- Must be 1 or 2.
Properties:
| Default:
|
NOLITLINK
|
| Phase:
|
Generate
|
| $SET:
|
Initial
|
Comments:
This directive only affects object code files.
With LITLINK"2", if the name in a CALL literal statement starts with a single underscore - "_name" - a litlinked call to entry-name _name is generated. If it starts with a double underscore - "__name", a litlinked call to entry-name name is generated. (That is the entry-names are declared as public symbols.)
With LITLINK or LITLINK"1", all CALL literal statements generate litlinked calls, regardless of the inclusion of underscores at the start of the literal.
With NOLITLINK, no CALL literal statements generate litlinked calls, regardless of the inclusion of underscores at the start of the literal.
LITLINK"2" is only intended to provide backward compatibility with code written for the 16-bit COBOL system. You should use call-convention 8 for new programs.