1.序列化

序列化表示将ABAP对象类型转成json字符串

我们可以使用方法/ui2/cl_json=>serialize实现序列化，可以将ABAP中的内表结构转成json字符串类型

REPORT z437_test_2024.* 自定义数据类型
TYPES: BEGIN OF ty_makt,matnr LIKE makt-matnr,  " 物料编号maktx LIKE makt-maktx,  " 物料描述
END OF ty_makt.* 定义变量
DATA: json_str TYPE string.
* 定义内表
DATA: lt_makt TYPE STANDARD TABLE OF ty_makt.* 获取数据
SELECT matnr, maktxINTO CORRESPONDING FIELDS OF TABLE @lt_maktFROM maktUP TO 5 ROWS.* 序列化：把内表lt_makt转换为JSON字符串
CALL METHOD /ui2/cl_json=>serializeEXPORTINGdata             = lt_maktRECEIVINGr_json           = json_str.cl_demo_output=>write( json_str ).
cl_demo_output=>display( ).

输出结果：

/ui2/cl_json是处理json转换的类，该类封装了序列化与反序列化的方法 

2.反序列化

反序列化表示将json字符串转成ABAP对象类型

我们可以使用方法/ui2/cl_json=>deserialize实现反序列化，可以将json字符串转成ABAP中的内表结构类型

REPORT z437_test_2024.* 自定义数据类型
TYPES: BEGIN OF ty_makt,matnr LIKE makt-matnr,  " 物料编号maktx LIKE makt-maktx,  " 物料描述
END OF ty_makt.* 定义变量
DATA: json_str TYPE string.
* 定义内表
DATA: lt_makt TYPE STANDARD TABLE OF ty_makt.* 获取数据
SELECT matnr, maktxINTO CORRESPONDING FIELDS OF TABLE @lt_maktFROM maktUP TO 5 ROWS.* 序列化：把内表lt_makt转换为JSON字符串
CALL METHOD /ui2/cl_json=>serializeEXPORTINGdata             = lt_maktRECEIVINGr_json           = json_str.cl_demo_output=>write( json_str ).* 清空内表
CLEAR lt_makt.* 反序列化：json字符串转内表
CALL METHOD /ui2/cl_json=>deserializeEXPORTINGjson             = json_strchangingdata             = lt_makt.cl_demo_output=>write( lt_makt ).
cl_demo_output=>display( ).

输出结果：

/ui2/cl_json是处理json转换的类，该类封装了序列化与反序列化的方法