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.