内表 项目名取得

REPORT Y_ZHANG. DATA: l_tabledescr_ref TYPE REF TO cl_abap_tabledescr, l_descr_ref TYPE REF TO cl_abap_structdescr. DATA : IT_S0130 TYPE TABLE OF ZBUSA_T2310. "ケーステーブル DATA: L_W_CHAR2 TYPE STRING. "項目値 FIELD-SYMBOLS: TYPE abap_compdescr, TYPE ANY, TYPE ANY. SELECT * INTO TABLE IT_S0130 FROM ZBUSA_T2310. l_tabledescr_ref ?= cl_abap_typedescr=>describe_by_data( IT_S0130 ). l_descr_ref ?= l_tabledescr_ref->get_table_line_type( ). LOOP AT IT_S0130 ASSIGNING . LOOP AT l_descr_ref->components ASSIGNING . WRITE :/'項目名:' , -name. ASSIGN COMPONENT -name OF STRUCTURE TO . MOVE TO L_W_CHAR2. WRITE :/'項目値:' , L_W_CHAR2. ENDLOOP. ENDLOOP.