COBOL Manual for TNS and TNS/R Programs

Libraries and Utility Routines
HP COBOL Manual for TNS and TNS/R Programs—522555-006
13-43
COBOL_CONTROL_
COBOL_CONTROL_
The COBOL_CONTROL_ routine controls device-dependent I-O operations through a
call to the Guardian environment routine CONTROL.
If a no-waited, input-output request is active when the COBOL_CONTROL_ routine is
called, the request is completed before the CONTROL routine is called. If the file is
closed when the call is made, the request is queued until the next OPEN request for
the file is issued.
library-reference
is a mnemonic-name in the SPECIAL-NAMES paragraph. For the COBOL85
compiler, this mnemonic-name is associated with either
$SYSTEM.SYSTEM.CBL85UTL or some other object file containing an object
copy of COBOL_CONTROL_. For the NMCOBOL compiler, this mnemonic-name
is associated with either $SYSTEM.SYSnn.ZCOBSRL or some other object file
containing an object copy of COBOL_CONTROL_.
file-name
is a COBOL file name associated with a file that is not $RECEIVE and that is not
open for HP COBOL Fast I-O. If the file is not open, the call to the Guardian
environment routine CONTROL is made during the next successful open request
for the file.
operation
is a numeric data item or arithmetic expression that is the operation parameter
of the Guardian environment routine CONTROL. For more information, see the
Guardian Procedure Calls Reference Manual.
Caution. The HP COBOL run-time library does not attempt to validate calls to CONTROL. To
avoid interfering with the operation of the HP COBOL run-time library, use
COBOL_CONTROL_ only if absolutely necessary.
USING file-name operation param
cpinfo
GIVING error-return
OF library-reference
VST610.vsd
ns ns
ENTER
" "
COBOL_CONTROL_