ABAP: JSON 报文解析——/ui2/cl

ABAP: JSON 报文解析——/ui2/cl_json

1、JSON数组

报文格式如下，是JSON 数组类型的。

[
    {
        "I_TYPE":"V",
        "I_BUSINESSSCOPE":"1001"
    },
    {
        "I_TYPE":"V",
        "I_BUSINESSSCOPE":"1002"
    }
]

json转换为SAP内表：

TYPES: BEGIN OF ty_in1,
           I_TYPE(1),
           I_BUSINESSSCOPE(10),
       END OF ty_in1.

DATA:   gt_in1 TYPE TABLE OF ty_in1,
        gs_in1 TYPE ty_in1.

CALL METHOD /ui2/cl_json=>deserialize
        EXPORTING
           json = i_json                             "i_json是输入的json字符串
         CHANGING
            data = gt_in1[].

解析结果：

2、JSON对象+JSON数组

报文格式如下，是有头和行项目的JSON报文

{
    "IHEADER":{
        "I_BKTXT":"测试1",
        "I_USNAM":"J007"
    },
    "ITEM":[
        {
            "I_TYPE":"V",
            "I_BUSINESSSCOPE":"1021"
        }
    ]
}

sap结构定义如下，需注意头IHEADER和ITEM报文中需和定义的保持一致，

DATA:BEGIN OF ty_header,
           I_BKTXT(30),
           I_USNAM(10),
         END OF ty_header,
         BEGIN OF ty_item,
           i_type(1),
           i_businessscope(10),
         END OF ty_item,
         BEGIN OF ty_in2,
           iheader LIKE ty_header,
           itable  LIKE TABLE OF ty_item,
         END OF ty_in2.

  DATA: is_header LIKE ty_header,
        it_item   LIKE TABLE OF ty_item.

*JSON->内表
  CALL METHOD /ui2/cl_json=>deserialize
    EXPORTING
      json = i_json                             "jsonstr是json字符串
    CHANGING
      data = ty_in2.

*另一种方式，同上
  /ui2/cl_json=>deserialize(
  EXPORTING json = i_json
  CHANGING data = ty_in2 ).

  is_header = ty_in2-iheader.
  it_item = ty_in2-item.

解析结果：