FORTRAN Reference Manual

Utility Routines
FORTRAN Reference Manual—528615-001
15-8
FORTRAN_CONTROL_ Routine
message to the standard log file. The text argument is intended for a different
use. FORTRAN_COMPLETION_ passes text PROCESS_STOP_, which in turn
stores it into the STOP or ABEND system message that is sent to the ancestor
process of the terminating process.
•
You must ensure that the combination of parameters and their values meet the
expectations of the PROCESS_STOP_ system procedure. Neither the FORTRAN
compiler nor the run-time library validates the arguments. For information about the
SPROCESS_STOP_ system procedure, see the Guardian Procedure Calls
Reference Manual.
FORTRAN_CONTROL_ Routine
FORTRAN_CONTROL_ calls the CONTROL system procedure unless buffered
spooling has been successfully initiated for the file, in which case
FORTRAN_CONTROL_ calls the SPOOLCONTROL spooler procedure.
FORTRAN_CONTROL_ enables you to issue control operations to spooler collectors
with a minimum of programming effort.
unit-number
is an INTEGER*2 expression whose value is the FORTRAN unit number to which
to send the CONTROL operation.
error-return
is an INTEGER*2 variable in which FORTRAN_CONTROL_ returns an error code.
If error-return is zero, FORTRAN_CONTROL_ successfully issued a
CONTROL or SPOOLCONTROL operation.
If error-return is less than 10000, its value is a file system error code. For
information about file system errors, see the Guardian Procedure Errors and
Messages Manual . For information about errors returned by the
SPOOLCONTROL spooler procedure, see the Spooler Programmer’s Guide.
If error-return is greater than 10000, its value is a FORTRAN run-time error
code to which the FORTRAN run-time library has added 10000. To determine the
actual error code, subtract 10000 from the value returned in error-return and
see Appendix G, Run-Time Diagnostic Messages.
For example, if error-return is 250, the error is a file system error—the file
referenced by unit-number is on a node that is no longer accessible. If error-
return is 10064, you must subtract 10000 from error-return to produce error
64: the unit-number that you specified is not associated with a currently open file.
CALL FORTRAN_CONTROL_ ( unit-number
, [ error-return ]
, operation
[, [ param ] ] )