ABAP-JSON数据格式互转

 *&---------------------------------------------------------------------*
 *& Report  ZRICO_TEST32_JSON
 *&
 *&---------------------------------------------------------------------*
 *&
 *&
 *&---------------------------------------------------------------------*
 report zrico_test32_json.
 data: lv_em  type string,
       lv_em1 type string.
 data: lt_but021  type table of but021,
       lt_but0211 type table of but021,
       ls_but021  type but021.

 "数据
 lv_em = 'test' .

 ls_but021-partner = 'partner1' .
 ls_but021-adr_kind = 'kind1' .
 ls_but021-addrnumber = 'addr1' .
 append ls_but021 to lt_but021 .
 ls_but021-partner = 'partner2' .
 ls_but021-adr_kind = 'kind2' .
 ls_but021-addrnumber = 'addr2' .
 append ls_but021 to lt_but021 .

 "  abap 转json
 data(json_writer) = cl_sxml_string_writer=>create( type = if_sxml=>co_xt_json ).
 call transformation id
                     source content = lv_em
                            itable  = lt_but021
                     result xml json_writer.
 data(json) = json_writer->get_output( ).
 data: lv_json type string .
 call function 'ECATT_CONV_XSTRING_TO_STRING'
   exporting
     im_xstring  = json
     im_encoding = 'UTF-8'
   importing
     ex_string   = lv_json.

 "  json 转 abap
 call transformation id
              source xml lv_json
              result content = lv_em1
                     itable = lt_but0211.

 break-point.