types:
  BEGIN OF lty_COMT_TEXT_TEXTDATA,
    STXH TYPE STXH,
    LINES TYPE COMT_TEXT_LINES_T,
    FUNCTION TYPE TDFUNCTION,
  end   of lty_comt_text_textdata.
 
types:
  BEGIN OF ztest_src,
    ref_kind type c LENGTH 5.
    include type LTY_COMT_TEXT_TEXTDATA.
types:
  end of ztest_src.
 
types:
  BEGIN OF ztest_trt,
    REF_KIND TYPE c LENGTH 5,
    STXH TYPE STXH,
    LINES TYPE COMT_TEXT_LINES_T,
    FUNCTION TYPE TDFUNCTION,
  end of ztest_trt.
 
DATA:
       TRT TYPE ZTEST_TRT,
       SRC TYPE ZTEST_SRC,
       LO TYPE REF TO CL_ABAP_TYPEDESCR,
       LSRC TYPE  REF TO CL_ABAP_TYPEDESCR,
       LTRT TYPE REF TO CL_ABAP_TYPEDESCR.
 
DATA: REF_KIND TYPE CHAR80,
       STXH TYPE STXH,
       LINES TYPE COMT_TEXT_LINES_T,
       FUNCTION TYPE TDFUNCTION.
 
CALL METHOD CL_ABAP_TYPEDESCR=>DESCRIBE_BY_DATA
   EXPORTING
     P_DATA      = src
   RECEIVING
     P_DESCR_REF = LSRC.
 
CALL METHOD CL_ABAP_TYPEDESCR=>DESCRIBE_BY_DATA
   EXPORTING
     P_DATA      = TRT
   RECEIVING
     P_DESCR_REF = LTRT.
 
BREAK-POINT.
 
 
Serkan AKKAVAK
Computer Engineer
ABAP Developer & SAP MM SD Consultant
Contact : serkurumsal@yandex.com