SAP restful web服务-3-ABAP内表数据和JSON格式互转

最新推荐文章于 2024-10-10 14:22:05 发布

xueli0404_0404

最新推荐文章于 2024-10-10 14:22:05 发布

阅读量252

点赞数

文章标签： json restful 前端

原文链接：https://www.cnblogs.com/ruingy/p/6439998.html

版权

本程序演示ABAP内表数据如何转为JSON格式，以及JSON数据如何放入内表。
注：json字符串格式如：jsonstr = ‘[ {flag: “0”,message: “abc”},{flag: “1”,message: “abcdddd”}]’.
另注意转换key value双引号问题

&---------------------------------------------------------------------
*& Report Z_YHY_TEST_JSON
*&
&---------------------------------------------------------------------
*&
*&
&---------------------------------------------------------------------

REPORT Z_YHY_TEST_JSON.  
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[].