ABAP-JSON数据格式互转详解编程语言

 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.