REPORT z_json_to_xml.

* 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 cl_sxml_parser.
CREATE OBJECT lo_json_parser.

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

DATA(lv_json_out) TYPE string.
lv_json_out = 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_mem( lv_json_out ).

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