XML ID 文件流 stream TRANSFORMATION XML 显示

&---------------------------------------------------------------------
*& Report ZHTEST_011
&---------------------------------------------------------------------
*&
&---------------------------------------------------------------------
REPORT zhtest_011.

DATA : l_xml TYPE REF TO cl_xml_document .

DATA: lo_gui TYPE REF TO cl_gui_frontend_services.

DATA: bin_tab TYPE STANDARD TABLE OF tabl1024.
DATA: fullpath TYPE string,
lv_strs TYPE string,
length TYPE i.
DATA : lt_t001 TYPE TABLE OF t001 .
DATA : lt_t001a TYPE TABLE OF t001 .
SELECT * INTO TABLE lt_t001 FROM t001 .

CALL TRANSFORMATION id SOURCE lt_t001 = lt_t001
RESULT XML DATA(xmlsss) .

• merged_document1 = ls_file-zfiles .

CREATE OBJECT l_xml .

CALL METHOD l_xml->parse_xstring
EXPORTING
stream = xmlsss. "xml_out is the variable which is holding the xml string

CALL METHOD l_xml->render_2_string
IMPORTING
stream = lv_strs.

CALL METHOD l_xml->display.

fullpath = ‘D:\test01’ && sy-uzeit && ‘.xls’ .

CLEAR : lt_t001 .
CALL TRANSFORMATION id SOURCE XML xmlsss
RESULT lt_t001 = lt_t001a .

CALL FUNCTION ‘SCMS_XSTRING_TO_BINARY’
EXPORTING
buffer = xmlsss
IMPORTING
output_length = length
TABLES
binary_tab = bin_tab.

CREATE OBJECT lo_gui .

lo_gui->gui_download( EXPORTING
filename = fullpath
filetype = ‘BIN’
bin_filesize = length
CHANGING
data_tab = bin_tab ) .

WRITE : xmlsss .