ERRSNS

Intrinsic Subroutine: Returns information about the most recently detected I/O system error condition.

Syntax

ERRSNS ([io_err] [, sys_err] [, stat] [, unit] [, cond])

io_err
(Optional) Is an integer variable or array element that stores the most recent Compaq Fortran Run-Time Library error number that occurred during program execution. (For a listing of error numbers, see Visual Fortran Run-Time Errors in Error Messages.)

A zero indicates no error has occurred since the last call to ERRSNS or since the start of program execution.

sys_err
(Optional) Is an integer variable or array element that stores the most recent system error number associated with io_err. This code is one of the following:

• On Windows systems, it is the value returned by GETLASTERROR( ) at the time of the error.
• On OpenVMS systems, it is an RMS STS value.
• On Tru64 UNIX and Linux systems, it is an errno value. (See errno(2).)

stat
(Optional) Is an integer variable or array element that stores a status value that occurred during program execution. This value is one of the following:

• On Windows, Tru64 UNIX, and Linux systems, the value is zero.
• On OpenVMS systems, it is an RMS STV value.

unit
(Optional) Is an integer variable or array element that stores the logical unit number, if the last error was an I/O error.

cond
(Optional) Is an integer variable or array element that stores the actual processor value. This value is always zero.

If you specify INTEGER(2) arguments, only the low-order 16 bits of information are returned or adjacent data can be overwritten. Because of this, it is best to use INTEGER(4) arguments.

The saved error information is set to zero after each call to ERRSNS.

Examples

Any of the arguments can be omitted. For example, the following is valid:

CALL ERRSNS (SYS_ERR, STAT, , UNIT)