ABAP 中 JSON串的拼接，JSON串解析以及JSON串生成

Gong JX

已于 2025-04-02 19:49:40 修改

阅读量1.5k

点赞数

分类专栏： ABAP开发回顾总结文章标签：后端经验分享

于 2021-01-18 09:28:08 首次发布

本文链接：https://blog.youkuaiyun.com/qq_40977705/article/details/112761639

版权

ABAP开发回顾总结专栏收录该内容

90 篇文章

订阅专栏

在接口的参数传递过程中通常会以JSON的方式去传递，这时候就涉及到了JSON串的解析或者生成

"LT_TAB TYPE TABLE 
"ZDATA_OUT TYPE STRING
/UI2/CL_JSON=>SERIALIZE(
    EXPORTING
      DATA             = 'LT_TAB'
    RECEIVING
      R_JSON           = ZDATA_OUT ).

JSON串解析如下

"LT_OUTTAB TYPE TABLE
"ZDATA_IN TYPE STRING
"解析JSON
 /UI2/CL_JSON=>DESERIALIZE(
 EXPORTING
   JSON             = ZDATA_IN
 CHANGING
   DATA             = LT_OUTTAB ).

有时当参数传入参数是STRING类型时，本地测试的时候JSON数据过长会发生截断的现象，这时候需要用程序去手工拼接了

DATA: BEGIN OF ls_tab,
        text TYPE char255,
      END OF ls_tab.
DATA: lt_tab LIKE TABLE OF ls_tab.

DATA: lv_string TYPE string.
DATA:filename TYPE string.

PARAMETERS:  p_file TYPE string .

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file .

  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_filename     = '*.TXT'
      def_path         = ''
      mode             = 'O'
      title            = ''
    IMPORTING
      filename         = p_file
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      OTHERS           = 5.

  filename = p_file.

  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename            = filename
      has_field_separator = 'X'
    TABLES
      data_tab            = lt_tab
    EXCEPTIONS
      file_open_error     = 1.

  CLEAR: lv_string.
  LOOP AT lt_tab INTO ls_tab.
    lv_string = lv_string && ls_tab-text.
  ENDLOOP.

json 格式化

        " Display JSON in ABAP
        CALL TRANSFORMATION sjson2html SOURCE XML gt_zlogioalogs-zoutput
                                   RESULT XML lvc_html.
        cl_abap_browser=>show_html(
          title = 'Output JSON'
          html_string = cl_abap_codepage=>convert_from( lvc_html ) ).