+-------------------------------IBM Extension--------------------------------+

ABORT()

Purpose

Terminates the program. It truncates all open output files to the current position of the file pointer, closes all open files, and sends the signal to the current process.

If the is neither caught nor ignored, and if the current directory is writable, the system produces a core file in the current directory.

Class

Subroutine

Examples

The following is an example of a statement using the ABORT subroutine.

IF (ERROR_CONDITION) CALL ABORT

+----------------------------End of IBM Extension----------------------------+

IBM Copyright 2003