内表数据到XML极简单写法

REPORT ZTEST_XML.

TABLES:MARA,MAKT.

TYPES:BEGIN OF S,
         MATNR TYPE MATNR,
         MAKTX TYPE MAKTX,
     END OF S.
DATA:ITAB TYPE S OCCURS 0.
DATA: G_XML TYPE REF TO CL_XML_DOCUMENT,
      RC TYPE SY-SUBRC.

SELECT A~MATNR B~MAKTX INTO TABLE ITAB
FROM MARA AS A JOIN MAKT AS B ON A~MATNR = B~MATNR UP TO 10 ROWS
WHERE B~SPRAS = 1.

CREATE OBJECT G_XML.

CALL METHOD G_XML->CREATE_WITH_DATA
  EXPORTING
    NAME       = 'DATA'
    DATAOBJECT = ITAB[]
  RECEIVING
    RETCODE    = RC.

CALL METHOD G_XML->EXPORT_TO_FILE
  EXPORTING
    FILENAME = 'c:\test.xml'
  RECEIVING
    RETCODE  = RC.