COBOL Manual for TNS and TNS/R Programs

Libraries and Utility Routines
HP COBOL Manual for TNS and TNS/R Programs—522555-006
13-77
COBOL85^SPECIAL^OPEN and
COBOL_SPECIAL_OPEN_
In the Guardian environment, all the functions of this form of
COBOL85^SPECIAL^OPEN or COBOL_SPECIAL_OPEN_ except those provided by
the parameters no-eject, code-129, and form-feed can also be provided by a
DEFINE of class SPOOL, but COBOL85^SPECIAL^OPEN or
COBOL_SPECIAL_OPEN_ brings the functionality into the program, while the DEFINE
solution leaves it out in the run-time environment.
A file assigned to a printer or to a spooler collector process (identified at run time by its
subdevice type of 31) is handled as a printer, in that calls to Guardian environment
routines CONTROL and SETMODE are used to initialize the file’s state, to suppress
automatic forms skipping, and to handle ADVANCING clauses, and the writing of a
given record is deferred until the next record is ready to be written (or the file is to be
closed) to minimize the number of Guardian procedure calls involved in writing.
When a file is assigned to a process that is not a spooler collector, the records are
written immediately, with no optimization attempted and no SETMODE or CONTROL
procedure involvement.
System Log Files
When the parameter open-type has the value 2, the COBOL85^SPECIAL^OPEN or
COBOL_SPECIAL_OPEN_ routine does one of:
•
Opens the EMS device ($0) or an alternate collector so that it can receive EMS
events
•
Opens the SPI device ($0.#ZSPI) so that it can receive SPI commands.
Note. To send an ASCII text message (rather than an EMS event) to a collector, open the
collector with an OPEN statement, not with the COBOL85^SPECIAL^OPEN or
COBOL_SPECIAL_OPEN_ routine.
Note. To send SPI commands to an alternate collector, open the collector with an OPEN
statement, not with the COBOL85^SPECIAL^OPEN or COBOL_SPECIAL_OPEN_
routine.