DEMO:上载XML到内表_SAP刘梦_新浪博客

*&---------------------------------------------------------------------*

*& Report ZLM_XML_UPLOAD

*&

*&---------------------------------------------------------------------*

*&

*&

*&---------------------------------------------------------------------*

REPORT zlm_xml_upload.

PARAMETERS: p_filnam TYPE localfile OBLIGATORY

DEFAULT 'C:\Users\mliu43\Desktop\1.xml'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_filnam.

DATA: l_v_fieldname TYPE dynfnam.

l_v_fieldname = p_filnam.

CALL FUNCTION 'F4_FILENAME'

EXPORTING

program_name = syst-cprog

dynpro_number = syst-dynnr

field_name = l_v_fieldname

IMPORTING

file_name = p_filnam.

START-OF-SELECTION.

* TYPES:

*

* BEGIN OF ty_tab,

*

* name TYPE string,

*

* value TYPE string,

*

* END OF ty_tab.

DATA:

lcl_xml_doc TYPE REF TO cl_xml_document,

v_subrc TYPE sysubrc,

v_node TYPE REF TO if_ixml_node,

v_child_node TYPE REF TO if_ixml_node,

v_root TYPE REF TO if_ixml_node,

v_iterator TYPE REF TO if_ixml_node_iterator,

v_nodemap TYPE REF TO if_ixml_named_node_map,

v_count TYPE i,

v_index TYPE i,

v_attr TYPE REF TO if_ixml_node,

v_name TYPE string,

v_prefix TYPE string,

v_value TYPE string,

v_char TYPE char2.

DATA:

itab TYPE STANDARD TABLE OF zlm_xml_node,

* itab TYPE STANDARD TABLE OF ty_tab,

wa TYPE zlm_xml_node.

* wa TYPE ty_tab.

CREATE OBJECT lcl_xml_doc.

CALL METHOD lcl_xml_doc->import_from_file

EXPORTING

filename = p_filnam

RECEIVING

retcode = v_subrc.

CHECK v_subrc = 0.

v_node = lcl_xml_doc->m_document.

CHECK NOT v_node IS INITIAL.

v_iterator = v_node->create_iterator( ).

v_node = v_iterator->get_next( ).

WHILE NOT v_node IS INITIAL.

CASE v_node->get_type( ).

WHEN if_ixml_node=>co_node_element.

v_name = v_node->get_name( ).

v_nodemap = v_node->get_attributes( ).

IF NOT v_nodemap IS INITIAL.

* attributes

v_count = v_nodemap->get_length( ).

DO v_count TIMES.

v_index = sy-index - 1.

v_attr = v_nodemap->get_item( v_index ).

v_name = v_attr->get_name( ).

v_prefix = v_attr->get_namespace_prefix( ).

v_value = v_attr->get_value( ).

ENDDO.

ENDIF.

WHEN if_ixml_node=>co_node_text OR

if_ixml_node=>co_node_cdata_section.

* text node

v_value = v_node->get_value( ).

MOVE v_value TO v_char.

IF v_char <> cl_abap_char_utilities=>cr_lf.

wa-name = v_name.

wa-value = v_value.

APPEND wa TO itab.

CLEAR wa.

ENDIF.

ENDCASE.

* advance to next node

v_node = v_iterator->get_next( ).

ENDWHILE.

FIELD-SYMBOLS:

TYPE ANY.

*

DATA : lt_idetails TYPE abap_compdescr_tab WITH HEADER LINE.

DATA : lr_ref_table_des TYPE REF TO cl_abap_structdescr.

DATA : ct_idetails TYPE abap_compdescr_tab WITH HEADER LINE.

DATA : cr_ref_table_des TYPE REF TO cl_abap_structdescr.

lr_ref_table_des ?=

cl_abap_typedescr=>describe_by_name( 'SPFLI' ).

CLEAR lt_idetails[].

lt_idetails[] = lr_ref_table_des->components[].

"循环判断结构每个字段

DATA:ls_data TYPE spfli.

DATA:lt_data TYPE TABLE OF spfli.

LOOP AT itab INTO wa.

READ TABLE lt_idetails WITH KEY name = wa-name.

CHECK sy-subrc = 0.

ASSIGN COMPONENT lt_idetails-name OF STRUCTURE ls_data TO .

IF lt_idetails-name = 'CARRID'.

APPEND ls_data TO lt_data.

ENDIF.

= wa-value.

ENDLOOP.

"添加最后一行

APPEND ls_data TO lt_data.

"删除空行

DELETE lt_data WHERE carrid IS INITIAL.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_structure_name = 'SPFLI'

TABLES

t_outtab = lt_data

EXCEPTIONS

program_error = 1

OTHERS = 2.