Extract SAP BW Data into XML

Question

Hi Gurus,
Could anyone please tell me
How to extract data in SAP BW (ODS or Infocube) into XML File.

Answer 1

Hi All,
thanx alot for your help.
finally i got my solution.
I have written ABAP code and converted ODS data into XML.
Hope  it will help you all.....
REPORT  ZCONVERT_TO_XML                         .
TABLES: /BIC/AZHSO0400.
PARAMETERS: GK_RUTA TYPE RLGRAP-FILENAME .
DATA: ITAB LIKE /BIC/AZHSO0400 OCCURS 1 WITH HEADER LINE.
DATA: L_DOM TYPE REF TO IF_IXML_ELEMENT,
      M_DOCUMENT TYPE REF TO IF_IXML_DOCUMENT,
      G_IXML TYPE REF TO IF_IXML,
      W_STRING TYPE XSTRING,
      W_SIZE TYPE I,
      W_RESULT TYPE I,
      W_LINE TYPE STRING,
      IT_XML TYPE DCXMLLINES,
      S_XML LIKE LINE OF IT_XML,
      W_RC LIKE SY-SUBRC.
DATA: XML TYPE DCXMLLINES.
DATA: RC TYPE SY-SUBRC.
DATA: BEGIN OF XML_TAB OCCURS 0,
          D LIKE LINE OF XML,
      END OF XML_TAB.
START-OF-SELECTION.
  PERFORM GET_DATA.
  PERFORM CONVERT_XML.
*PERFORM CONVERT_XML.
*&      Form  GET_DATA
      text
-->  p1        text
<--  p2        text
FORM GET_DATA .
  SELECT * FROM /BIC/AZHSO0400 INTO TABLE ITAB.
ENDFORM.                    " GET_DATA
*&      Form  CONVERT_XML
      text
-->  p1        text
<--  p2        text
FORM CONVERT_XML .
  CLASS CL_IXML DEFINITION LOAD.
  G_IXML = CL_IXML=>CREATE( ).
  CHECK NOT G_IXML IS INITIAL.
  M_DOCUMENT = G_IXML->CREATE_DOCUMENT( ).
  CHECK NOT M_DOCUMENT IS INITIAL.
  WRITE: / 'Converting DATA TO DOM 1:'.
  CALL FUNCTION 'SDIXML_DATA_TO_DOM'
    EXPORTING
      NAME               = 'ITAB'
      DATAOBJECT         = ITAB[]
  CONTROL            =
   IMPORTING
     DATA_AS_DOM        = L_DOM
   CHANGING
     DOCUMENT           = M_DOCUMENT
  TYPE_HANDLE        =
   EXCEPTIONS
     ILLEGAL_NAME       = 1
     OTHERS             = 2
  IF SY-SUBRC = 0.
    WRITE:/ 'OK'.
  ELSE.
    WRITE: 'ERR = ', SY-SUBRC.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  CHECK NOT L_DOM IS INITIAL.
  W_RC = M_DOCUMENT->APPEND_CHILD( NEW_CHILD = L_DOM ).
  IF W_RC IS INITIAL.
    WRITE 'Ok'.
  ELSE.
    WRITE: 'Err =',
    W_RC.
  ENDIF.
  CALL FUNCTION 'SDIXML_DOM_TO_XML'
    EXPORTING
      DOCUMENT            = M_DOCUMENT
  PRETTY_PRINT        = ' '
   IMPORTING
     XML_AS_STRING       = W_STRING
     SIZE                = W_SIZE
TABLES
   XML_AS_TABLE        = IT_XML
   EXCEPTIONS
     NO_DOCUMENT         = 1
     OTHERS              = 2
  IF SY-SUBRC = 0.
    WRITE 'Ok'.
  ELSE.
    WRITE: 'Err =',
    SY-SUBRC.
  ENDIF.
  LOOP AT IT_XML INTO XML_TAB-D.
    APPEND XML_TAB.
  ENDLOOP.
  CALL FUNCTION 'WS_DOWNLOAD'
   EXPORTING
     BIN_FILESIZE                  = W_SIZE
     FILENAME                      = GK_RUTA
     FILETYPE                      = 'BIN'
    TABLES
      DATA_TAB                      = XML_TAB
  FIELDNAMES                    =
   EXCEPTIONS
  FILE_OPEN_ERROR               = 1
  FILE_WRITE_ERROR              = 2
  INVALID_FILESIZE              = 3
  INVALID_TYPE                  = 4
  NO_BATCH                      = 5
  UNKNOWN_ERROR                 = 6
  INVALID_TABLE_WIDTH           = 7
  GUI_REFUSE_FILETRANSFER       = 8
  CUSTOMER_ERROR                = 9
  NO_AUTHORITY                  = 10
     OTHERS                        = 10
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM.                    " CONVERT_XML
Thanks and Regards,
P.Madhusudhan Raju,