获取自定义内表或结构的字段信息

 

  TYPES: BEGIN OF TA_TEST,                      
          A(4)    TYPE C,           
          B(4)     TYPE  C,           
       END OF   TA_TEST.

DATA: N  TYPE P,
      WA_TEST     TYPE TA_TEST.
DATA:      IT_TEST  TYPE TABLE OF TA_TEST.
DATA:
  DESCR_REF TYPE REF TO CL_ABAP_TABLEDESCR.
FIELD-SYMBOLS:
  <KEY_COMP_WA> TYPE ABAP_KEYDESCR.

WA_TEST-A = '002'.
WA_TEST-B = '11'.
APPEND WA_TEST TO IT_TEST.
WA_TEST-A = '002'.
WA_TEST-B = '123'.
APPEND WA_TEST TO IT_TEST.

WA_TEST-A = '003'.
WA_TEST-B = '11'.
APPEND WA_TEST TO IT_TEST.
WA_TEST-A = '003'.
WA_TEST-B = '11'.
APPEND WA_TEST TO IT_TEST.
WA_TEST-A = '003'.
WA_TEST-B = '13'.
APPEND WA_TEST TO IT_TEST.
 
  FIELD-SYMBOLS:
   <F2> TYPE C,
   <F1> TYPE ANY.
DATA:
NAME TYPE abap_compname,
BIAOSHI_ZIDUAN TYPE STRING,
IW_COMP TYPE ABAP_COMPDESCR,
REF_DESCR TYPE REF TO CL_ABAP_STRUCTDESCR.
REF_DESCR ?= CL_ABAP_TYPEDESCR=>DESCRIBE_BY_DATA( WA_TEST ).

LOOP AT IT_TEST ASSIGNING <F1>.
  WRITE : / '第' , SY-TABIX , '行目'.
  LOOP AT REF_DESCR->COMPONENTS INTO IW_COMP.
*  WRITE : /1 iw_comp-length,
*          15 iw_comp-decimals,
*          30 iw_comp-type_kind,
*          45 iw_comp-name.
    CONCATENATE '<F1>-'
                IW_COMP-NAME
           INTO NAME.                       "WK_SUM_MON_REALXX
    ASSIGN (NAME) TO <F2>.

    BIAOSHI_ZIDUAN = IW_COMP-NAME.
    WRITE : / BIAOSHI_ZIDUAN , ':', <F2>.

  ENDLOOP.
ENDLOOP.