ABAP 内表数据 与 Json串 相互转换

内表：

A	B	C
IMINGZHA	HAIMINGZ	AIMINGZH
1	2	3
4	5	6

Json串：  [{a: "IMINGZHA", b: "HAIMINGZ", c: "AIMINGZH"}, {a: "1", b: "2", c: "3"}, {a: "4", b: "5", c: "6"}]

   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 IT_TAB OCCURS ,

             A TYPE CHAR10,

             B TYPE CHAR10,

             C TYPE CHAR10,

         END OF IT_TAB.

   IT_TAB-A = 'IMINGZHA' .

   IT_TAB-B = 'HAIMINGZ' .

   IT_TAB-C = 'AIMINGZH' .

   APPEND IT_TAB.

   IT_TAB-A = '' .

   IT_TAB-B = '' .

   IT_TAB-C = '' .

   APPEND IT_TAB.

   IT_TAB-A = '' .

   IT_TAB-B = '' .

   IT_TAB-C = '' .

   APPEND IT_TAB.

 *内表 转 Json 串

   CREATE OBJECT json_ser

     EXPORTING

       data = IT_TAB[].

   CALL METHOD json_ser->SERIALIZE.

   CALL METHOD json_ser->GET_DATA

     RECEIVING

       rval = jsonstr.

 BREAK-POINT.

 *Json 串 append 内表

   CREATE OBJECT json_des.

   CALL METHOD json_des->DESERIALIZE

     EXPORTING

       json = jsonstr

     IMPORTING

       abap = IT_TAB[].

 BREAK-POINT.