COBOL Manual for TNS/E Programs (H06.08+, J06.03+)

Establishing Parameters With =_SORT_DEFAULTS DEFINE
Another way to establish FastSort parameters is with the default SORT DEFINE =_SORT_DEFAULTS.
This method is recommended when it would be difficult to modify existing applications.
When an HP COBOL program calls FastSort, FastSort uses the attributes of =_SORT_DEFAULTS if
all of these conditions are true:
• No user DEFINEs have been specified
• No FastSort parameters are set
• DEFMODE is on
You can create a =_SORT_DEFAULTS DEFINE by using the ALTER DEFINE statement in your
command interpreter. You can use the command
22> INFO DEFINE =_SORT_DEFAULTS, DETAIL
to determine whether the DEFINE exists and what its current settings are.
You cannot use =_SORT_DEFAULTS to alter the FastSort parameters SCRATCH and MODE, because
the compiler sets these itself whenever it executes a COBOL SORT statement. (It sets SCRATCH to
the file that the SD entry specifies. It sets MODE to AUTOMATIC.)
If you specify any FastSort options with FastSort interface routines, you can only use
=_SORT_DEFAULTS to alter the parameters CPU, NOTCPUS, and SUBSORTS; however, if you
specify CPU-MASK, NO-CPU-MASK, or SUBSORT-COUNT with a FastSort interface, routine, it
overrides the respective parameter that you specified with =_SORT_DEFAULTS.
For more information on the =_SORT_DEFAULTS DEFINE, see the FastSort Manual.
ZCOBDLL Overview
ZCOBDLL, a DLL, is the native HP COBOL run-time library. It contains the HP COBOL run-time
routines. ZCOBDLL routines are not bound into a user object file.
The compiler consults ZCOBDLL automatically. ZCOBDLLs resides on the subvolume
$SYSTEM.SYSnn.
Table 91 ZCOBDLL Routines
Utility Routine
COBOL_ASSIGN_
COBOL_COMPLETION_
COBOL_CONTROL_
COBOL_FILE_INFO_
COBOL_GETENV_
COBOL_PUTENV_
COBOL_RETURN_SORT_ERRORS_
COBOL_REWIND_SEQUENTIAL_
COBOL_SETMODE_
COBOL_SET_SORT_PARAM_TEXT_
COBOL_SET_SORT_PARAM_VALUE_
COBOL_SPECIAL_OPEN_
1
COBOLFILEINFO
2
1
Replaces COBOLSPOOLOPEN routine (for level 2 spooling) and Guardian environment routines (for level 3 spooling).
2
Guardian environment only.
ZCOBDLL Overview 611