ABAP to XML file - Formatting problem and UTF-8 requirement

Question

Hi Everyone,
Could you please guide us on the ABAP coding required to get the proper XML file format. We have prepared the code for downloading SAP transaction data into an XML file format. However, we are stuck with an improper format as per Example 1.
The file format we get is this:
Example 1:
<?xml version="1.0"?><FDXLMDOrd><FXNHdrLp><CrtDtTm>20070613094517</CrtDtTm><MsgID>319304155</MsgID><MsgTyp>850</MsgTyp><MsgSubTyp>SALES_A</MsgSubTyp><Pr
<RcvTP>FSCS</RcvTP><SndSrc>FXN</SndSrc><RcvSrc>EIB</RcvSrc><UsrID>VAR</UsrID></FXNHdrLp><OrdHdrLp><OrdNbr>319304155</OrdNbr><OrdActnCD>9</OrdActnCD><Ord
teCarrReq>FDE</RteCarrReq><RteTptSvcReq>FEIP</RteTptSvcReq></DprtRteLp><SpecInstrLp><SpecInstrTyp>SHIP</SpecInstrTyp><SpecInstr>Example Packing Instruct
les Order</RefDesc></RefLp><RefLp><RefIDQual>CPO</RefIDQual><RefID>test 1 line 1 pc - s</RefID><RefDesc>Customers Customer Purchase Order</RefDesc></Ref
Typ><EntIDQual>91</EntIDQual><EntID>H00092</EntID><EntNm>VLAD BOBES</EntNm><Cty>MONTREAL</Cty><PstlCD>H3X 2N5</PstlCD><RgnalCD>QC</RgnalCD><CtryISOCD>CA
></AdrLnLp><ConLp><ConTypCD>IC</ConTypCD><ConNm>VLAD BOBES</ConNm><CommLp><CommNbrQual>TE</CommNbrQual><CommNbr>514-731-8361</CommNbr></CommLp></ConLp><
<Cty>MONTREAL</Cty><PstlCD>H3X 2N5</PstlCD><RgnalCD>QC</RgnalCD><CtryISOCD>CA</CtryISOCD><AddlNmLp><AddlNm1>VLAD BOBES</AddlNm1></AddlNmLp><AdrLnLp><Str
However, the format need to look like this as in Example 2 below.
We also need help in how to get  " encoding="UTF-8"?> " as part of the file format.
Example 2:
<?xml version="1.0" encoding="UTF-8"?>                
<FDXLMDProdRcpt>                                      
    <FXNHdrLp>                                        
        <CrtDtTm>20070612151817</CrtDtTm>             
        <SessID>26796</SessID>                        
        <MsgTyp>861</MsgTyp>                          
        <MsgSubTyp>WRE_A</MsgSubTyp>                  
        <PrcsingPrty>5</PrcsingPrty>                  
        <SndTPQualCD>ZZ</SndTPQualCD>                 
        <SndTP>FSCS</SndTP>                           
        <RcvTPQualCD>ZZ</RcvTPQualCD>                 
        <RcvTP>EIB</RcvTP>                            
        <SndSrc>YANTRA</SndSrc>                       
        <RcvSrc>EIB</RcvSrc>                          
        <UsrID>VAR</UsrID>                            
    </FXNHdrLp>                                       
    <ProdRcptHdrLp>                                   
        <ShpID>VAR20070612NCHIC1</ShpID>              
        <ShpTyp> </ShpTyp>                            
        <ShpActnCD>00</ShpActnCD>                     
        <InTransMrgTyp> </InTransMrgTyp>              
        <ShpVolUOM>CI</ShpVolUOM>                     
        <ShpWgtUOM>LB</ShpWgtUOM>                     
        <ShpTotVol>310022.00</ShpTotVol>              
        <ShpTotWgt>861.00</ShpTotWgt>                 
        <DtTmLp>                                      
            <DtTyp>050</DtTyp>                        
            <DtTmQual>501</DtTmQual>                  
            <DtTm>2007-06-12T15:07:41-04:00</DtTm>    
        </DtTmLp>                                     
        <AdrLp>                                       
            <EntTyp>RC</EntTyp>                       
            <EntIDQual>93</EntIDQual>                 
            <EntID>NCHIC</EntID>                      
            <EntNm>NCHIC</EntNm>                      
            <AutoCrtTrdPar>0</AutoCrtTrdPar>          
            <AutoCrtTrdParRole>0</AutoCrtTrdParRole>  
            <AutoUpdtTrdPar>0</AutoUpdtTrdPar>        
        </AdrLp>                                      
        <ProdRcptTptLp>                               
            <TptIDQual>BOL</TptIDQual>                
            <TptSCAC> </TptSCAC>                      
            <TptID> </TptID>   
Thanks and Best Regards
Sitaraman

Answer 1

You could try to use the following coding:
*& Report  ZUS_SDN_UC_XML_TO_UTF8_TRANSF
REPORT  zus_sdn_uc_xml_to_utf8_transf.
define local data
CONSTANTS:
  gc_encoding           TYPE string VALUE 'UTF-8'.
DATA:
  gd_result             type string,
  go_ixml               TYPE REF TO if_ixml,
  go_stream_factory     TYPE REF TO if_ixml_stream_factory,
  go_encoding           TYPE REF TO if_ixml_encoding,
  go_resstream          TYPE REF TO if_ixml_ostream.
DATA:
  gt_knb1    TYPE STANDARD TABLE OF knb1,
gd_xml     TYPE string,
  gt_xml     TYPE TABLE OF string.
START-OF-SELECTION.
  SELECT * FROM knb1 INTO TABLE gt_knb1 UP TO 10 ROWS
      WHERE bukrs = '1000'.
  go_ixml = cl_ixml=>create( ).
  go_stream_factory = go_ixml->create_stream_factory( ).
  go_encoding = go_ixml->create_encoding( character_set = gc_encoding
                                        byte_order = 0 ).
  go_resstream =
              go_stream_factory->create_ostream_cstring( gd_result ).
  CALL METHOD go_resstream->set_encoding
    EXPORTING
      encoding = go_encoding.
XML Transformieren
  CALL TRANSFORMATION id_indent
    SOURCE     itab = gt_knb1
    RESULT XML go_resstream.
  APPEND gd_result TO gt_xml.
  CALL METHOD cl_gui_frontend_services=>gui_download
    EXPORTING
     BIN_FILESIZE              =
      filename                  = 'C:\temp\xml_to_utf8.txt'
     FILETYPE                  = 'ASC'
     APPEND                    = SPACE
     WRITE_FIELD_SEPARATOR     = SPACE
     HEADER                    = '00'
     TRUNC_TRAILING_BLANKS     = SPACE
     WRITE_LF                  = 'X'
     COL_SELECT                = SPACE
     COL_SELECT_MASK           = SPACE
     DAT_MODE                  = SPACE
     CONFIRM_OVERWRITE         = SPACE
     NO_AUTH_CHECK             = SPACE
     CODEPAGE                  = SPACE
     IGNORE_CERR               = ABAP_TRUE
     REPLACEMENT               = '#'
     WRITE_BOM                 = SPACE
     TRUNC_TRAILING_BLANKS_EOL = 'X'
   IMPORTING
     FILELENGTH                =
    CHANGING
      data_tab                  = gt_xml
    EXCEPTIONS
      file_write_error          = 1
      no_batch                  = 2
      gui_refuse_filetransfer   = 3
      invalid_type              = 4
      no_authority              = 5
      unknown_error             = 6
      header_not_allowed        = 7
      separator_not_allowed     = 8
      filesize_not_allowed      = 9
      header_too_long           = 10
      dp_error_create           = 11
      dp_error_send             = 12
      dp_error_write            = 13
      unknown_dp_error          = 14
      access_denied             = 15
      dp_out_of_memory          = 16
      disk_full                 = 17
      dp_timeout                = 18
      file_not_found            = 19
      dataprovider_exception    = 20
      control_flush_error       = 21
      not_supported_by_gui      = 22
      error_no_gui              = 23
      OTHERS                    = 24.
  IF sy-subrc <> 0.
  MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
             WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
END-OF-SELECTION.
However, I like to mention that the file created from out ECC 5.0 (6.40, non-Unicode) contains a special character between the XML header and the data part (when displayed using NotePad Editor):
...xml version="1.0" encoding="utf-8"?>[special character]<asx:abap xmlns:asx="http://www.sap.com/a...
Using a HexEditor the special character (0x0A) is displayed as a dot.
Also Check with FM - TREX_TEXT_TO_UTF8
Reward Points if it is helpful
Thanks
Seshu