COBOL Manual for TNS and TNS/R Programs

Libraries and Utility Routines
HP COBOL Manual for TNS and TNS/R Programs—522555-006
13-82
COBOL85^SPECIAL^OPEN and
COBOL_SPECIAL_OPEN_
When the COBOL85^SPECIAL^OPEN or COBOL85_SPECIAL_OPEN_routine with an
open-type of 3 has performed a successful open operation, the special register
GUARDIAN-ERR contains the value 3 (failure to open a partition) if the operating
environment reports that file code. In this case, the I-O status code is “00.”
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 in the CRE
When the parameter open-type has the value 4, the COBOL_SPECIAL_OPEN_
routine opens a tape file in the CRE.
library-reference
is a mnemonic-name associated in the SPECIAL-NAMES paragraph with either
$SYSTEM.SYSTEM.CBL85UTL or some other object file containing an object
copy of COBOL_SPECIAL_OPEN_.
ENTER
" "
COBOL_SPECIAL_OPEN_
USING
library-reference
file-name
OF
mount-messages
exclusion
sync-depth time-limits
open-mode
ns
return-codeGIVING
end-of-tape-process
ns
open-type= 4
VST614.vsd