Ab und zu will man wissen, was vorher geschah... mit dem Funktionsbaustein SYSTEM_CALLSTACK kann zur Laufzeit der Callstack gelesen und ausgewertet werden.

METHODS get_blockname
     IMPORTING
          level TYPE i
     RETURNING
          VALUE(rv_blockname) TYPE string.

METHOD get_blockname.

DATA: lt_callstack TYPE abap_callstack.

CALL FUNCTION 'SYSTEM_CALLSTACK'
     EXPORTING
           max_level = Level
     IMPORTING
           callstack = lt_callstack.

    IF lines( lt_callstack ) = level.
       rv_blockname = lt_callstack[ level ]-blockname.
   ENDIF.

ENDMETHOD.