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

Libraries and Utility Routines
HP COBOL Manual for TNS/E Programs—520347-003
13-59
COBOL_SPECIAL_OPEN_
return-code
is an identifier of a numeric data item in which an error value will be returned. The
expected values and their respective meanings are:
Usage Considerations:
•
Sending a Message to $0
To send an EMS event or ASCII text message to the EMS device ($0) or an
alternate collector, use the WRITE statement.
•
Sending an SPI command to $0.#ZSPI
To send an SPI command to the SPI device ($0.#ZSPI), use the READ statement
with a PROMPT phrase.
Partitioned Disk Files
When the parameter open-type has the value 3, the COBOL_SPECIAL_OPEN_
routine opens a partitioned disk file even though some partitions cannot be accessed.
(The OPEN statement requires all partitions to be accessible.)
Value Meaning
0 Successful execution
1 file-name is missing or is invalid, or an extraneous parameter is present.
2 The value of the open-type, exclusion, or sync-depth parameter is
invalid.
4The device-type of the file specified is not compatible with the value
specified for open-type.
5 An operation error occurred (for example, the file could not be opened).
USING
library-reference
file-name
OF
return-codeGIVING
exclusion
sync-depth
time-limits
open-mode
open-type = 3
VST815.vsd
ENTER
" "
ns
COBOL_SPECIAL_OPEN_
ns