使用ABAP创建XML文件：程序示例

REPORT zams_xml_dom_create .

TYPE-POOLS: ixml.

CLASS cl_ixml DEFINITION LOAD.

TYPES: BEGIN OF xml_line,
       data(256) TYPE x,
       END OF xml_line.

DATA: l_ixml            TYPE REF TO if_ixml,
      l_streamfactory   TYPE REF TO if_ixml_stream_factory,
      l_ostream         TYPE REF TO if_ixml_ostream,
      l_renderer        TYPE REF TO if_ixml_renderer,
      l_document        TYPE REF TO if_ixml_document.

DATA:l_element_ArchiveBatch          TYPE REF TO if_ixml_element,
     l_element_BatchNumber           TYPE REF TO if_ixml_element,
     l_element_TotalFiles            TYPE REF TO if_ixml_element,
     l_element_TotalVolumes          TYPE REF TO if_ixml_element,
     l_element_TotalPieces           TYPE REF TO if_ixml_element,
     l_element_Entries               TYPE REF TO if_ixml_element,
     l_element_Entry                 TYPE REF TO if_ixml_element,
     l_element_RecordsCombiningType  TYPE REF TO if_ixml_element,
     l_element_FilePath              TYPE REF TO if_ixml_element,
     l_element_SourceFileName        TYPE REF TO if_ixml_element,
     l_element_ClassificationCode    TYPE REF TO if_ixml_element,
     l_element_ElectronicRecordCode  TYPE REF TO if_ixml_element,
     l_value                         TYPE string,
     l_name                          type string.

DATA: l_xml_table       TYPE TABLE OF xml_line,
        l_xml_size        TYPE i,
        l_rc              TYPE i.

  START-OF-SELECTION.

*Creating a ixml factory
        l_ixml = cl_ixml=>create( ).

*Creating the dom object model
        l_document = l_ixml->create_document( ).
*Fill root node with value ArchiveBatch
        l_element_ArchiveBatch = l_document->create_simple_element(
                    name = 'ArchiveBatch'
                    parent = l_document ).

*        clear l_value.
*        l_value = '"http://www.w3.org/2001/XMLSchema-instance"'.
*        l_rc = l_element_ArchiveBatch->set_attribute( name = 'xmlns:
*xsi'
* value = l_value ).
*
*         clear l_value.
*        concatenate '"D:\dev\vs\projects\AMS\DotNet\Sinopec.Ams.'
*                    'Integration\bin\Debug\config\AmsIntegration.xsd"'
*                    into l_value.
*        l_name = 'xsi:noNamespaceSchemaLocation'.
*        l_rc = l_element_ArchiveBatch->set_attribute( name = l_name
*value = l_value ).