GetLastErrorNumber()

The GetLastErrorNumber() intrinsic function returns the number of the last EASI error that occurred. A zero is returned if no error has occurred since EASI began executing.

define function Invert( x )
  local integer y
  y = 1 / x ONERROR goto ErrorHandler
  return( y )
ErrorHandler: \
  printf "Trapped error %d, returning 0\n", GetLastErrorNumber()
  return ( 0 )
enddefine