ABAP 内表、JSON互相转换

Hyden_QH

于 2018-01-16 13:38:13 发布

阅读量947

点赞数 1

分类专栏： ABAP

ABAP 专栏收录该内容

17 篇文章

订阅专栏

本文介绍如何使用ABAP编程语言实现内表与JSON之间的相互转换。具体包括创建ABAP内表、从数据库中读取数据填充内表、将内表数据序列化为JSON字符串，以及将JSON字符串反序列化回内表的过程。

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

DATA: json_ser TYPE REF TO cl_trex_json_serializer,
      json_des TYPE REF TO cl_trex_json_deserializer.
DATA: jsonstr TYPE string.
DATA: BEGIN OF itab OCCURS 0,
        matnr LIKE makt-matnr,
        maktx LIKE makt-maktx,
      END OF itab.

START-OF-SELECTION.
  SELECT * INTO CORRESPONDING FIELDS OF TABLE itab
    FROM makt UP TO 10 ROWS.

***内表->JSON
  CREATE OBJECT json_ser
    EXPORTING
      data = itab[].
  CALL METHOD json_ser->serialize.
  CALL METHOD json_ser->get_data
    RECEIVING
      rval = jsonstr.

  WRITE: jsonstr.

***JSON->内表
  CREATE OBJECT json_des.
  CALL METHOD json_des->deserialize
    EXPORTING
      json = jsonstr
    IMPORTING
      abap = itab[].