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$

1  –  Syntax

      str-var = ERN$