*&------------------------------------------------------------------
*& TEST FOR  REVERSING BETWEEN ITAB AND XML
*& Author : Tractor
*&------------------------------------------------------------------
report ztest1.

type-pools: truxs ,sydes.

types: begin of ty_items ,
    posnr  like vbap-posnr,
    matnr  like vbap-matnr,
    matkl  like vbap-matkl,
    arktx  like vbap-arktx,
end of ty_items.
types: items type ty_items occurs 0.
data: wa_items type ty_items.

types: begin of ty_order,
   vbeln  like  vbak-vbeln,
   erdat  like  vbak-erdat,
   ernam  like  vbak-ernam,
   auart  like  vbak-auart,
   items  type  items,
end of ty_order.

data: itab_order  type standard table of ty_order with header line.
data: wa_order type ty_order.

data: begin of itab_all occurs 0,
   vbeln  like vbak-vbeln,
   erdat  like vbak-erdat,
   ernam  like vbak-ernam,
   auart  like vbak-auart,
   posnr  like vbap-posnr,
   matnr  like vbap-matnr,
   matkl  like vbap-matkl,
   arktx  like vbap-arktx,
end of itab_all .
data: tmpvbeln like vbak-vbeln.
types: begin of stype_fields,
    fieldname  type name_feld,
end of stype_fields.
data: g_t_fields  type table of stype_fields,
      g_s_fields  type stype_fields.

data: g_t_td       type sydes_desc,
      g_s_typeinfo type sydes_typeinfo,
      g_s_nameinfo type sydes_nameinfo.

*  --declare
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_atrribute type ref to if_ixml_attribute,
      l_factory   type ref to if_ixml_stream_factory,

      l_doc       type ref to if_ixml_document,
      l_root      type ref to if_ixml_element,
      l_order     type ref to if_ixml_element,
      l_head      type ref to if_ixml_element,
      l_item      type ref to if_ixml_element,
      l_element   type ref to if_ixml_element,
      l_ostream   type ref to if_ixml_ostream.

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_vbeln for itab_all-vbeln.

start-of-selection.

  perform get_fields.
  perform get_data.
  perform create_xml.
*&---------------------------------------------------------------------*
*&      Form  get_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
form get_data.
  data: lc_subrc type sy-subrc.

  select (g_t_fields)
    into  corresponding fields of table  itab_all
    from vbak as vbak
    inner join vbap as vbap on vbak~vbeln = vbap~vbeln
    where vbak~vbeln in s_vbeln.
  sort  itab_all by  vbeln posnr.

  loop at itab_all.
    on change of itab_all-vbeln.
      clear: itab_order-items ,tmpvbeln.
      tmpvbeln = itab_all-vbeln.
      loop at itab_all where vbeln = tmpvbeln.
           wa_items-posnr = itab_all-posnr.
           wa_items-matnr = itab_all-matnr.
           wa_items-matkl = itab_all-matkl.
           wa_items-arktx = itab_all-arktx.
           append wa_items to itab_order-items.
      endloop.
      sort itab_order by vbeln.
      itab_order-vbeln = itab_all-vbeln.
      itab_order-erdat = itab_all-erdat.
      itab_order-ernam = itab_all-ernam.
      itab_order-auart = itab_all-auart.
      append itab_order.
    endon.
  endloop.
endform.                    "get_data
*&---------------------------------------------------------------------*
*&      Form  create_xml
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
form create_xml.
*  the variant with load addition loads a global class from the class library.
   class cl_ixml definition load.
*  create class object
  l_ixml = cl_ixml=>create( ).
*  create a xml
  call method l_ixml->create_document
      receiving
         rval = l_doc.
*  create/set encoding attribution/comment
  call method l_ixml->create_encoding
      exporting
          byte_order    = 0
          character_set = 'utf-16'
      receiving
          rval          = l_encoding.
  call method l_doc->set_encoding
      exporting
          encoding      = l_encoding.
*  create  mode / set mode attribute / set comment
  call method l_doc->create_simple_element
      exporting
         name    = 'DELIVERY'
         parent  = l_doc
      receiving
         rval    = l_root.
  call method l_doc->create_simple_element
      exporting
          name   = 'HEADER'
          parent = l_root
      receiving
          rval   = l_head.

   loop at itab_order.
     str = itab_order-vbeln.
     call method l_doc->create_simple_element
       exporting
           name   = 'VBELN'
           parent = l_head
           value  = str
       receiving
           rval   = l_element.
     clear: str.
     str = itab_order-erdat.
     call method l_doc->create_simple_element
       exporting
           name   = 'ERDAT'
           parent = l_head
           value  = str
       receiving
           rval   = l_element.
     clear: str.
     str = itab_order-ernam.
     call method l_doc->create_simple_element
       exporting
           name   = 'ERNAM'
           parent = l_head
           value  = str
       receiving
           rval   = l_element.
     clear: str.
     str = itab_order-auart.
     call method l_doc->create_simple_element
       exporting
           name   = 'AUART'
           parent = l_head
           value  = str
       receiving
           rval   = l_element.
     perform fill_itemstoxml tables itab_order-items
                            using   l_head.
   endloop.
*   输出XML AS STRING
*  create ostream facotry to implement IXML stream output
  break-point.
   call method  l_ixml->create_stream_factory
       receiving
          rval   = l_factory.
  clear:str.
   call method  l_factory->create_ostream_cstring
       exporting
         string   = str
       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  get_fields
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
form get_fields.

* find out the fields of structure of itab_all
  describe field itab_all into g_t_td.

  loop at  g_t_td-names into g_s_nameinfo.
    case g_s_nameinfo-name+4(1).
      when '-'.
        g_s_nameinfo-name+4(1) = '~'.
        append g_s_nameinfo-name to  g_t_fields.
      when others.
    endcase.
  endloop.

  if g_t_fields[] is initial.
    message e001(00) with  'Error '.
  else.
    sort g_t_fields.
    delete adjacent duplicates from g_t_fields.
  endif.
endform.                    "get_fields

form fill_itemstoxml tables intab
                   using  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(20)  type c,
end of headtab.

data: descr_ref type ref to cl_abap_structdescr.
field-symbols:   type abap_compdescr,
               ,
                type any .

data: n    type i, text1 type c,
      str  type string,
      itemname type string,
      l_item  type ref to if_ixml_element,
      l_node  type ref to if_ixml_element.
 descr_ref ?= cl_abap_typedescr=>describe_by_data( intab ).
 break-point.
 loop at descr_ref->components assigning .
    move-corresponding  to headtab.
    append headtab.
 endloop.
 describe table headtab lines n.

  loop at intab assigning .
   call method l_doc->create_simple_element
     exporting
        name    =  'ITEM'
        parent  =   l_parent
     receiving
        rval    = l_item.
     do n times.
       assign component sy-index of structure  to .
       str = .
       shift str left deleting leading '0'.
       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.