ABAP : 内表/工作区转JSON

  "内表转JSON
DATA: lv_str_out TYPE string,
lv_str_in  TYPE string.
DATA: json_ser TYPE REF TO zcl_trex_json_serializer

DATA: BEGIN OF lw_body,
factorycode TYPE string,
itemcode    TYPE string,
itemname    TYPE string,
unit        TYPE string,
mattype     TYPE string,
typename    TYPE string,
matgroup    TYPE string,
groupname   TYPE string,
END OF lw_body.

DATA ls_body LIKE lw_body.

ls_body-factorycode = '2023'.
ls_body-itemcode    = '100101018'.
ls_body-itemname    = '测试用'.
ls_body-unit        = 'PC'.
ls_body-mattype     = 'Z001'.
ls_body-typename    = 'Z001测试'.
ls_body-matgroup    = 'ZS01'.
ls_body-groupname   = '物料组描述测试'.

DATA lt_body LIKE STANDER OF TABLE lw_body.

APPEND ls_body TO lt_body.

"  工作区转JSON

  CREATE OBJECT json_ser
EXPORTING
data = ls_body.
CALL METHOD json_ser->serialize.
CALL METHOD json_ser->get_data
RECEIVING
rval = lv_str_out .

表转JSON

CREATE OBJECT json_ser
EXPORTING
data = lt_body[].
CALL METHOD json_ser->serialize.
CALL METHOD json_ser->get_data
RECEIVING
rval = lv_str_out .

或者  "  如果 字段有驼峰  使用下面的方法

lv_str_out = /ui2/cl_json=>serialize(  data          = ls_body
compress    = 'X'
pretty_name = 'X').

lv_str_out = /ui2/cl_json=>serialize(  data        = lt_body[]
compress    = 'X'
pretty_name = 'X').