[SAP ABAP] 序列化与反序列化

山茶花开时。2024-12-17 12:31

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, maktx
  INTO CORRESPONDING FIELDS OF TABLE @lt_makt
  FROM makt
  UP TO 5 ROWS.

* 序列化：把内表lt_makt转换为JSON字符串
CALL METHOD /ui2/cl_json=>serialize
  EXPORTING
    data             = lt_makt
  RECEIVING
    r_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, maktx
  INTO CORRESPONDING FIELDS OF TABLE @lt_makt
  FROM makt
  UP TO 5 ROWS.

* 序列化：把内表lt_makt转换为JSON字符串
CALL METHOD /ui2/cl_json=>serialize
  EXPORTING
    data             = lt_makt
  RECEIVING
    r_json           = json_str.

cl_demo_output=>write( json_str ).

* 清空内表
CLEAR lt_makt.

* 反序列化：json字符串转内表
CALL METHOD /ui2/cl_json=>deserialize
  EXPORTING
    json             = json_str
  changing
    data             = lt_makt.

cl_demo_output=>write( lt_makt ).
cl_demo_output=>display( ).

输出结果：

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