ABAP- 发布 Restful 服务

在 SAP 与外围系统进行数据交互时,有时需要发布 Restful 服务给外部系统调用,下面是 SAP 发布 Restful 服务的一个简单实例

创建实施类

事务代码：SE24

设置需要实现的接口：IF_HTTP_EXTENSION

实现实施类

主要实现的方法：IF_HTTP_EXTENSION~HANDLE_REQUEST

实现代码

METHOD if_http_extension~handle_request.
    TYPES: BEGIN OF ty_input,
             rows TYPE i,
           END OF ty_input.

    DATA: l_input TYPE ty_input.

    DATA: i_string TYPE string,
          o_string TYPE string.

    "Get Importing Json
    i_string = server->request->if_http_entity~get_cdata( )."

    "Deserialize Json to data
    /ui2/cl_json=>deserialize( EXPORTING json = i_string CHANGING data = l_input ).

    "Get Return Data
    SELECT *
      FROM sflight
      INTO TABLE @DATA(lt_sflight)
      UP TO @l_input-rows ROWS.

    "Serialize Data to Json
    o_string = /ui2/cl_json=>serialize( lt_sflight ).

    "Set the return data format
    CALL METHOD server->response->if_http_entity~set_content_type
      EXPORTING
        content_type = 'application/json'.

    "set exporting data
    server->response->set_cdata(
    EXPORTING
    data   = o_string ).

  ENDMETHOD.