ABAP 一个字段对应一组数据的JSON转换

洛漫tic

于 2025-03-28 15:02:45 发布

阅读量178

点赞数 3

文章标签： json abap

本文链接：https://blog.youkuaiyun.com/qq_38504727/article/details/146601902

版权

单字段数组JSON效果

{"MATNR1":[

        "1001","1002","1003"

        ],

"MATNR2":[

        1001,1002,1003

]}

* 定义内表并填充数据
DATA: lt_matnr TYPE TABLE OF string.
APPEND '1001' TO lt_matnr.
APPEND '1002' TO lt_matnr.
APPEND '1003' TO lt_matnr.

* 定义包含MATNR字段的结构
TYPES: BEGIN OF ty_structure,
         matnr1 TYPE string_table, "重点:string_table文本类型"
         matnr2 TYPE int4_table, "重点:int4_table数字类型"
       END OF ty_structure.

DATA(ls_data) = VALUE ty_structure(
  matnr1 = lt_matnr
  matnr2 = lt_matnr
    ).

DATA(lo_json) = NEW /ui2/cl_json( ).

* 序列化数据为JSON字符串
DATA lv_json TYPE string.
lv_json = lo_json->serialize( data = ls_data ).

* 输出结果
WRITE: / lv_json.