현재 실행 중인 Function

호출된 프로그램은 SY-CPROG

호출된 TCODE는 SY-TCODE 

 

그럼 호출된 Function 은 ? 

Function 'SYSTEM_CALLSTACK' 을 통해 가능하다. 

EVENTTYPE 이 FUNC 인 ET_CALLSTACK 테이블을 확인한다. 

 

해당 FUNCTION 은 ST22 나 ABAP Debuging시에 확인 할 수 있는 이벤트가 저장된다. 

 

  CALL FUNCTION 'SYSTEM_CALLSTACK'
*  EXPORTING
*    MAX_LEVEL          = 0
   IMPORTING
     callstack          = t_abap_stack
     et_callstack       = t_sys_stack.
*
  READ TABLE t_abap_stack TRANSPORTING NO FIELDS
    WITH KEY mainprogram = LV_FUNC.   "Your Program name
  IF sy-subrc NE 0.
    "Not found, go away
    EXIT.
  ELSE.
    "Continue the journey
  ENDIF.