Acceso por código a los mensajes de error de la pila de llamada

DATA: it_pila TYPE abap_callstack,
it_call TYPE sys_callst.

CALL FUNCTION 'SYSTEM_CALLSTACK'
EXPORTING
max_level = 3
IMPORTING
callstack = it_pila
et_callstack = it_call.

LOOP AT it_call INTO wa_call.
IF wa_call-eventname = 'POT_FUELLEN'.
MESSAGE e000(zmmim) WITH 'ERROR'.
ENDIF.
ENDLOOP.