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.
