ABAP Json数据的转换

前言

由于接口中所传输的数据都为json格式的字符串,所以我们需要把数据从结构或者表转换成json字符串的格式.

一、/UI2/CL_JSON

二、示例

代码如下（示例）：

REPORT ZTEST_ZJ001.
TYPES:BEGIN OF TY_DATA,
        NAME TYPE STRING,
        CODE TYPE STRING,
      END OF TY_DATA.
DATA:LS_DATA     TYPE TY_DATA,
     LT_DATA     TYPE TABLE OF TY_DATA,
     lv_json  type string.
types:begin of ty_data2,
        type type string,
        tab  like lt_data,
      end of ty_data2.
data:ls_data2 type ty_data2,
     lt_data2 type table of ty_data2.
LS_DATA-NAME = 'ZJ'.
LS_DATA-CODE = '001'.
append LS_DATA to LT_DATA.

ls_data2-type = 'S'.
ls_data2-tab = lt_data.

lv_json = /ui2/cl_json=>serialize( data = ls_data2 compress = abap_true pretty_name = /ui2/cl_json=>pretty_mode-camel_case ).
clear:ls_data2.
/ui2/cl_json=>deserialize( EXPORTING json = lv_json pretty_name = /ui2/cl_json=>pretty_mode-camel_case CHANGING data = ls_data2 ).

write lv_json.