FORTRAN Reference Manual

Utility Routines
FORTRAN Reference Manual—528615-001
15-4
FORTRANCOMPLETION Routine
•
Executing a FORTRAN STOP statement is equivalent to calling
FORTRANCOMPLETION, with all its arguments omitted (except possibly
message). For example:
STOP is equivalent to CALL FORTRANCOMPLETION
STOP msg is equivalent to CALL FORTRANCOMPLETION(, , msg)
•
Include the spi-ssid parameter 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 STOP and ABEND 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.
•
FORTRANCOMPLETION must be named in a GUARDIAN directive in every
compilation that refers to it.
•
FORTRANCOMPLETION performs the same activities (closing files, displaying
message on the home terminal, and so forth) as the FORTRAN STOP statement.