4.1.14 INTEGER FUNCTION ZXERRH(SIGARGS, MECHARGS) : ERRor Handler

This is the routine that intercepts any fatal condition and closes the RZ-file in an orderly fashion, outputs the random seeds of the present event, and then either re-signals or unwinds.

ARGUMENTS:

INPUT :

    SIGARGS(2)   : the signaled condition
    MECHARGS(3)  : the mechanism specifier
    The rest of the arrays are dummy in this application

IMPLICIT INPUTS:

    From /ZXSTE/ : EVT : Current event; NB_ERR : Total number of errors;
           LAST_ERR_EVT : Event number at latest error; IOMODEC : Type
           of output file; SKIP : TRUE if event to be skipped if error,
           and the run continued at the next.

IMPLICIT OUTPUTS:

    to /ZXSTE/ : ERR_SEEN : TRUE if the error was fatal; NB_ERR : Total
          number of errors; LAST_ERR_EVT : Event number at latest error.

FUNCTION VALUE:

SS$_RESIGNAL

CALLED BY :

Intercepts any condition asynchronously

CALLED ROUTINE(S):

ZXRUEN (see 4.1.12)

(To do RUn ENd.)

SYS$UNWIND

(To unwind the call-stack)

LIB$SYS_TRNLOG

(To get the value of a logical name.)

LIB$REANAME_FILE

(To rename a file.)

LENOCC

(CERNLIB routine.)

SIDE EFFECTS:

none.

AUTHORS:

M.Berggren,LAL

CREATION DATE:

14-NOV-1991