FORTRAN Reference Manual

Utility Routines
FORTRAN Reference Manual—528615-001
15-5
FORTRAN_COMPLETION_ Routine
Then it calls the STOP or ABEND system procedure, as indicated by abend-or-
stop, passing its completion-code through text arguments to STOP or
ABEND.
•
The message argument corresponds to the message option in the FORTRAN
STOP statement. If you specify message, FORTRANCOMPLETION displays
message on the home terminal. The text argument is intended for a different use.
FORTRANCOMPLETION passes text to STOP or ABEND, which in turn stores it
into the STOP or ABEND system message that the operating system sends to the
ancestor process of the terminating process.
•
You must ensure that the combination of parameters and their values meet the
expectations of the STOP or ABEND procedure. Neither the FORTRAN compiler
nor the run-time library validate the arguments. For information about the STOP
and ABEND system procedures, see the Guardian Procedure Calls Reference
Manual.
FORTRAN_COMPLETION_ Routine
FORTRAN_COMPLETION_ allows a FORTRAN program to specify completion codes
and related information when it terminates.
FORTRAN_COMPLETION_ performs the same activities (closing files, displaying a
message on the home terminal, and so forth) as the FORTRAN STOP statement. Use
FORTRAN_COMPLETION_ instead of a FORTRAN STOP statement if you need to
specify one or more FORTRAN_COMPLETION_ arguments to the PROCESS_STOP_
procedure.
abend-or-stop
is an integer expression that specifies whether to call PROCESS_STOP_ with the
ABEND option or the STOP option. If abend-or-stop is zero, or if you omit
abend-or-stop, the run-time system calls PROCESS_STOP_ with the STOP
option. Otherwise, it calls PROCESS_STOP_ with the ABEND option.
message-length
is an integer expression whose value is the length of the value of message. If you
omit this argument, FORTRAN_COMPLETION_ uses the actual length of
message.
CALL FORTRAN_COMPLETION_ [ ( [ abend-or-stop ]
[, [ message-length ]
[, [ message ]
[, [ completion-code ]
[, [ termination-info ]
[, [ spi-ssid ]
[, [ text-length ]
[, [ text ] ]]] ]]] ] ) ]