How to know the name of the perform

Question

I would like to have the name of the perform in an abap program.
Ex :
Form f333_form.
write: / 'I''m in the form', w_namef.
enform.
w_namef should contain f333_form.
Like in debug (stack list).
regards,
Christophe

Answer 1

Thank you for your answer.
Here is the code to put a trace on each perform.
REPORT  zzzcga012                               .
TYPES:
   BEGIN OF abap_call_stack_entry,
     mainprogram  LIKE sy-repid,
     include      LIKE sy-repid,
     line         TYPE i,
     eventtype    LIKE abdbg-leventtype,
     event        LIKE abdbg-levent,
     flag_system  TYPE c,
   END OF abap_call_stack_entry.
DATA:
  acse TYPE abap_call_stack_entry,
  tab  TYPE TABLE OF abap_call_stack_entry.
**** Definition of a macro in order not to put lines in each perform
define trace_perf.
CALL 'ABAP_CALLSTACK' ID 'DEPTH'     FIELD 2
                      ID 'CALLSTACK' FIELD tab.
read TABLE tab INTO acse index 1.
*-- Der Start ab dem zweiten Eintrag ist notwendig, weil in
*-- der ersten Tabellenzeile der aktuelle Eintrag steht, also
*-- diese FORM-Routine.
  WRITE:
  / 'Mainprog:', acse-mainprogram,
  / 'Include: ', acse-include,
  / 'Event:   ', acse-eventtype,
                 acse-event.
end-OF-DEFINITION.
START-OF-SELECTION.
  PERFORM f100.
END-OF-SELECTION.
*&      Form  f100
*       text
FORM f100.
  trace_perf.  "use of macro
  PERFORM f110.
ENDFORM.                                                    "f100
*&      Form  f110
*       text
FORM f110.
    trace_perf.  "use of macro
  PERFORM f111.
ENDFORM.                                                    "f110
*&      Form  f111
*       text
FORM f111.
    trace_perf.  "use of macro
ENDFORM.                                                    "f111