FUNCTION zcallstack_list.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  TABLES
*"      E_REPID TYPE  PROGNAMES
*"----------------------------------------------------------------------
  TYPES: BEGIN OF abap_call_stack_entry.
  TYPES: mainprogram LIKE sy-repid.
  TYPES: include LIKE sy-repid.
  TYPES: line TYPE i.
  TYPES: eventtype LIKE abdbg-leventtype.
  TYPES: event LIKE abdbg-levent.
  TYPES: flag_system TYPE c.
  TYPES: END OF abap_call_stack_entry.

  DATA: ls       TYPE          abap_call_stack_entry.
  DATA: lt       TYPE TABLE OF abap_call_stack_entry.
  DATA: ls_repid TYPE          progname.

*# get list of called programms
  CLEAR: lt, lt[].
  CALL 'ABAP_CALLSTACK' ID 'DEPTH' FIELD -1
  ID 'CALLSTACK' FIELD lt.
  CHECK NOT lt[] IS INITIAL.

*# fill E_REPID (without this FM)
  CLEAR: e_repid, e_repid[].
  CLEAR: ls.
  LOOP AT lt INTO ls FROM 2.
    CLEAR:                   ls_repid.
    MOVE:  ls-mainprogram TO ls_repid.
    APPEND                   ls_repid TO e_repid.
  ENDLOOP.

ENDFUNCTION.

  DATA:
    lt_sys_calls TYPE sys_callst.


  CALL FUNCTION 'SYSTEM_CALLSTACK'
    EXPORTING
      max_level    = 0
    IMPORTING
      et_callstack = lt_sys_calls[].