Fieldcatalog to Excel using Simple transformation

Question

Hi guys.
I have tried to sort out how to write own simple transormations but i've got problems along before i had expected.
The task is to make an XML file, that can be opened with Excel and it must contain row with column names of some dictionary table. The code is pretty simple:
REPORT  ZJDTEST33.
parameters: p_tabnam type tabname matchcode object DD_DBTB,
            p_file   type string default 'C:\data\test.xls'.
data: gt_fcat type lvc_t_fcat,
      gd_xml  type string,
      gt_xml  type table of string.
start-of-selection.
  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
   EXPORTING
     I_STRUCTURE_NAME             = p_tabnam
    CHANGING
      ct_fieldcat                  = gt_fcat.
end-of-selection.
  call transformation ztest_simple
      SOURCE fieldcat = gt_fcat
      RESULT XML gd_xml.
  refresh gt_xml.
  APPEND gd_xml TO gt_xml.
  CALL METHOD cl_gui_frontend_services=>gui_download
      EXPORTING
         filename                  = p_file
         filetype                  = 'ASC'
      changing
        data_tab                  = gt_xml.
This is transformation itself:
<?sap.transform simple?>
<?mso-application progid="Excel.Sheet"?>
<tt:transform xmlns:tt="http://www.sap.com/transformation-templates"
              xmlns:ddic="http://www.sap.com/abapxml/types/dictionary">
  <tt:root name="fieldcat" line-type="ddic:LVC_S_FCAT"/>
  <tt:template>
    <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
              xmlns:o="urn:schemas-microsoft-com:office:office"
              xmlns:x="urn:schemas-microsoft-com:office:excel"
              xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"
              xmlns:html="http://www.w3.org/TR/REC-html40">
      <Worksheet ss:Name="Sheet1">
        <Table>
          <Row>
            <tt:loop ref=".fieldcat">
              <Cell>
                <Data ss:Type="String">
                  <tt:value ref="SCRTEXT_M"/>
                </Data>
              </Cell>
            </tt:loop>
          </Row>
        </Table>
        <WorksheetOptions xmlns="urn:schemas-microsoft-com:office:excel">
          <Selected/>
          <ProtectObjects>False</ProtectObjects>
          <ProtectScenarios>False</ProtectScenarios>
        </WorksheetOptions>
      </Worksheet>
    </Workbook>
  </tt:template>
</tt:transform>
Edited by: Petr.Plenkov on Nov 3, 2009 9:07 AM

Answer 1

Finally, i've got the reason. If somebody has the same problem, just change the encoding manually into a string.
replace first occurrence of 'utf-16' in ld_xmlstr with 'windows-1251'.
Edited by: Petr.Plenkov on Nov 3, 2009 12:37 PM