ABAP Restful接口

代码

  METHOD if_http_extension~handle_request.TYPES: BEGIN OF parameter,name TYPE string,value TYPE string,END OF parameter.TYPES : BEGIN OF ty_material,werks TYPE marc-werks,  "工厂matnr TYPE mara-matnr,  "物料maktx TYPE makt-maktx,  "物料描述matkl TYPE mara-matkl,  "物料组attyp TYPE mara-attyp,  "物料类别END OF ty_material.DATA: lt_fields TYPE tihttpnvp,lv_header_query TYPE string,lv_data TYPE string,lv_html TYPE string.DATA: gt_material TYPE TABLE OF ty_material.FIELD-SYMBOLS <fs_field> LIKE LINE OF lt_fields.server->request->get_header_fields( "拿出请求头的部分CHANGINGfields = lt_fields).lv_data = server->request->if_http_entity~get_cdata( ). "把请求体内BODY那部分给拿出来READ TABLE lt_fieldsWITH KEY name = '~query_string' ASSIGNING <fs_field>."把请求头部分的参数拿出来，就是地址栏后面的参数IF sy-subrc EQ 0.DATA: ls_parameter TYPE parameter,lt_parameter TYPE TABLE OF parameter.DATA: lv_str TYPE string,lt_res TYPE TABLE OF string.DATA:row TYPE i,row1 TYPE i.DATA: s_length TYPE i,s_rlength TYPE i.DATA: s_material TYPE string,gj_material TYPE string.DATA: s_matnr TYPE mara-matnr.SPLIT <fs_field>-value AT '&' INTO TABLE lt_res.LOOP AT lt_res INTO DATA(ls_res).SEARCH ls_res FOR '='.IF  sy-subrc = 0.s_length = strlen( ls_res ).row = sy-fdpos.row1 = sy-fdpos + 1.s_rlength = s_length - row1.IF ls_res(row) = 'matnr'.s_matnr = ls_res+row1(s_rlength).ELSE.s_matnr = ''.ENDIF.ENDIF.CLEAR ls_parameter.ENDLOOP.s_matnr = |{ s_matnr ALPHA = IN }|. "添加前导0row = strlen( s_matnr ).  "计算总长度row1 = row - 18.  "计算需要左移的长度SHIFT s_matnr BY row1 PLACES LEFT.  "向左移动：总长度 - 18 的长度SELECTb~werks,a~matnr,c~maktx,a~matkl,a~attypFROM mara AS aLEFT JOIN marc AS b ON a~matnr = b~matnrLEFT JOIN makt AS c ON a~matnr = c~matnrWHERE a~matnr = @s_matnrINTO TABLE @gt_material."数据转成json格式CALL METHOD cl_fdt_json=>data_to_jsonEXPORTINGia_data = gt_materialRECEIVINGrv_json = gj_material.ENDIF.server->response->set_cdata(EXPORTINGdata = gj_material   "将返回参数放在请求体返回).ENDMETHOD.