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

If a subsequent input-output statement attempts to make reference to a logical record which resides
in an unavailable partition of the file, the HP COBOL run-time routines assign a value of 72 (attempt
to access unmounted partition) to the special register GUARDIAN-ERR, because that is the file code
reported by the operating environment. The I-O status code in this case is “30” (COBOL permanent
error). This, in turn, causes the run-time routines to abnormally terminate the execution of the run
unit, unless an applicable Declarative procedure is specified in the Procedure Division of the
program unit that contains the statement whose execution failed.
Tape Files
When the parameter open-type has the value 4, the COBOL_SPECIAL_OPEN_ routine opens a
tape file.
library-reference
is a mnemonic-name associated in the SPECIAL-NAMES paragraph with the DLL containing an
object copy of COBOL_SPECIAL_OPEN_.
file-name
is the name of a COBOL data file; that is, a file described in a File Description entry. It must
be an FD name associated with a file-system file name that specifies a tape file.
open-type
is a numeric operand whose value (after truncation to an integer value, if necessary) is 4. The
value 4 signifies the opening of a tape file.
exclusion
is a numeric operand that specifies the exclusion attribute for the open operation. The evaluation
of this operand includes, if necessary, truncation to an integer value. If the parameter is present,
its value must be 0 (shared), 1 (exclusive), or 3 (protected). If it is omitted, the routine determines
the exclusion attribute from a command interpreter ASSIGN command (when one applies to
the specified FD-name); otherwise the routine assumes the value 3 (protected) when the open
mode is Input or assumes the value 1 (exclusive) for any other open mode.
sync-depth
is a numeric operand that specifies the sync-depth attribute for the open operation. The
evaluation of this operand includes, if necessary, truncation to an integer value. If this parameter
644 Libraries and Utility Routines