ABAP內表數據和JSON格式互轉

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