TYPES: BEGIN OF ty_s_person,
name TYPE string,
title TYPE string,
age TYPE i,
END OF ty_s_person.
TYPES: ty_t_person TYPE STANDARD TABLE OF ty_s_person WITH DEFAULT KEY.
DATA(it_persons) = VALUE ty_t_person( ( name = 'Horst' title = 'Herr' age = 30 )
( name = 'Jutta' title = 'Frau' age = 35 )
( name = 'Ingo' title = 'Herr' age = 31 ) ).
TRY.
* ABAP -> JSON
DATA(lv_json) = xco_cp_json=>data->from_abap( it_persons )->to_string( ).
cl_demo_output=>write_data( it_persons ).
cl_demo_output=>write_data( lv_json ).
* 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