VMS Help  —  FORTRAN  Intrinsic Procedures, ERRSNS
  ERRSNS ([io-err] [,sys-err] [,stat] [,unit] [,cond])

  Class:  Subroutine

  Returns information about the last Fortran error that occurred.
  The arguments are all return values and must be defined as integer
  variables or array elements:

     io-err    Stores the most recent Fortran error number
               that occurred during program execution.
               The value is zero if no error has occurred.

     sys-err   Stores the most recent RMS STS status code.

     stat      Stores the most recent RMS STV status value.
               This status value provides additional status
               information.

     unit      Stores the logical unit number (if the last
               the last error was an I/O error).

     cond      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.
Close Help