UPLOAD XML data to internal table

[Former Member]

Hi members,

I need answer and code if possible.

How to upload XML data into internal table from application server or presentation server .

I need help on this .

I need code for both application server and presentation server.

Thanks,

surendra babu vemula

[Former Member]

hi,

'ALSM_EXCEL_TO_INTERNAL_TABLE'

CODE :

&----

---

*& Report Z9D_ASSIG4_EXCEL_IT_FLDSYB *

*& *

&----

---

*& *

*& *

&----

---

&----

---

&

*NAME : DEEPTHI DANDIBHOTLA

*DESC : EXCEL TO INTERNAL TABLE USING FIELD SYMBOLS'

*DATE : 13-APR-2007

&----

---

&

REPORT Z9D_ASSIG4_EXCEL_IT_FLDSYB

NO STANDARD PAGE HEADING LINE-SIZE 200 LINE-COUNT 200.

&----

---

*& TYPES

&----

---

TYPES : BEGIN OF T_EKKO ,

EBELN TYPE EBELN, "Purchasing Document Number

BUKRS TYPE BUKRS, "Company Code

BSTYP TYPE EBSTYP, "Purchasing document category

EKORG TYPE EKORG, "Purchasing Organization

END OF T_EKKO.

&----

---

*& INTERNAL TABLES

&----

---

DATA : IT_EKKO TYPE STANDARD TABLE OF T_EKKO ,

IT_EKKO1 TYPE STANDARD TABLE OF EKKO ,

IT_EXCEL TYPE STANDARD TABLE OF ALSMEX_TABLINE.

&----

---

*& WORK AREAS

&----

---

DATA : WA_EKKO TYPE T_EKKO ,

WA_EXCEL TYPE ALSMEX_TABLINE.

&----

---

*& FIELD SYMBOLS

&----

---

FIELD-SYMBOLS : <FEX>.

FIELD-SYMBOLS : <FET> TYPE Z9D_EXCEL_EKKO.

FIELD-SYMBOLS : <FES> TYPE T_EKKO.

ASSIGN IT_EKKO1[] TO <FET>.

ASSIGN WA_EKKO TO <FES>.

&----

---

*& INITIALIZATION EVENT

&----

---

CLEAR WA_EKKO.

REFRESH IT_EKKO.

&----

---

*& AT SELECTION SCREEN EVENT

&----

---

START-OF-SELECTION.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'

EXPORTING

FILENAME = 'C:\Documents and Settings\DDandibhotla\EXCEL_FS.xls'

I_BEGIN_COL = 1

I_BEGIN_ROW = 2

I_END_COL = 4

I_END_ROW = 6

TABLES

INTERN = IT_EXCEL[]

EXCEPTIONS

INCONSISTENT_PARAMETERS = 1

UPLOAD_OLE = 2

OTHERS = 3

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

LOOP AT IT_EXCEL INTO WA_EXCEL.

ASSIGN COMPONENT WA_EXCEL-COL OF STRUCTURE WA_EKKO TO <FEX>.

MOVE WA_EXCEL-VALUE TO <FEX>.

AT END OF ROW.

APPEND WA_EXCEL TO IT_EXCEL.

CLEAR WA_EXCEL.

ENDAT.

ENDLOOP.

*********************************************************

***

***SORT IT_EXCEL BY ROW COL.

***

***LOOP AT IT_EXCEL INTO WA_EXCEL.

***

***CASE WA_EXCEL-COL.

***

***WHEN 1.

***WA_EKKO-EBELN = WA_EXCEL-VALUE.

***

***WHEN 2.

***WA_EKKO-BUKRS = WA_EXCEL-VALUE.

***

***WHEN 3.

***WA_EKKO-BSTYP = WA_EXCEL-VALUE.

***

***WHEN OTHERS.

***

***ENDCASE.

***

***AT END OF ROW.

***APPEND IT_EKKO .

***CLEAR WA_EKKO.

***ENDAT.

***

***ENDLOOP.

***

***LOOP AT IT_EKKO INTO WA_EKKO.

***

***WRITE:/5 WA_EKKO-EBELN , WA_EKKO-BUKRS , WA_EKKO-BSTYP ,

*WA_EKKO-EKORG

***COLOR 6.

***

***ENDLOOP.

[Former Member]

Hi deepti,

My data is in XML format not in excel .

i need for XML data.

thanks,

Surendra babu vemula

[Former Member]

Hello,

Take a look on this: [XML XSLT with ABAP|https://www.sdn.sap.com/irj/sdn/wiki?path=/display/abap/xml%2bxslt%2bwith%2babap].

These , and , too.

This one is very helpful https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/2e98a690-0201-0010-3b90-cda224ba... , too

Regards.