* JSON verileri
DATA(lv_json) TYPE string VALUE `{
    "book": {
        "title": "Harry Potter and the Philosopher's Stone",
        "author": "J.K. Rowling",
        "publisher": "Bloomsbury",
        "year": 1997,
        "price": 9.99
    }
}`.

* JSON verilerini ABAP JSON nesnesine ayrıştırma
DATA(lo_json) TYPE REF TO cl_sxml_string_writer.
CREATE OBJECT lo_json.

DATA(lo_json_parser) TYPE REF TO if_sxml_parser.
lo_json_parser = cl_sxml_parser=>create( type = if_sxml=>co_xt_json ).

lo_json_parser->parse(
    input  = lv_json
    output = lo_json
).

DATA(lo_json_reader) TYPE REF TO if_sxml_reader.
lo_json_reader = cl_sxml_stream_reader=>create( source = lo_json->get_output( ) ).

* XML nesnesi oluşturma
DATA(lo_xml) TYPE REF TO if_ixml.
lo_xml = cl_ixml=>create( ).

* JSON verilerini XML'e dönüştürme
lo_xml->dom_from_sxml_reader( lo_json_reader ).

* XML verilerini ekrana yazdırma
DATA(lv_xml) TYPE string.
lv_xml = lo_xml->get_data( ).
WRITE: / lv_xml.