1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 |
*&---------------------------------------------------------------------* *& Report ZR0040 *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT zr0040. 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 TYPE makt-matnr, maktx TYPE makt-maktx, END OF itab. START-OF-SELECTION. SELECT * INTO CORRESPONDING FIELDS OF TABLE itab FROM makt UP TO 3 ROWS WHERE spras = '1'. "内表-》JSON CREATE OBJECT json_ser EXPORTING data = itab[]. CALL METHOD json_ser->serialize. CALL METHOD json_ser->get_data RECEIVING rval = jsonstr. "JSON-》内表 REFRESH itab[]."会append CREATE OBJECT json_des. CALL METHOD json_des->deserialize EXPORTING json = jsonstr IMPORTING abap = itab[]. LOOP AT itab. WRITE : / sy-tabix,itab-matnr,itab-maktx. ENDLOOP. ULINE. WRITE : / jsonstr. |
本文作者: GavinDong
版权属于: GavinDong博客
文章链接: https://gavindong.com/2879.html
如果使用过程中遇到问题,可 **点击此处** 交流沟通。
版权所有,转载时必须以链接形式注明作者和原始出处及本声明。