Gerar arquivo XML
Chegou a hora de trabalhar com interfaces, legados e tudo mais, e você
precisa gerar um XML de sua aplicação. Eis um exemplo facinho para se
tomar como base.
REPORT ZSAPeiros.
DATA: it_table LIKE t001 OCCURS 0.
DATA: l_dom TYPE REF TO if_ixml_element,
m_document TYPE REF TO if_ixml_document,
m_xmldoc TYPE REF TO cl_xml_document,
g_ixml TYPE REF TO if_ixml,
w_result TYPE i,
w_rc LIKE sy-subrc.
START-OF-SELECTION.
SELECT * FROM t001 INTO TABLE it_table.
END-OF-SELECTION.
* Inicializa o iXML-Framework
CLASS cl_ixml DEFINITION LOAD.
g_ixml = cl_ixml=>create( ).
CHECK NOT g_ixml IS INITIAL.
* Cria o DOM com dados do SAP
m_document = g_ixml->create_document( ).
CHECK NOT m_document IS INITIAL.
* Conversão da tabela interna em DOM
CALL FUNCTION 'SDIXML_DATA_TO_DOM'
EXPORTING
name = 'IT_TABLE'
dataobject = it_table[]
IMPORTING
data_as_dom = l_dom
CHANGING
document = m_document
EXCEPTIONS
illegal_name = 1
OTHERS = 2.
IF NOT sy-subrc = 0.
WRITE: /'Erro DADOS -> DOM: ', sy-subrc.
ENDIF.
CHECK NOT l_dom IS INITIAL.
* Apendando o DOM ao documento iXML
w_rc = m_document->append_child( new_child = l_dom ).
IF NOT w_rc IS INITIAL.
WRITE: /'Erro DOM -> iXML: ', w_rc.
ENDIF.
* Criar XML apartir do DOM no iXML
CREATE OBJECT m_xmldoc.
CHECK NOT m_xmldoc IS INITIAL.
w_rc = m_xmldoc->create_with_dom( document = m_document ).
IF NOT w_rc IS INITIAL.
WRITE: /'Erro DOM+iXML -> XML: ', w_rc.
ENDIF.
* Mostrando o arquivo XML
CALL METHOD m_xmldoc->display.
* Salvar o arquivo XML
CALL METHOD m_xmldoc->export_to_file( filename = 'c:\teste.xml' ).
