Data Export in XML format

Question

Dear SAP Gurus;
I had developed a <b><u>HR Data Extract Report</u></b> to export data in CSV format, but one of our vender application needs data in XML format - any assistance in writing code will be highly <b>appreciated</b> and reward points are <b><i>assured</i></b>.
Best Regards,
Aslam Riaz

Answer 1

Hi We are also in version 4.7.
Use the code below as refefence.  It works.  Please close the issue with appropriate points if helps.  Good luck.
Selection Screen
SELECTION-SCREEN BEGIN OF BLOCK selscr WITH FRAME TITLE text-s01.
PARAMETER:p_file TYPE rlgrap-filename MODIF ID fil." Output File Name
SELECTION-SCREEN END OF BLOCK selscr.
Data Declaratiion
TYPES: BEGIN OF address,
        street(20) TYPE c,
        apt(10)    TYPE c,
        city(20)   TYPE c,
        state(2)   TYPE c,
        zip(10)    TYPE c,
       END OF address.
TYPES: BEGIN OF person,
        name(20) TYPE c,
        ssn(11) TYPE c,
        dob(12) TYPE c,
        address TYPE address,
       END OF person.
DATA: BEGIN OF employee OCCURS 0,
       person TYPE person,
      END OF employee.
Data for xml conversion
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,
BEGIN OF xml_tab OCCURS 0,
              d LIKE LINE OF xml,
END OF xml_tab.
Initialization
INITIALIZATION.
At Selection-Screen On Value Request
AT SELECTION-SCREEN.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
Validating file
  PERFORM get_local_file_name USING p_file.
Start-of-selection
START-OF-SELECTION.
Populate the internal table
  PERFORM populate_data.
Create xml file
  PERFORM create_xml.
END-OF-SELECTION.
Down load the xml file
  PERFORM download_xml.
*&      Form  populate_data
      text
-->  p1        text
<--  p2        text
FORM populate_data .
  REFRESH employee.
  CLEAR employee.
  MOVE:   'Venu Test One'        TO employee-person-name,
          '111-11-1111'          TO employee-person-ssn,
          '01/01/1900'           TO employee-person-dob,
          '1111 Sanzo road'      TO employee-person-address-street,
          '111 A1'               TO employee-person-address-apt,
          'BALTIMORE'            TO employee-person-address-city,
          'MD'                   TO employee-person-address-state,
          '21209'                TO employee-person-address-zip.
  APPEND employee.
  CLEAR  employee.
  MOVE:   'John Smith'           TO employee-person-name,
          '222-22-2222'          TO employee-person-ssn,
          '02/02/1888'           TO employee-person-dob,
          '2222 John Smith road' TO employee-person-address-street,
          '222 B2'               TO employee-person-address-apt,
          'SANFRANSISCO'         TO employee-person-address-city,
          'CA'                   TO employee-person-address-state,
          '99999'                TO employee-person-address-zip.
  APPEND employee.
ENDFORM.                    " populate_data
*&      Form  create_xml
      text
-->  p1        text
<--  p2        text
FORM create_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         = 'EMPLOYEE'
      dataobject   = employee[]
    IMPORTING
      data_as_dom  = l_dom
    CHANGING
      document     = m_document
    EXCEPTIONS
      illegal_name = 1
      OTHERS       = 2.
  IF sy-subrc = 0.
    WRITE 'Ok'.
  ELSE.
    WRITE: 'Err =',
    sy-subrc.
  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
    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.
ENDFORM.                    " create_xml
*&      Form  get_local_file_name
      text
     -->P_P_FILE  text
FORM get_local_file_name  USING    p_p_file.
  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    CHANGING
      file_name     = p_p_file
    EXCEPTIONS
      mask_too_long = 1
      OTHERS        = 2.
  IF sy-subrc <> 0.
    MESSAGE i007(zu).  " 'Error in getting filename'.
  ENDIF.
ENDFORM.                    " get_local_file_name
*&      Form  download_xml
      text
-->  p1        text
<--  p2        text
FORM download_xml .
  CALL FUNCTION 'WS_DOWNLOAD'
    EXPORTING
      bin_filesize = w_size
      filename     = p_file
      filetype     = 'BIN'
    TABLES
      data_tab     = xml_tab
    EXCEPTIONS
      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.
  ELSE.
   SKIP 5.
   WRITE:(15) 'The ', p_file , 'is created successfully'.
  ENDIF.
ENDFORM.                    " download_xml