ABAP-JSON数据格式互转

Posted 2021-01-30 学无止境

 1 *&---------------------------------------------------------------------*
 2 *& Report  ZRICO_TEST32_JSON
 3 *&
 4 *&---------------------------------------------------------------------*
 5 *&
 6 *&
 7 *&---------------------------------------------------------------------*
 8 report zrico_test32_json.
 9 data: lv_em  type string,
10       lv_em1 type string.
11 data: lt_but021  type table of but021,
12       lt_but0211 type table of but021,
13       ls_but021  type but021.
14 
15 "数据
16 lv_em = ‘test‘ .
17 
18 ls_but021-partner = ‘partner1‘ .
19 ls_but021-adr_kind = ‘kind1‘ .
20 ls_but021-addrnumber = ‘addr1‘ .
21 append ls_but021 to lt_but021 .
22 ls_but021-partner = ‘partner2‘ .
23 ls_but021-adr_kind = ‘kind2‘ .
24 ls_but021-addrnumber = ‘addr2‘ .
25 append ls_but021 to lt_but021 .
26 
27 "  abap 转json
28 data(json_writer) = cl_sxml_string_writer=>create( type = if_sxml=>co_xt_json ).
29 call transformation id
30                     source content = lv_em
31                            itable  = lt_but021
32                     result xml json_writer.
33 data(json) = json_writer->get_output( ).
34 data: lv_json type string .
35 call function ‘ECATT_CONV_XSTRING_TO_STRING‘
36   exporting
37     im_xstring  = json
38     im_encoding = ‘UTF-8‘
39   importing
40     ex_string   = lv_json.
41 
42 
43 "  json 转 abap
44 call transformation id
45              source xml lv_json
46              result content = lv_em1
47                     itable = lt_but0211.
48 
49 break-point.