内表生成XML简单实例

REPORT  zlm_xml_02 .

*&---------------------------------------------------------------------*
*&声明及定义部分
*&---------------------------------------------------------------------*

TYPE-POOLS : ixml .

****声明存放ＸＭＬ文件的结构
TYPES : BEGIN  OF xml_line ,
         data ( 256 )  TYPE  x ,
       END  OF xml_line .

****声明对象
DATA : l_ixml             TYPE  REF  TO if_ixml ,
      l_streamfactory    TYPE  REF  TO if_ixml_stream_factory ,
      l_ostream          TYPE  REF  TO if_ixml_ostream ,
      l_renderer         TYPE  REF  TO if_ixml_renderer ,
      l_document         TYPE  REF  TO if_ixml_document .

****声明ＸＭＬ元素
DATA :l_element_inpot       TYPE  REF  TO if_ixml_element ,
     l_element_matnr       TYPE  REF  TO if_ixml_element ,
     l_element_art         TYPE  REF  TO if_ixml_element ,
     l_element_prueflos    TYPE  REF  TO if_ixml_element ,
     l_element_budat       TYPE  REF  TO if_ixml_element ,
     l_element_losmenge    TYPE  REF  TO if_ixml_element ,
     l_element_enstehdat   TYPE  REF  TO if_ixml_element ,
     l_value               TYPE string .

****声明存放ＸＭＬ文件的内表以及字节数
DATA : l_xml_table        TYPE  TABLE  OF xml_line ,
      l_xml_size         TYPE  i ,
      l_rc               TYPE  i ,
      flag               TYPE string .

****声明数据内表
DATA : BEGIN  OF i_data  OCCURS  0 ,
       matnr  LIKE qals -matnr ,
       prueflos  LIKE qals -prueflos ,