Conversion of ABAP Data to XML

Format

Applies To:
This code sample applies to SAP R/3 Enterprise version and above.

Summary
XML format is becoming more critical to the exchange of data between different systems. This document will
help to map the ABAP data into an XML format.

By: Mandar S. Shete

Company: Tata Technologies Ltd.

Date: 13 January 2006

Table of Contents

Create XSLT.....................................................................................................................................2

Create Extraction Program.............................................................................................................14

Author Bio.......................................................................................................................................14

© 2006 SAP AG The SAP Developer Network: http://sdn.sap.com 1

 Conversion of ABAP Data to XML
Format

Create XSLT
In transaction SE80 browse menu Workbench -> Edit Object. In the popup window enter XSLT Program
name (e.g. ZXSLT) and click on create button.

Enter the following code into the editor

<xsl:transform version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" >

<!--xsl:output encoding="utf-8" indent="yes"/-->

<xsl:template match="D2CXML">

<PurchaseOrders>

<xsl:apply-templates/>

</PurchaseOrders>

</xsl:template>

<xsl:template match="item">

<PONO>

<xsl:attribute name="no">

<xsl:value-of select="EBELN"/>

</xsl:attribute>

© 2006 SAP AG The SAP Developer Network: http://sdn.sap.com 1

Conversion of ABAP Data to XML
Format

<PORDNO>

<xsl:apply-templates select="EBELN"/>

</PORDNO>

<Vendor>

<xsl:apply-templates select="LIFNR"/>

</Vendor>

<PurchaseOrg>

<xsl:apply-templates select="EKORG"/>

</PurchaseOrg>

<PurchaseGrp>

<xsl:apply-templates select="EKGRP"/>

</PurchaseGrp>

<xsl:apply-templates select="X-MLSTRUCT"/>

</PONO>

</xsl:template>

<xsl:template match="X-MLSTRUCT">

<xsl:apply-templates/>

</xsl:template>

<xsl:template match="X-MLSTRUCT/item">

<Product>

<ItemNo>

<xsl:apply-templates select="EBELP"/>

</ItemNo>

<Material>

<xsl:apply-templates select="MATNR"/>

© 2006 SAP AG The SAP Developer Network: http://sdn.sap.com 1

 Conversion of ABAP Data to XML
Format

</Material>

<Qty>

<xsl:apply-templates select="MENGE"/>

</Qty>

<Price>

<xsl:apply-templates select="NETPR"/>

</Price>

</Product>

</xsl:template>

</xsl:transform>

Create Extraction Program

Create a report program using ABAP Workbench and the code of the extracting program will be as follows.

*--------------------------------------------------------------------*

* Program : ZXML_EXTRACTION *

* Type : Online *

* Author : Mandar Shete *

* Title : XML Export *

*--------------------------------------------------------------------*

REPORT ZXML_EXTRACTION .

*--------------------------------------------------------------------*

* - - - - - - - - - - DATA DECLARATION - - - - - - - - --*

*--------------------------------------------------------------------*

TYPE-POOLS: ABAP.

© 2006 SAP AG The SAP Developer Network: http://sdn.sap.com 1

Conversion of ABAP Data to XML
Format

TYPES: BEGIN OF TY_XML,

EBELP TYPE STRING,

MATNR TYPE STRING,

MENGE TYPE STRING,

NETPR TYPE STRING,

END OF TY_XML.

TYPES: BEGIN OF TY_FINAL_XML,

EBELN TYPE STRING,

EKORG TYPE EKKO-EKORG,

EKGRP TYPE EKKO-EKGRP,

LIFNR TYPE EKKO-LIFNR,

XMLSTRUCT TYPE TY_XML,

END OF TY_FINAL_XML.

TYPES: BEGIN OF TY_EKPO,

EBELN TYPE EKPO-EBELN,

LIFNR TYPE EKKO-LIFNR,

EKORG TYPE EKKO-EKORG,

EKGRP TYPE EKKO-EKGRP,

EBELP TYPE EKPO-EBELP,

MATNR TYPE EKPO-MATNR,

MENGE TYPE EKPO-MENGE,

NETPR TYPE EKPO-NETPR,

END OF TY_EKPO.

TYPES: TY_TSRCLIN(1024) TYPE X,

© 2006 SAP AG The SAP Developer Network: http://sdn.sap.com 1

 Conversion of ABAP Data to XML
Format

TY_TSRCTAB TYPE STANDARD TABLE OF TY_TSRCLIN.

* Global Data for XML Creation

DATA: G_XML_STRING TYPE STRING,

G_XML_STRING1 TYPE STRING,

G_FILENAME TYPE STRING,

G_PATH TYPE STRING,

G_FULLPATH TYPE STRING,

G_TITLE TYPE STRING,

G_LEN TYPE I.

DATA: G_XSLTP TYPE REF TO CL_XSLT_PROCESSOR,

G_IXML TYPE REF TO IF_IXML,

G_STREAM_FACTORY TYPE REF TO IF_IXML_STREAM_FACTORY,

G_ENCODING TYPE REF TO IF_IXML_ENCODING,

RESSTR TYPE REF TO IF_IXML_OSTREAM,

HTTP_CLIENT TYPE REF TO IF_HTTP_CLIENT,

G_SRCSTR TYPE REF TO IF_IXML_ISTREAM,

G_GEN_EX TYPE REF TO CX_XSLT_EXCEPTION,

G_MESSAGE TYPE STRING,

G_PROGNAME TYPE CXSLTDESC VALUE 'ID'.

* Work Area

DATA: WA_XML TYPE TY_XML,

WA_EKPO TYPE TY_EKPO,

WA_EKPO1 TYPE TY_EKPO,

WA_SOURCE TYPE ABAP_TRANS_SRCBIND.

© 2006 SAP AG The SAP Developer Network: http://sdn.sap.com 1

 Conversion of ABAP Data to XML
Format

DATA: BEGIN OF WA_FINAL_XML,

EBELN TYPE STRING,

LIFNR TYPE STRING,

EKGRP TYPE STRING,

EKORG TYPE STRING,

XMLSTRUCT TYPE TABLE OF TY_XML,

END OF WA_FINAL_XML.

*--------------------------------------------------------------------*

* INTERNAL TABLES

*--------------------------------------------------------------------*

DATA: T_XML TYPE TABLE OF TY_XML,

T_FINAL_XML LIKE TABLE OF WA_FINAL_XML,

T_EKPO TYPE TABLE OF TY_EKPO,

T_SOURCE TYPE ABAP_TRANS_SRCBIND_TAB,

T_SRCTAB TYPE TY_TSRCTAB.

*--------------------------------------------------------------------*

* - - - - - - - - - - SELECTION-SCREEN - - - - - - - - - - - - - - *

*--------------------------------------------------------------------*

*-----Select options/Parameters--------------------------------------*

SELECTION-SCREEN BEGIN OF BLOCK DOWNLOAD

WITH FRAME TITLE TEXT-002.

PARAMETERS: P_COMP TYPE CHAR1 AS CHECKBOX.

PARAMETERS: P_FILE TYPE RLGRAP-FILENAME.

SELECTION-SCREEN END OF BLOCK DOWNLOAD.

© 2006 SAP AG The SAP Developer Network: http://sdn.sap.com 1

Conversion of ABAP Data to XML
Format

AT SELECTION-SCREEN.

IF NOT P_COMP IS INITIAL AND

P_FILE IS INITIAL.

MESSAGE E000(38) WITH 'Please enter the file name'(E01).

ENDIF.

IF NOT P_COMP IS INITIAL AND

NOT P_FILE IS INITIAL.

TRANSLATE P_FILE TO UPPER CASE.

G_LEN = STRLEN( P_FILE ) - 4.

IF P_FILE+G_LEN(4) NE '.XML'.

MESSAGE E000(38) WITH 'Please use the extension as .XML'(E02).

ENDIF.

ENDIF.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.

G_TITLE = 'Result Document'(I01).

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG

EXPORTING

WINDOW_TITLE = G_TITLE

FILE_FILTER = '*.XML'

CHANGING

FILENAME = G_FILENAME

PATH = G_PATH

FULLPATH = G_FULLPATH.

IF SY-SUBRC = 0.

P_FILE = G_FULLPATH.

© 2006 SAP AG The SAP Developer Network: http://sdn.sap.com 1

 Conversion of ABAP Data to XML
Format

ENDIF.

*--------------------------------------------------------------------*

* - - - - - - - - - - LOGIC SECTION - - - - - - - - - - - - *

*-------------------------------------------------------------------*

START-OF-SELECTION.

PERFORM CLEAR_VARIABLES.

PERFORM START_SELECTION.

END-OF-SELECTION.

* WA_FINAL_XML-XMLSTRUCT[] = T_XML[].

* APPEND WA_FINAL_XML TO T_FINAL_XML.

PERFORM CREATE_XML.

IF NOT P_COMP IS INITIAL.

PERFORM DOWNLOAD_FILE.

ENDIF.

*&---------------------------------------------------------------------*

*& Form START_SELECTION

*&---------------------------------------------------------------------*

* Select all the Guids

*----------------------------------------------------------------------*

FORM START_SELECTION .

© 2006 SAP AG The SAP Developer Network: http://sdn.sap.com 1

Conversion of ABAP Data to XML
Format

SELECT H~EBELN H~LIFNR H~EKORG H~EKGRP

I~EBELP I~MENGE I~NETPR I~MATNR

INTO CORRESPONDING FIELDS OF TABLE T_EKPO

FROM EKKO AS H INNER JOIN EKPO AS I

ON H~EBELN = I~EBELN.

LOOP AT T_EKPO INTO WA_EKPO.

WA_EKPO1 = WA_EKPO.

AT NEW EBELN.

REFRESH T_XML.

CLEAR WA_XML.

WA_FINAL_XML-EBELN = WA_EKPO-EBELN.

WA_FINAL_XML-LIFNR = WA_EKPO1-LIFNR.

WA_FINAL_XML-EKORG = WA_EKPO1-EKORG.

WA_FINAL_XML-EKGRP = WA_EKPO1-EKGRP.

ENDAT.

MOVE-CORRESPONDING WA_EKPO TO WA_XML.

APPEND WA_XML TO T_XML.

AT END OF EBELN.

WA_FINAL_XML-XMLSTRUCT[] = T_XML[].

APPEND WA_FINAL_XML TO T_FINAL_XML.

ENDAT.

ENDLOOP.

ENDFORM. " START_SELECTION

© 2006 SAP AG The SAP Developer Network: http://sdn.sap.com 1

 Conversion of ABAP Data to XML
Format

*&---------------------------------------------------------------------*

*& Form CREATE_XML

*&---------------------------------------------------------------------*

* Create XML

*----------------------------------------------------------------------*

FORM CREATE_XML .

* Prepare for Transformation

WA_SOURCE-NAME = 'D2CXML'.

GET REFERENCE OF T_FINAL_XML INTO WA_SOURCE-VALUE.

APPEND WA_SOURCE TO T_SOURCE.

CLEAR G_XML_STRING.

CALL TRANSFORMATION ZXSLT

SOURCE (T_SOURCE)

RESULT XML G_XML_STRING.

IF SY-SUBRC <> 0.

ELSE.

G_XML_STRING1 = G_XML_STRING.

REPLACE 'utf-16' WITH 'utf-8' INTO G_XML_STRING.

ENDIF.

ENDFORM. " CREATE_XML

© 2006 SAP AG The SAP Developer Network: http://sdn.sap.com 1

 Conversion of ABAP Data to XML
Format

*&---------------------------------------------------------------------*

*& Form DOWNLOAD_FILE

*&---------------------------------------------------------------------*

* Download the XML into a file

*----------------------------------------------------------------------*

FORM DOWNLOAD_FILE .

* Local Data

DATA: L_FILENAME TYPE STRING.

TRY.

CREATE OBJECT G_XSLTP.

CATCH CX_XSLT_EXCEPTION.

ENDTRY.

G_IXML = CL_IXML=>CREATE( ).

G_STREAM_FACTORY = G_IXML->CREATE_STREAM_FACTORY( ).

G_SRCSTR = G_STREAM_FACTORY->CREATE_ISTREAM_CSTRING(

STRING = G_XML_STRING1 ).

* XML source is specified by stream

CALL METHOD G_XSLTP->SET_SOURCE_STREAM

EXPORTING

STREAM = G_SRCSTR.

CALL METHOD G_XSLTP->SET_RESULT_TABLE

EXPORTING

© 2006 SAP AG The SAP Developer Network: http://sdn.sap.com 1

Conversion of ABAP Data to XML
Format

TABLE = T_SRCTAB.

* RUN

TRY.

CALL METHOD G_XSLTP->RUN

EXPORTING

PROGNAME = G_PROGNAME.

CATCH CX_XSLT_EXCEPTION INTO G_GEN_EX.

G_XML_STRING = G_GEN_EX->GET_TEXT( ).

ENDTRY.

L_FILENAME = P_FILE.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

FILENAME = L_FILENAME

FILETYPE = 'BIN'

TABLES

DATA_TAB = T_SRCTAB.

IF SY-SUBRC = 0.

G_MESSAGE = 'File downloaded successfully'(I03).

ELSE.

G_MESSAGE = 'Error in downloading file'(I04).

ENDIF.

MESSAGE I000(38) WITH G_MESSAGE.

ENDFORM. " DOWNLOAD_FILE

© 2006 SAP AG The SAP Developer Network: http://sdn.sap.com 1

 Conversion of ABAP Data to XML
Format

*&---------------------------------------------------------------------*

*& Form CLEAR_VARIABLES

*&---------------------------------------------------------------------*

* Clear the values of Global Variables

*----------------------------------------------------------------------*

FORM CLEAR_VARIABLES .

CLEAR: G_TITLE,

G_FILENAME,

G_PATH,

G_FULLPATH,

G_LEN,

G_SRCSTR,

* Work Areas

WA_SOURCE,

WA_XML,

WA_FINAL_XML.

REFRESH: T_XML,

T_SOURCE,

T_SRCTAB,

T_FINAL_XML.

ENDFORM. " CLEAR_VARIABLES

Author Bio
Mandar S. Shete is a senior developer in Tata Technologies.

© 2006 SAP AG The SAP Developer Network: http://sdn.sap.com 1

 Conversion of ABAP Data to XML
Format

Disclaimer & Liability Notice

This document may discuss sample coding or other information that does not include SAP official interfaces
and therefore is not supported by SAP. Changes made based on this information are not supported and can
be overwritten during an upgrade.

SAP will not be held liable for any damages caused by using or misusing the information, code or methods
suggested in this document, and anyone using these methods does so at his/her own risk.

SAP offers no guarantees and assumes no responsibility or liability of any type with respect to the content of
this technical article or code sample, including any liability resulting from incompatibility between the content
within this document and the materials and services offered by SAP. You agree that you will not hold, or seek
to hold, SAP responsible or liable with respect to the content of this document.

© 2006 SAP AG The SAP Developer Network: http://sdn.sap.com 1