ABAP JSON 转内表

例子：获取数据响应如下：

{
    "code":"10000",
    "subCode":"10000",
    "msg":"success",
    "subMsg":"success",
    "data":{
        "datas":[
            {
                "projectId":0,
                "projectName":"",
                "userFullName":"",
                "userId":"",
                "joinMethod":0,
                "joinTime":"",
                "startStudyTime":"",
                "completedAllTime":"",
                "lastStudyTime":"",
                "schedule":"",
                "completed":0,
                "completeTaskAll":0,
                "completeTaskCompulsory":0,
                "completeTaskElective":0,
                "projectScore":0,
                "passed":0,
                "projectComments":"",
                "outStanding":0,
                "point":0,
                "score":0,
                "totalDuration":0,
                "deleted":0,
                "removeStatus":0,
                "userDeleted":0,
                "userStatus":0,
                "thirdUserId":"BH89757",
                "periods":[
                    {
                        "id":0,
                        "name":"",
                        "tasks":[
                            {
                                "taskId":0,
                                "taskName":"",
                                "rate":0,
                                "point":0,
                                "score":0,
                                "duration":0,
                                "startTime":"",
                                "completedTime":"",
                                "delay":0,
                                "achievement":0,
                                "passed":0,
                                "attendance":0,
                                "taskType":9
                            }
                        ]
                    }
                ]
            }
        ],
        "paging":{
            "count":0,
            "limit":0,
            "offset":0,
            "pages":0
        }
    }
}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67

转换代码大致如下：

 TYPES: BEGIN OF ty_final,
             userid           TYPE string,
             completedalltime TYPE string,
           END OF ty_final.
           
    DATA: ls_final    TYPE ty_final,
          lt_final    TYPE TABLE OF ty_final,
          lt_header TYPE  tihttpnvp,
          ls_header TYPE  ihttpnvp.

    DATA: lt_fields TYPE tihttpnvp,
          go_alv    TYPE REF TO cl_salv_table,
          lv_msg    TYPE string.
    DATA:
      lv_json  TYPE string,  "返回参数
      lv_json3 TYPE string,  "传输报文
      json_des TYPE REF TO cl_trex_json_deserializer,
      lv_json1 TYPE string, "获取传回值数据
      lv_json2 TYPE string.  "获取传回值数据
 
    FIELD-SYMBOLS:
      <data>        TYPE data,
      <results>     TYPE ANY TABLE,
      <structure>   TYPE any,
      <table>       TYPE ANY TABLE,
      <field>       TYPE any,
      <prod_tab>    TYPE any,
      <prod_tab1>   TYPE any,
      <field_value> TYPE data.

  CLEAR: ls_header.
    ls_header-name = 'Authorization'.
    ls_header-value = lv_token.
    APPEND  ls_header TO lt_header.
    CLEAR: ls_header.
    ls_header-name = 'Content-Type'.
    ls_header-value = 'application/json; charset=utf-8'.
    APPEND  ls_header TO lt_header.
    CLEAR:url.
    
      url =  '*************************************8'.


*--------------------------------------------------------------------------------------------------------

    "创建http客户端
    CALL METHOD cl_http_client=>create_by_url
      EXPORTING
        url                = url
      IMPORTING
        client             = http_client
      EXCEPTIONS
        argument_not_found = 1
        plugin_not_active  = 2
        internal_error     = 3
        OTHERS             = 4.

    "设定传输请求内容格式以及编码格式
    http_client->request->set_content_type( content_type = 'application/json; charset=utf-8' ).
    http_client->request->set_method( if_http_request=>co_request_method_post ).
    "设置传输头
    CALL METHOD http_client->request->set_header_fields
      EXPORTING
        fields = lt_header.

    "设置调用方法
    CALL METHOD http_client->request->set_header_field
      EXPORTING
        name  = '~request_method'
        value = 'POST'.

*--------------------------------------------------------------------------------------------------------
    CLEAR :lt_res,lv_header .
    CLEAR: lv_json3.
    lv_json3 = '{ "limit": 99 }'.

    "设置待传输内容长度
    len = strlen( lv_json3 ).

    "设置传入字符串
    CALL METHOD http_client->request->set_cdata
      EXPORTING
        data   = lv_json3
        offset = 0
        length = len.

    "发送
    CALL METHOD http_client->send
      EXCEPTIONS
        http_communication_failure = 1
        http_invalid_state         = 2
        http_processing_failed     = 3
        http_invalid_timeout       = 4
        OTHERS                     = 5.


    IF sy-subrc <> 0.
      "操作失败，获取失败原因
      http_client->get_last_error( IMPORTING message = lv_result ).
      EXIT.
    ENDIF.

    "接收
    CALL METHOD http_client->receive
      EXCEPTIONS
        http_communication_failure = 1
        http_invalid_state         = 2
        http_processing_failed     = 3.

    CLEAR:lv_result.
    IF sy-subrc <> 0 .
      http_client->get_last_error( IMPORTING message = lv_result ).
      EXIT.
    ENDIF.

    CLEAR result.
    result = http_client->response->get_cdata( )."提取返回字符串

    result = '[' &&  result &&  ']' .
*     ***JSON->内表
    CLEAR:lt_token[],ls_token.
    CALL METHOD /ui2/cl_json=>deserialize
      EXPORTING
        json         = result
        pretty_name  = /ui2/cl_json=>pretty_mode-user
        assoc_arrays = abap_true
      CHANGING
        data         = lt_list.

    IF lt_list IS BOUND.
      ASSIGN lt_list->* TO <data>.

*返回信息有很多层，需要一层一层的剥离到自己需要的组件。
      ASSIGN COMPONENT sy-tabix  OF STRUCTURE <data> TO  <results>.
      LOOP AT <results> ASSIGNING <prod_tab> .
        ASSIGN <prod_tab>->* TO <data>.
        ASSIGN COMPONENT 'DATA' OF STRUCTURE <data> TO <field>  .
        ASSIGN <field>->* TO <data>.
        ASSIGN COMPONENT 'DATAS' OF STRUCTURE <data> TO <field>  .
        ASSIGN <field>->* TO <data>.
      ENDLOOP.

      ASSIGN COMPONENT sy-tabix  OF STRUCTURE <data> TO  <results>.
      IF <field> IS ASSIGNED.
        LOOP AT <results> ASSIGNING <structure>.
          ASSIGN <structure>->* TO <data>.

          ASSIGN COMPONENT `THIRDUSERID` OF STRUCTURE <data> TO <field>.
          IF <field> IS ASSIGNED.
            lt_list = <field>.
            ASSIGN lt_list->* TO <field_value>.
            IF <field_value> IS ASSIGNED.
              ls_final-userid = <field_value>.
            ENDIF.
          ENDIF.
          UNASSIGN: <field>, <field_value>.

          ASSIGN COMPONENT `COMPLETEDALLTIME` OF STRUCTURE <data> TO <field>.
          IF <field> IS ASSIGNED.
            lt_list = <field>.
            ASSIGN lt_list->* TO <field_value>.
            IF <field_value> IS ASSIGNED.
              ls_final-completedalltime = <field_value>.
            ENDIF.
          ENDIF.
          UNASSIGN: <field>, <field_value>.

          APPEND ls_final TO lt_final.
          CLEAR ls_final.
        ENDLOOP.
         lt_list = lt_final.
      ENDIF.
   ENDIF.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175