TYPES: BEGIN OF ty_s_person,
name TYPE string,
title TYPE string,
age TYPE i,
END OF ty_s_person.
DATA(lv_json) = |\{"name":"Horst","title":"Herr","age":30\}|.
DATA(lv_persons) = VALUE ty_s_person( ).
TRY.
xco_cp_json=>data->from_string( lv_json
)->apply( VALUE #( ( xco_cp_json=>transformation->boolean_to_abap_bool )
( xco_cp_json=>transformation->pascal_case_to_underscore ) )
)->write_to( REF #( lv_persons ) ).
cl_demo_output=>write_data( lv_json ).
cl_demo_output=>write_data( lv_persons ).
* HTML-Code vom Demo-Output holen
DATA(lv_html) = cl_demo_output=>get( ).
* Daten im Inline-Browser im SAP-Fenster anzeigen
cl_abap_browser=>show_html( EXPORTING title = 'JSON'
html_string = lv_html
container = cl_gui_container=>default_screen ).
* cl_gui_container=>default_screen erzwingen
WRITE: space.
CATCH cx_root.
ENDTRY.
Links