FORTRAN Reference Manual

Utility Routines
FORTRAN Reference Manual—528615-001
15-7
FORTRAN_COMPLETION_ Routine
STOP msg is equivalent to CALL FORTRAN_COMPLETION_( , , msg)
•
Include spi-ssid if you use termination-info or text. spi-ssid must be a
RECORD data structure or a type CHARACTER*12 variable or expression. (The
corresponding parameter of PROCESS_STOP_ must be a six-element type
INTEGER*2 array.)
•
If spi-ssid is a RECORD data structure, and if the subsystem being identified is,
for example, the C10 version of NonStop subsystem number 123, spi-ssid must
be declared and defined as follows:
RECORD subsystem
CHARACTER * 8 organization
INTEGER * 2 number
CHARACTER * 2 version
END RECORD
subsystem^organization = 'TANDEM '
subsystem^number = 123
subsystem^version (1: 1) = 'C'
subsystem^version (2: 2) = CHAR (10)
•
If spi-ssid is a CHARACTER variable, it must be declared and defined for the
previous example as follows:
CHARACTER * 12 ssid
ssid ( 1: 8) = 'TANDEM '
ssid ( 9: 10) = CHAR (0) // CHAR (123)
ssid (11: 12) = 'C' // CHAR (10)
The variable names used here are only examples. Your programs can use any
names you want, provided the layout of the data conforms to the record description
provided here.
•
FORTRAN_COMPLETION_ must be named in a GUARDIAN directive in every
compilation that refers to it.
•
FORTRAN_COMPLETION_ performs the same activities (closing files, displaying
message on the home terminal, and so forth) as the FORTRAN STOP statement.
Then it calls the PROCESS_STOP_ procedure specifying the STOP or ABEND
option, as indicated by abend-or-stop and passing its completion-code
through text arguments to PROCESS_STOP_.
•
The message argument corresponds to the message option in the FORTRAN
STOP statement. If you specify message, FORTRAN_COMPLETION_ writes