内表 项目名取得

来源:互联网 发布:windows是一个什么系统 编辑:程序博客网 时间:2024/06/07 21:38
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.
原创粉丝点击