How to download internal table data into xml file?

[Former Member]

Hi,

Experts,

I have downloaded internal table data into XLS format using GUI_DOWNLOAD Function module, But i didn't Know how to download internal table data into XML format please post some ideas/inputs on this issue.

Thank you,

Shabeer ahmed.

[arjun_thakur]

hi,

refer to the following link:

i hope it helps

regards

arjun

[Former Member]

Hi,

try these FMs

SAP_CONVERT_TO_XML_FORMAT
SDIXML_DOM_TO_XML

[Former Member]

Hi ,

Use this FM. SAP_CONVERT_TO_XML_FORMAT

Check this link too -

check out for call transformation too

Regards

Renu

[kesavadas_thekkillath]

check this

data : gd_repid type sy-repid.

GD_REPID = SY-REPID.

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.

data : l_element           type ref to if_ixml_element,
       xml_ns_prefix_sf     type string,
       xml_ns_uri_sf        type string.

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.

CALL FUNCTION 'SDIXML_DATA_TO_DOM'
EXPORTING
   NAME = 'REPAIRDATA'
   DATAOBJECT = IT_FINAL_LAST1[]
IMPORTING
   DATA_AS_DOM = L_DOM
CHANGING
   DOCUMENT = M_DOCUMENT
EXCEPTIONS
   ILLEGAL_NAME = 1
   OTHERS = 2.

CHECK NOT L_DOM IS INITIAL.
W_RC = M_DOCUMENT->APPEND_CHILD( NEW_CHILD = L_DOM ).

*Start of code for Header

* namespace

t_mnr = sy-datum+4(2).

CALL FUNCTION 'IDWT_READ_MONTH_TEXT'
  EXPORTING
    LANGU         = 'E'
    MONTH         = t_mnr
 IMPORTING
   T247          = wa_t247
          .

concatenate sy-datum+6(2)
            '/'
            wa_t247-ktx
            '/'
            sy-datum(4) into t_var1.

concatenate sy-uzeit(2)
            ':'
            sy-uzeit+2(2)
            ':'
            sy-uzeit+4(2) into t_var2.

clear : xml_ns_prefix_sf,
        xml_ns_uri_sf.

l_element  = m_document->get_root_element( ).

xml_ns_prefix_sf = 'TIMESTAMP'.
concatenate t_var1 t_var2 into xml_ns_uri_sf separated by space.

clear : t_var1,
        t_var2,
        t_mnr,
        wa_t247.

l_element->set_attribute( name  = xml_ns_prefix_sf
                          namespace = ' '
                          value = xml_ns_uri_sf ).

clear : xml_ns_prefix_sf,
        xml_ns_uri_sf.

xml_ns_prefix_sf  = 'FILECREATOR'.
xml_ns_uri_sf    =   'SAP'.


l_element->set_attribute( name  = xml_ns_prefix_sf
                          namespace = ' '
                          value = xml_ns_uri_sf ).

clear : xml_ns_prefix_sf,
        xml_ns_uri_sf.

xml_ns_prefix_sf  = 'CLAIMGROUP'.
xml_ns_uri_sf    = '1'.

l_element->set_attribute( name  = xml_ns_prefix_sf
                          namespace = ' '
                          value = xml_ns_uri_sf ).

clear : xml_ns_prefix_sf,
        xml_ns_uri_sf.

xml_ns_prefix_sf  = 'CLAIMTYPES'.
xml_ns_uri_sf    = 'W'.

l_element->set_attribute( name  = xml_ns_prefix_sf
                          namespace = ' '
                          value = xml_ns_uri_sf ).

*End of Code for Header

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.

LOOP AT IT_XML INTO XML_TAB-D.
APPEND XML_TAB.
ENDLOOP.

*Start of Code for File name

concatenate p_file
            '\R'
            '000_119481'
            sy-datum+6(2) sy-datum+4(2) sy-datum+2(2)
            sy-uzeit(2)   sy-uzeit+2(2) sy-uzeit(2) '.xml' into p_file.

*End of Code for File name

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.
ENDIF.

[Former Member]

Thank U