base64 解码 json 转table

前台给我们返回的是加密过的json文件，需要我们先解码，在json转table
和json相关的内表字段建议都定义char类型

  DATA: lv_message TYPE string.
  DATA: lv_xstring TYPE xstring.
  DATA: lv_string TYPE string.

  TYPES: BEGIN OF ty_data,
           guid       TYPE char32, "/bshm/api_reqid_de,  " (32)
           status(10),
         END OF ty_data.
  DATA: lv_guid TYPE /bshm/api_reqid_de.
  DATA lw_message TYPE ty_data.
 lv_string = message .
  " BASE64 Decode
  CALL FUNCTION 'SCMS_BASE64_DECODE_STR'
    EXPORTING
      input  = lv_string
*     UNESCAPE       = 'X'
    IMPORTING
      output = lv_xstring
    EXCEPTIONS
      failed = 1
      OTHERS = 2.

  " Convert  xstring to string
  CALL FUNCTION 'HR_KR_XSTRING_TO_STRING'
    EXPORTING
      from_codepage = '4110'
      in_xstring    = lv_xstring
*     OUT_LEN       =
    IMPORTING
      out_string    = lv_message.

  /ui2/cl_json=>deserialize( EXPORTING json = lv_message CHANGING data = lw_message ).