topic XML in Application Development and Automation Discussions

XML

Former Member — Wed, 28 Nov 2007 11:39:26 GMT

Hi ALL,

the source code is going to dump. the purpose of this to convert data to XML file and store in Application r presentation server. but i hv to use FM SAP_CONVERT_TO_XML_FORMAT. (No other options).

i'm providing source code also.plz any one help me out. its urgent.

TABLES: VEKP,

LIKP,

VBAK.

TYPE-POOLS: IXML.

DATA: BEGIN OF ITAB OCCURS 0,

BRGEW LIKE VEKP-BRGEW,

LAENG LIKE VEKP-LAENG,

BREIT LIKE VEKP-BREIT,

EXIDV LIKE VEKP-EXIDV,

HOEHE LIKE VEKP-HOEHE,

VBELN LIKE LIKP-VBELN,

KUNNR LIKE LIKP-KUNNR,

VDATU LIKE VBAK-VDATU,

END OF ITAB.

TYPES: BEGIN OF MY_XML ,

DATA(256) TYPE X,

END OF MY_XML.

DATA: XML_TABLE TYPE TABLE OF MY_XML.

DATA: L_XML_SIZE TYPE I,

LD_FULLPATH TYPE STRING.

PARAMETERS: HU LIKE VEKP-EXIDV.

START-OF-SELECTION.

SELECT A~BRGEW

A~LAENG

A~BREIT

A~EXIDV

A~HOEHE

B~VBELN

B~KUNNR

C~VDATU

INTO CORRESPONDING FIELDS OF TABLE ITAB

FROM VEKP AS A INNER JOIN LIKP AS B

ON A_{ERDAT = B}ERDAT INNER JOIN VBAK AS C

ON B_{ERDAT = C}ERDAT

WHERE A~EXIDV = HU.

CALL FUNCTION 'SAP_CONVERT_TO_XML_FORMAT'

EXPORTING
I_FIELD_SEPERATOR = ','
I_LINE_HEADER =
I_FILENAME =
I_APPL_KEEP = ' '
I_XML_DOC_NAME =

IMPORTING

PE_BIN_FILESIZE = L_XML_SIZE

TABLES

I_TAB_SAP_DATA = ITAB

CHANGING

I_TAB_CONVERTED_DATA = XML_TABLE

EXCEPTIONS
CONVERSION_FAILED = 1
OTHERS = 2

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

BIN_FILESIZE = L_XML_SIZE

FILENAME = LD_FULLPATH

FILETYPE = 'BIN'

IMPORTING

FILELENGTH = L_XML_SIZE

TABLES

DATA_TAB = XML_TABLE

FIELDNAMES =

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

Thanks.

Girish M

Re: XML

Former Member — Wed, 28 Nov 2007 13:40:22 GMT

Hi,

i did the report and tested. pls try like below in ECC6.0.

&----

*& Report ZTESTSDN

&----

REPORT ztestsdn.

TABLES: vekp,

likp,

vbak.

TYPE-POOLS: ixml.

DATA: itab LIKE but000 OCCURS 0 WITH HEADER LINE.

TYPES: BEGIN OF my_xml ,

data(256) TYPE x,

END OF my_xml.

DATA: xml_table TYPE TABLE OF my_xml.

DATA: l_xml_size TYPE i,

ld_fullpath TYPE string.

START-OF-SELECTION.

SELECT * FROM but000 INTO TABLE itab UP TO 10 ROWS.

CALL FUNCTION 'SAP_CONVERT_TO_XML_FORMAT'

EXPORTING
I_FIELD_SEPERATOR = ','
I_LINE_HEADER =
I_FILENAME =
I_APPL_KEEP = ' '
I_XML_DOC_NAME =

IMPORTING

pe_bin_filesize = l_xml_size

TABLES

i_tab_sap_data = itab

CHANGING

i_tab_converted_data = xml_table

EXCEPTIONS
CONVERSION_FAILED = 1
OTHERS = 2

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

bin_filesize = l_xml_size

filename = 'C:\test.txt'

filetype = 'BIN'

IMPORTING

filelength = l_xml_size

TABLES

data_tab = xml_table

FIELDNAMES =

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

Regs

Manas

Re: XML

Former Member — Wed, 28 Nov 2007 13:53:34 GMT

Hi Manas,

i'm working on 4.7 version. i run ur code in 4.7 its giving dump(type conflict).

plz its urgent. help me out.

Thanks

Girish M

Re: XML

Former Member — Wed, 28 Nov 2007 14:30:55 GMT

Hi,

i replied to ur other thread.

chk it and let me know.

pls reward points.

Pls correct ur code accordingly.

TABLES: VEKP,

LIKP,

VBAK.

TYPE-POOLS: IXML.

DATA: BEGIN OF ITAB OCCURS 0,

BRGEW LIKE VEKP-BRGEW,

LAENG LIKE VEKP-LAENG,

BREIT LIKE VEKP-BREIT,

EXIDV LIKE VEKP-EXIDV,

HOEHE LIKE VEKP-HOEHE,

VBELN LIKE LIKP-VBELN,

KUNNR LIKE LIKP-KUNNR,

VDATU LIKE VBAK-VDATU,

END OF ITAB.

TYPES: BEGIN OF MY_XML ,

DATA(256) TYPE X,

END OF MY_XML.

DATA: XML_TABLE TYPE TABLE OF MY_XML.

DATA: L_XML_SIZE TYPE I,

<b>LD_FULLPATH TYPE STRING value 'C:\test.txt'.</b>

PARAMETERS: HU LIKE VEKP-EXIDV.

START-OF-SELECTION.

SELECT A~BRGEW

A~LAENG

A~BREIT

A~EXIDV

A~HOEHE

B~VBELN

B~KUNNR

C~VDATU

INTO CORRESPONDING FIELDS OF TABLE ITAB

FROM VEKP AS A INNER JOIN LIKP AS B

ON A_{ERDAT = B}ERDAT INNER JOIN VBAK AS C

ON B_{ERDAT = C}ERDAT

WHERE A~EXIDV = HU.

CALL FUNCTION 'SAP_CONVERT_TO_XML_FORMAT'

EXPORTING
I_FIELD_SEPERATOR = ','
I_LINE_HEADER =
I_FILENAME =
I_APPL_KEEP = ' '
I_XML_DOC_NAME =

IMPORTING

PE_BIN_FILESIZE = L_XML_SIZE

TABLES

I_TAB_SAP_DATA = ITAB

CHANGING

I_TAB_CONVERTED_DATA = XML_TABLE

EXCEPTIONS
CONVERSION_FAILED = 1
OTHERS = 2

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

BIN_FILESIZE = L_XML_SIZE

FILENAME = LD_FULLPATH

FILETYPE = 'BIN'

IMPORTING

FILELENGTH = L_XML_SIZE

TABLES

DATA_TAB = XML_TABLE

FIELDNAMES =

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.