Closing tag in xml transformation

Question

Hi experts,
I have the following ABAP code:
ABAP itab to XML string
  CALL TRANSFORMATION id SOURCE data = ti_stocks[]
                         RESULT XML    ps_output.
The result in ps_output should be an xml like this
<?xml version="1.0" encoding="utf-16" ?>
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DATA>
<ZTABLE_STO>
  <FIELD1 /> ABC</FIELD1>
  <FIELD2 />0300</FIELD2>
  <FIELD3 />1</FIELD3>
  </ZTABLE_STO>
etc.
However, if my internal table ti_stocks contains the field1 with an empty value then the xml is incorrect without its corresponding closing tag:
<?xml version="1.0" encoding="utf-16" ?>
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DATA>
<ZTABLE_STO>
  <FIELD1 />
  <FIELD2 />0300</FIELD2>
  <FIELD3 />1</FIELD3>
  </ZTABLE_STO>
etc.
How can I resolve this problem? I would like to have an open tag and a closing tag for every field.
FIELD1 is a char type field.
Thank you,
Oscar
Edited by: Oscar Arranz on Jan 26, 2012 2:46 PM

Answer 1

Hello everyone, sorry for my english, I had the same requeriment for the end tag, the simple transformation give this result <xxx/> when the value was empty, and I did something similar to Oscar,
i did the simple transformation and the result whas and xstring, i used a function to pass it to string, and then I make a replacement.
here is some code:
*  Genera XML
   data: xml_xstring          type xstring.
   data: w_xml                 type string.
   data: ixml                    type ref to if_ixml,
           streamfactory      type ref to if_ixml_stream_factory,
           encoding             type ref to if_ixml_encoding,
           ixml_ostream      type ref to if_ixml_ostream.
   data: resstream           type ref to if_ixml_ostream.
****Create an instance of the Ixml Processor
   ixml = cl_ixml=>create( ).
*  ****Create the Stream Factory
   streamfactory = ixml->create_stream_factory( ).
*  ****Create an Endcoding and Byte Order
   encoding = ixml->create_encoding( character_set = 'ISO-8859-1' byte_order = 0 ).
*  *  ****Create the output stream with a pointer to our binary string
   ixml_ostream = streamfactory->create_ostream_xstring( xml_xstring ).
*  ****Set the Encoding into a stream
   ixml_ostream->set_encoding( encoding = encoding ).
****Call simple Transformation
   call transformation zdte_libros
   source zcaratula = x_doc
   result xml ixml_ostream.
*From xstring to string.
   call function 'HR_RU_CONVERT_HEX_TO_STRING'
          exporting
                 xstring = xml_xstring
          importing
                 cstring = w_xml.
* <xxx/> to <xxx><xxx/>
   replace all occurrences of regex '<([^><\s]+)( [^><]+)?/>' in w_xml with '<$1$2></$1>'.
Hope it helps someone with the same problem .