ERROR

 Returns a keyword for the latest error encountered by VAXTPU.  The value
 returned by ERROR is only meaningful inside an error handler.  The value
 returned outside an error handler is indeterminate.

 Syntax

    keyword := ERROR

 Parameters

    none

 Example

 The following code fragment is an error handler that uses the ERROR
 built-in to determine what error invoked the error handler.  If the error
 was that SEARCH could not find the specified string, then the procedure
 returns normally.  If the error was something else, then the text of the
 error message is written to the message buffer and any executing
 procedures are aborted.

    ON_ERROR
      IF ERROR = TPU$_STRNOTFOUND
         THEN
            RETURN;
         ELSE
            MESSAGE (ERROR_TEXT);
            ABORT;
      ENDIF;
    ENDON_ERROR;

 Related Topics

    ERROR_LINE   ERROR_TEXT   MESSAGE   MESSAGE_TEXT