Crear xml

[cmacvicar]

Ejemplo de lo Necesitado


DATA: ixml TYPE REF TO if_ixml,
document TYPE REF TO if_ixml_document,
parent TYPE REF TO if_ixml_node,
element TYPE REF TO if_ixml_element,
cdata TYPE REF TO if_ixml_cdata_section.

ixml = cl_ixml=>create( ).
document = ixml->create_document( ).

* Crea Nivel 1 de XML (Documento)
element = document->create_element( name = 'paisOrigen' ).
document->append_child( new_child = element ). " Nombre Documento
parent = element.

* Crea Nivel 2 de XML
*element = document->create_element( name = 'NIVEL_2' ).
*parent->append_child( new_child = element ). " Sub nivel del Doc.
*parent = element.

* Ingresa Atributo del Nodo
element->set_attribute( name = 'xmlns' value = 'http://tempuri.org/' ).

* Ingresar Nombre del Nodo
element = document->create_element( name = 'string' ).

* Ingresar Valor del Nodo
cdata = document->create_cdata_section( `pais` ).

* Crear Registro en Documento
element->append_child( new_child = cdata ).

* Cierra Documento
parent->append_child( new_child = element ).

* Mostrar XML por Pantalla
CALL FUNCTION 'SDIXML_DOM_TO_SCREEN'
EXPORTING
document = document
EXCEPTIONS
OTHERS = 01.