The ERN$ function returns the name of the main program or subprogram  that
  was executing when the last error occurred.

  Example

  2000   Error_module$ = ERN$