ABAP数据转Json

Json数据类型对应ABAP的定义

json	abap	备注
字符串	string、char
数字	p、i
对象	结构体
数组	内表	tyt_xxx TYPE TABLE OF string WITH DEFAULT KEY
布尔	abap_bool	abap的布尔x表示true，空表示false

 

假设外部系统需要的数据是这样的

 

 

直接上代码

TYPES: tyt_storage_site TYPE TABLE OF string WITH DEFAULT KEY,
       BEGIN OF ty_product,
         name           TYPE string,          "商品名称
         number         TYPE i,               "数据
         price          TYPE p DECIMALS 2,    "价格
         storage_site   TYPE tyt_storage_site,"储存位置
         promotion_flag TYPE abap_bool,       "是否为促销商品
       END OF ty_product,
       tyt_product TYPE TABLE OF ty_product WITH DEFAULT KEY,
       BEGIN OF ty_data,
         products TYPE tyt_product,
       END OF ty_data.

DATA: ls_data         TYPE ty_data,
      ls_product      TYPE ty_product,
      ls_storage_site TYPE LINE OF tyt_storage_site,
      lv_json         TYPE string.


ls_product-name = '苹果'.
ls_product-number = 100.
ls_product-price = 1088 / 100.
ls_product-promotion_flag = 'X'.
ls_storage_site = '水果区'.
APPEND ls_storage_site TO ls_product-storage_site.
ls_storage_site = '2号货架'.
APPEND ls_storage_site TO ls_product-storage_site.
APPEND ls_product TO ls_data-products.
CLEAR ls_product.

ls_product-name = '香梨'.
ls_product-number = 200.
ls_product-price = 888 / 100.
ls_storage_site = '水果区'.
APPEND ls_storage_site TO ls_product-storage_site.
ls_storage_site = '2号货架'.
APPEND ls_storage_site TO ls_product-storage_site.
APPEND ls_product TO ls_data-products.
CLEAR ls_product.

"abap数据转json
/ui2/cl_json=>serialize( EXPORTING data = ls_data
                                   pretty_name = 'X' "空大写，L小写，X驼峰，Y增强驼峰
                         RECEIVING r_json = lv_json ).

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