ABAP数据结构和JSON数据互转

原创已于 2023-07-28 15:44:52 修改 · 554 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#json

于 2023-07-28 15:43:34 首次发布

SAP 同时被 3 个专栏收录

6 篇文章

订阅专栏

ABAP

3 篇文章

订阅专栏

JSON

1 篇文章

订阅专栏

该文展示了如何在ABAP中将结构和内表转换为JSON格式，以及如何将JSON数据解析回ABAP结构。主要涉及的数据类型包括STRING、NAME_MAPPINGS，以及示例中的ls_detail和ls_header结构。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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.