获得内表字段名

REPORT  ZCYH_FIELDNAMEGET.
types:
  begin of typ_itab,
  a type c,
  b type c,
  c type c,
  end of typ_itab.
data i_itab type table of typ_itab.
DATA:
        l_tabledescr_ref TYPE REF TO cl_abap_tabledescr,
        l_descr_ref      TYPE REF TO cl_abap_structdescr.
* FIELD-SYMBOLS:
*                 TYPE abap_compdescr.
         DATA WA_TABLE TYPE ABAP_COMPDESCR.

  l_tabledescr_ref ?= cl_abap_typedescr=>describe_by_data( i_itab ).
  l_descr_ref ?= l_tabledescr_ref->get_table_line_type( ).

*  LOOP AT l_descr_ref->components ASSIGNING .

*  WRITE: / -NAME.
  LOOP AT l_descr_ref->components INTO WA_TABLE .
  WRITE :/ WA_TABLE-NAME.

  ENDLOOP.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/11671405/viewspace-434530/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/11671405/viewspace-434530/