前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >ABAP内表数据和JSON格式互转

ABAP内表数据和JSON格式互转

作者头像
matinal
发布2020-11-27 10:39:18
7250
发布2020-11-27 10:39:18
举报
文章被收录于专栏:SAP Technical

本程序演示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[].

本文参与 腾讯云自媒体同步曝光计划,分享自作者个人站点/博客。
原始发表:2020/01/08 ,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 作者个人站点/博客 前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档