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 转json28 data(json_writer) = cl_sxml_string_writer=>create( type = if_sxml=>co_xt_json ).29 call transformation id30 ????????????????????source content = lv_em31 ???????????????????????????itable ?= lt_but02132 ????????????????????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 ??exporting37 ????im_xstring ?= json38 ????im_encoding = ‘UTF-8‘39 ??importing40 ????ex_string ??= lv_json.41 42 43 " ?json 转 abap44 call transformation id45 ?????????????source xml lv_json46 ?????????????result content = lv_em147 ????????????????????itable = lt_but0211.48 49 break-point.
ABAP-JSON数据格式互转
原文地址：https://www.cnblogs.com/ricoo/p/10184290.html