FORTRAN Reference Manual

Utility Routines
FORTRAN Reference Manual—528615-001
15-9
FORTRAN_SETMODE_ Routine
operation
is the code to send to the device referenced by unit-number. For specific
operation codes, see the CONTROL procedure in the Guardian Procedure Calls
Reference Manual.
param
specifies the value of the parameter to the CONTROL operation you specify. For
specific param values for each CONTROL operation, see the CONTROL
procedure in the Guardian Procedure Calls Reference Manual.
FORTRAN_CONTROL_ calls the CONTROL system procedure unless unit-number is
a spooler collector doing level-3 spooling, in which case FORTRAN_CONTROL_ calls
the SPOOLCONTROL spooler procedure.
Considerations
•
If an error occurs and you do not specify error-return, the FORTRAN run-time
library terminates your program.
•
Use FORTRAN_CONTROL_ only in programs that specify an ENV COMMON
directive. The FORTRAN compiler does not report an error if you use
FORTRAN_CONTROL_ with ENV OLD, but the FORTRAN run-time library reports
an error if your program executes FORTRAN_CONTROL_ in a module that
specifies ENV OLD.
FORTRAN_SETMODE_ Routine
FORTRAN_SETMODE_ calls the SETMODE system procedure unless buffered
spooling has been successfully initiated for the file, in which case
FORTRAN_SETMODE_ calls the SPOOLSETMODE spooler procedure.
FORTRAN_SETMODE_ enables you to issue setmode 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 SETMODE command.
error-return
is an INTEGER*2 variable in which FORTRAN_SETMODE_ returns an error code.
CALL FORTRAN_SETMODE_ ( unit-number
, [ error-return ]
, function
[, [ param1 ]
[, [ param2 ] ]] )