利用DEEP Table做层次XML输出(原文转自网络）

利用DEEP Table做层次XML输出

（---原文转自 http://blog.chinaunix.net/u1/40527/showart_681421.html 老白的ABAP博客）

*&---------------------------------------------------------------------*
*& Report Z_BARRY_TEST_XML
*&---------------------------------------------------------------------*
*& 46C - ECC6 通用
*&---------------------------------------------------------------------*
REPORT z_barry_test_xml.
TYPES: BEGIN OF ty_item ,
ebelp LIKE ekpo-ebelp ,
menge LIKE ekpo-menge ,
END OF ty_item .
TYPES tt_item TYPE STANDARD TABLE OF ty_item WITH DEFAULT KEY .
DATA: itab_item TYPE STANDARD TABLE OF ty_item WITH HEADER LINE ,
wa_item LIKE LINE OF itab_item.
TYPES: BEGIN OF ty_po ,
ebeln LIKE ekko-ebeln ,
aedat LIKE ekko-aedat ,
item TYPE tt_item ,
END OF ty_po .
DATA: itab_po TYPE STANDARD TABLE OF ty_po WITH HEADER LINE .
DATA: BEGIN OF itab_all OCCURS 0 ,
ebeln LIKE ekko-ebeln ,
aedat LIKE ekko-aedat ,
ebelp LIKE ekpo-ebelp ,
menge LIKE ekpo-menge ,
END OF itab_all.
DATA: tmpebeln LIKE ekko-ebeln.
DATA: l_ixml TYPE REF TO if_ixml,
l_encoding TYPE REF TO if_ixml_encoding,
l_comment TYPE REF TO if_ixml_comment,
l_doc TYPE REF TO if_ixml_document,
l_root TYPE REF TO if_ixml_element,
l_po TYPE REF TO if_ixml_element,
l_pohead TYPE REF TO if_ixml_element,
l_item TYPE REF TO if_ixml_element,
l_element TYPE REF TO if_ixml_element,
l_attribute TYPE REF TO if_ixml_attribute,
l_ostream TYPE REF TO if_ixml_ostream,
l_factory TYPE REF TO if_ixml_stream_factory.
TYPES: BEGIN OF xml_line,
data(256) TYPE x,
END OF xml_line.
DATA: xml_table TYPE TABLE OF xml_line,
xml_size TYPE i.
DATA: l_rval TYPE i.
DATA: str TYPE string .
SELECT-OPTIONS : s_ebeln FOR itab_all-ebeln.
START-OF-SELECTION.
PERFORM getdata.
PERFORM create_xml.
PERFORM download.
*---------------------------------------------------------------------*
* FORM getdata *
*---------------------------------------------------------------------*
FORM getdata.
SELECT ekko~ebeln ekko~aedat ekpo~ebelp ekpo~menge
INTO TABLE itab_all
FROM ekko INNER JOIN ekpo ON ekko~ebeln = ekpo~ebeln
WHERE ekko~ebeln IN s_ebeln.
SORT itab_all BY ebeln ebelp.
LOOP AT itab_all .
ON CHANGE OF itab_all-ebeln .
CLEAR itab_po-item .
CLEAR tmpebeln .
tmpebeln = itab_all-ebeln .
LOOP AT itab_all WHERE ebeln = tmpebeln .
wa_item-ebelp = itab_all-ebelp .
wa_item-menge = itab_all-menge .
APPEND wa_item TO itab_po-item .
ENDLOOP .
SORT itab_po-item BY ebelp.
itab_po-ebeln = itab_all-ebeln .
itab_po-aedat = itab_all-aedat .
APPEND itab_po .
ENDON .
ENDLOOP .
ENDFORM. "getdata
*---------------------------------------------------------------------*
* FORM create_xml *
*---------------------------------------------------------------------*
FORM create_xml.
CLASS cl_ixml DEFINITION LOAD.
l_ixml = cl_ixml=>create( ).
CALL METHOD l_ixml->create_encoding
EXPORTING
byte_order = 0
character_set = 'gb2312'
RECEIVING
rval = l_encoding.
CALL METHOD l_ixml->create_document
RECEIVING
rval = l_doc.
CALL METHOD l_doc->set_encoding
EXPORTING
encoding = l_encoding.
CALL METHOD l_doc->create_simple_element
EXPORTING
name = 'Root'
parent = l_doc
RECEIVING
rval = l_root.
CALL METHOD l_root->set_attribute
EXPORTING
name = 'ATTRIBUTE'
value = 'sample'
RECEIVING
rval = l_rval.
CALL METHOD l_doc->create_comment
EXPORTING
comment = '''上面ATTRIBUTE为属性示例'''
RECEIVING
rval = l_comment.
CALL METHOD l_root->append_child
EXPORTING
new_child = l_comment
RECEIVING
rval = l_rval.
LOOP AT itab_po.
CALL METHOD l_doc->create_simple_element
EXPORTING
name = 'po'
parent = l_root
RECEIVING
rval = l_po.
CALL METHOD l_doc->create_simple_element
EXPORTING
name = 'pohead'
parent = l_po
RECEIVING
rval = l_pohead.
str = itab_po-ebeln .
CALL METHOD l_doc->create_simple_element
EXPORTING
name = 'ponumber'
parent = l_pohead
value = str
RECEIVING
rval = l_element.
str = itab_po-aedat .
CALL METHOD l_doc->create_simple_element
EXPORTING
name = 'podate'
parent = l_pohead
value = str
RECEIVING
rval = l_element.
PERFORM fill_itab2xml TABLES itab_po-item
USING 'pobody'
'poitem'
l_po.
ENDLOOP.
CALL METHOD l_ixml->create_stream_factory
RECEIVING
rval = l_factory.
CALL METHOD l_factory->create_ostream_itable
EXPORTING
table = xml_table
RECEIVING
rval = l_ostream.
CALL METHOD l_doc->render
EXPORTING
ostream = l_ostream
recursive = 'X'.
CALL METHOD l_ostream->get_num_written_raw
RECEIVING
rval = xml_size.
ENDFORM. "create_xml
*---------------------------------------------------------------------*
* FORM fill_itab *
*---------------------------------------------------------------------*
FORM fill_itab2xml TABLES intab
USING node1name TYPE string
node2name TYPE string
l_parent TYPE REF TO if_ixml_element.
DATA: BEGIN OF headtab OCCURS 0 ,
length TYPE i ,
decimals TYPE i,
type_kind TYPE c,
name(30) TYPE c,
END OF headtab.
DATA descr_ref TYPE REF TO cl_abap_structdescr.
FIELD-SYMBOLS: <comp_wa> TYPE abap_compdescr ,
<f_field> ,
<f_intab> TYPE ANY .
DATA: n TYPE i ,
str TYPE string ,
itemname TYPE string ,
text1 TYPE c ,
l_node TYPE REF TO if_ixml_element ,
l_item TYPE REF TO if_ixml_element .
descr_ref ?= cl_abap_typedescr=>describe_by_data( intab ).
LOOP AT descr_ref->components ASSIGNING <comp_wa>.
MOVE-CORRESPONDING <comp_wa> TO headtab.
APPEND headtab.
ENDLOOP.
CALL METHOD l_doc->create_simple_element
EXPORTING
name = node1name
parent = l_parent
RECEIVING
rval = l_node.
DESCRIBE TABLE headtab LINES n.
LOOP AT intab ASSIGNING <f_intab>.
CALL METHOD l_doc->create_simple_element
EXPORTING
name = node2name
parent = l_node
RECEIVING
rval = l_item.
DO n TIMES.
ASSIGN COMPONENT sy-index OF STRUCTURE <f_intab> TO <f_field>.
str = <f_field>.
READ TABLE headtab INDEX sy-index.
IF headtab-type_kind = 'I' OR headtab-type_kind = 'P'
OR headtab-type_kind = 'F'.
SEARCH str FOR '-'.
IF sy-subrc = 0 AND sy-fdpos <> 0.
SPLIT str AT '-' INTO str text1.
CONDENSE str.
CONCATENATE '-' str INTO str.
ELSE.
CONDENSE str.
ENDIF.
ELSE.
* SHIFT str LEFT DELETING LEADING '0' .
ENDIF.
itemname = headtab-name .
CALL METHOD l_doc->create_simple_element
EXPORTING
name = itemname
parent = l_item
value = str
RECEIVING
rval = l_element.
ENDDO.
ENDLOOP.
ENDFORM. "fill_itab2xml
*---------------------------------------------------------------------*
* FORM download *
*---------------------------------------------------------------------*
FORM download.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
bin_filesize = xml_size
filename = 'C:\46C.XML'
filetype = 'BIN'
TABLES
data_tab = xml_table.
ENDFORM. "download