Start SAP ABAP Cloud [ABAP] JSON -> ABAP (xco_cp_json)

[ABAP] JSON -> ABAP (xco_cp_json)

, 
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