topic Re: getting XML via ABAP in Application Development and Automation Discussions

getting XML via ABAP

Former Member — Tue, 28 Nov 2006 08:33:23 GMT

Hi experts;

i want to download an xml file (central bank currency info XML) and read the currency info from xml file with abap.

can you help me about this. documentation , example code...

i want to download xml from web first then upload this xml to an internal table.

regards

Mustafa

Message was edited by:

Mustafa SADIK

Re: getting XML via ABAP

Former Member — Tue, 28 Nov 2006 08:40:51 GMT

hi,

You can use the FM TEXT_CONVERT_XML_TO_SAP

Regards,

Richa

Re: getting XML via ABAP

jayanthi_jayaraman — Tue, 28 Nov 2006 08:43:52 GMT

Hi,

Here is the sample code from a website.

Databases

TABLES:

makt, "Mat description

marc, "Material / plant

t001w, "plant name

bhdgd. "Batch heading

Internal tables

DATA:

BEGIN OF gt_marc OCCURS 0,

werks LIKE marc-werks,

matnr LIKE marc-matnr,

END OF gt_marc,

Table to be downloaded as xml. Each line stores start and end tags
and the value

BEGIN OF gt_xml OCCURS 0,

line(120),

END OF gt_xml,

g_maktx(120).

User-input

SELECT-OPTIONS:

s_werks FOR marc-werks,

s_matnr FOR marc-matnr.

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

START-OF-SELECTION.

Extract all required data

PERFORM main_processing.

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

END-OF-SELECTION.

SORT gt_marc BY werks matnr.

LOOP AT gt_marc.

AT FIRST. "First tag must be root

CLEAR gt_xml.

gt_xml-line = ''.

APPEND gt_xml.

CLEAR gt_xml.

display data

FORMAT COLOR 2 ON.

WRITE 😕 gt_marc-matnr, makt-maktx.

FORMAT COLOR 2 OFF.

ENDLOOP.

The last tag must be the root closing tag --*

gt_xml-line = '</LOCATIONS>'.

APPEND gt_xml.

CLEAR gt_xml.

CALL FUNCTION 'DOWNLOAD'

EXPORTING

filename = 'C:PLANT1.XML'

filetype = 'ASC'

TABLES

data_tab = gt_xml.

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

TOP-OF-PAGE.

MOVE sy-title TO bhdgd-line1.

MOVE sy-repid TO bhdgd-repid.

MOVE sy-uname TO bhdgd-uname.

MOVE sy-datum TO bhdgd-datum.

MOVE '0' TO bhdgd-inifl.

MOVE '132' TO bhdgd-lines.

FORMAT INTENSIFIED ON COLOR COL_HEADING.

PERFORM batch-heading(rsbtchh0). "report header

*----

Form READ_PLANT

*----

FORM read_plant.

Get plant name

CLEAR t001w.

SELECT SINGLE name1

INTO t001w-name1

FROM t001w

WHERE werks EQ gt_marc-werks.

ENDFORM. " READ_PLANT

*----

Form MAIN_PROCESSING

*----

FORM main_processing.

Material and plant basic data

SELECT werks matnr

INTO TABLE gt_marc

FROM marc

WHERE werks IN s_werks

AND matnr IN s_matnr.

ENDFORM. " MAIN_PROCESSING

*----

Form READ_DESCRIPTION

*----

FORM read_description.

Material name

CLEAR g_maktx.

SELECT SINGLE maktx

INTO g_maktx

FROM makt

WHERE matnr EQ gt_marc-matnr

AND spras EQ 'E'.

Replace special character

DO.

REPLACE '&' WITH '*ù%;' INTO g_maktx.

IF NOT sy-subrc IS INITIAL. EXIT.ENDIF.

ENDDO.

DO.

REPLACE '*ù%;' WITH '&' INTO g_maktx.

IF NOT sy-subrc IS INITIAL. EXIT.ENDIF.

ENDDO.

DO.

REPLACE '/' WITH '/' INTO g_maktx.

IF NOT sy-subrc IS INITIAL. EXIT.ENDIF.

ENDDO.

ENDFORM. " READ_DESCRIPTION

END OF PROGRAM Z_DOWN_XML ************************

Re: getting XML via ABAP

Former Member — Tue, 28 Nov 2006 08:44:10 GMT

thanks i will look at this fm

and sorry i forget something i want to downnload xml from web according to given url

can you help me about this too.

regards

mustafa

i think i made a mistake

i want to download xml from web first then upload this xml to an internal table.

Message was edited by:

Mustafa SADIK

Re: getting XML via ABAP

Former Member — Tue, 28 Nov 2006 09:21:44 GMT

Hello Mustafa,

the IXML library delievers all methods to retrieve and parse xml documents.

For your needs replace "uri_to_xml" with uri to your xml document.

With "find_from_path" you can get xml elements by simple xpath expression.

Hope it helps.

Regards

Sebastian


DATA: lr_ixml                TYPE REF TO if_ixml,
      lr_ixml_doc            TYPE REF TO if_ixml_document,
      lr_ixml_stream_factory TYPE REF TO if_ixml_stream_factory,
      lr_ixml_istream        TYPE REF TO if_ixml_istream,
      lr_ixml_parser         TYPE REF TO if_ixml_parser,
      lr_ixml_element        type ref to if_ixml_element,
      lp_value               type string.

lr_ixml                = cl_ixml=>create( ).
lr_ixml_doc            = lr_ixml->create_document( ).
lr_ixml_stream_factory = lr_ixml->create_stream_factory( ).

lr_ixml_istream = lr_ixml_stream_factory->create_istream_uri( uri_to_xml ).

lr_ixml_parser  = lr_ixml->create_parser( document       = lr_ixml_doc
                                          istream        = lr_ixml_istream
                                          stream_factory = lr_ixml_stream_factory ).

lr_ixml_parser->parse( ).

lr_ixml_element = lr_ixml_doc->find_from_path( path = '/root/some_node/currency' ).

lp_value = lr_ixml_element->get_value( ).

* do something *
*
* data: ln_amount type i.
*
* ln_amount = lp_value.

Re: getting XML via ABAP

Former Member — Tue, 28 Nov 2006 12:50:50 GMT

thanks Sebastian.

i reward your answer

thanks again

Re: getting XML via ABAP

Former Member — Thu, 30 Aug 2007 20:24:15 GMT

Sebastian:

The following code generates essentially a null pointer exception when I try to execute an XSLT transform (CALL TRANSFORM) on the if_ixml_istream named istream. The URL is valid as I've copied it into my browser and displayed the XML document from the server (I've obfuscated the actual URL for security reasons). Any suggestions?


TYPE-POOLS: abap.
TYPE-POOLS: ixml.
CLASS cl_ixml DEFINITION LOAD.

DATA g_ixml         TYPE REF TO if_ixml.
DATA streamfactory  TYPE REF TO if_ixml_stream_factory.
DATA istream        TYPE REF TO if_ixml_istream.
DATA xmlstr         TYPE string.
DATA ex             TYPE REF TO CX_SY_REF_IS_INITIAL.
DATA imsg           TYPE REF TO IF_MESSAGE.
DATA smsg           TYPE string.

START-OF-SELECTION.

  g_ixml = cl_ixml=>create( ).
  streamfactory = g_ixml->create_stream_factory( ).
  istream = streamfactory->create_istream_uri( 'http://www.someremotesite.com/documents/docindex.xml' ).

  TRY.
    CALL TRANSFORMATION zsimplexslt
      SOURCE XML istream
      RESULT XML xmlstr.
  CATCH CX_SY_REF_IS_INITIAL INTO ex.
    imsg = ex.
    WRITE / 'EXCEPTION THROWN:'.
    smsg = imsg->GET_LONGTEXT( ).
    smsg = imsg->GET_TEXT( ).
    WRITE / smsg.
  ENDTRY.

Re: getting XML via ABAP

Former Member — Tue, 18 Sep 2007 09:10:52 GMT

Is there only a simple xpath expression possible? Or can I also use following expression:

/ORDERS05/IDOC/E1EDKA1[PARVW='AG']/PARTN

If no, are there any other ABAP/4 statements to solve this or only a mini-transformation (also in this thread).

Kind regards

Helmut

> Hello Mustafa,

> the IXML library delievers all methods to retrieve

> and parse xml documents.

> For your needs replace "uri_to_xml" with uri to your

> xml document.

> With "find_from_path" you can get xml elements by

> simple xpath expression.

> Hope it helps.

> Regards

> Sebastian


> DATA: lr_ixml                TYPE REF TO if_ixml,
> lr_ixml_doc            TYPE REF TO
>  if_ixml_document,
> lr_ixml_stream_factory TYPE REF TO
>  if_ixml_stream_factory,
> lr_ixml_istream        TYPE REF TO
>  if_ixml_istream,
> lr_ixml_parser         TYPE REF TO
>  if_ixml_parser,
> lr_ixml_element        type ref to
>  if_ixml_element,
>      lp_value               type string.
> ixml                = cl_ixml=>create( ).
> lr_ixml_doc            = lr_ixml->create_document(
> ).
> lr_ixml_stream_factory =
> lr_ixml->create_stream_factory( ).
> 
> lr_ixml_istream =
> lr_ixml_stream_factory->create_istream_uri(
> uri_to_xml ).
> 
> lr_ixml_parser  = lr_ixml->create_parser( document
>       = lr_ixml_doc
> istream        =
> lr_ixml_istream
> 
> tream_factory = lr_ixml_stream_factory ).
> 
> lr_ixml_parser->parse( ).
> 
> lr_ixml_element = lr_ixml_doc->find_from_path( path =
> '/root/some_node/currency' ).
> 
> lp_value = lr_ixml_element->get_value( ).
> 
> * do something *
> *
> * data: ln_amount type i.
> *
> * ln_amount = lp_value.
> 
>