ABAP- 发布 Restful 服务

作者：桥下本有油菜花

2022 年 6 月 30 日
本文字数：731 字
阅读完需：约 2 分钟

在 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.