ABAP数据结构和JSON数据互转

ABAP结构转JSON

将ABAP数据转为JSON数据格式。

// 定义
DATA: lv_json  TYPE string.
DATA: lt_mapping_items TYPE /ui2/cl_json=>name_mappings.
DATA: BEGIN OF ls_detail,
        code TYPE string,
        name TYPE string,
        age  TYPE string,
      END OF ls_detail,
      lt_detail LIKE TABLE OF ls_detail,

      BEGIN OF ls_header,
        origh   TYPE string,
        orname  TYPE string,
        details LIKE lt_detail,
      END OF ls_header.

ls_detail-code = 'A001'.
ls_detail-name = '张三'.
ls_detail-age  = '18'.
APPEND ls_detail TO lt_detail.

ls_detail-code = 'A002'.
ls_detail-name = '李四'.
ls_detail-age  = '25'.
APPEND ls_detail TO lt_detail.

ls_header-origh  = 'C0001'.
ls_header-orname = '测试'.
ls_header-details = lt_detail.

"ABAP对应JSON字段映射
lt_mapping_items = VALUE #( ( abap = 'origh'      json = 'orgid' )
                            ( abap = 'orname'     json = 'orname' )
                            ( abap = 'details'    json = 'details' )
                            ( abap = 'code'       json = 'id' )
                            ( abap = 'name'       json = 'name' )
                            ( abap = 'age'        json = 'age' )
                           ).

"ABAP结构转JSON
lv_json = /ui2/cl_json=>serialize(
                  data = ls_header
                  compress = abap_false
                  pretty_name = /ui2/cl_json=>pretty_mode-camel_case
                  name_mappings = lt_mapping_items ).

WRITE: / 'ABAP转JSON结果：',lv_json. 

输出结果：

JSON数据转ABAP结构&内表

将JSON数据转为ABAP结构或内表。

// 定义
DATA: lv_ret  TYPE string.
DATA: BEGIN OF ls_ret,
        code    TYPE string,
        success TYPE string,
      END OF ls_ret.
lv_ret = '{"code":200,"success":true}'.
WRITE: / '将转换的JSON',lv_ret.

"JSON转ABAP
/ui2/cl_json=>deserialize(
        EXPORTING json = lv_ret
                  pretty_name = /ui2/cl_json=>pretty_mode-camel_case
        CHANGING data = ls_ret ).

WRITE: / '转换结果',ls_ret-code,ls_ret-success.

输出结果：