ABAP implementation publishes restful services for external invocation example

1. Create implementation classes

• Transaction code ：SE24
  
• Set the interface to be implemented ：IF_HTTP_EXTENSION
  

2. Implementation class

• The main implementation methods ：IF_HTTP_EXTENSION~HANDLE_REQUEST
  

• Implementation code ：
  

    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.
  

3. Definition RESTful service

• Transaction code ：SICF
• New child element
  
  
• Set the service processor
  
• Set default login information （ If not set , Accessing data requires SAP Account authentication ）
  
• Activate service
  
  

4. Test service

• Directly test whether the service is accessible
  
  
• Using third-party tools APIPost SoaUI test
  • Set up Json Query data
    
  • Set up SAP Account authentication （SICF Use when the default authentication account is not set ）
    
  • Send a request , Get the return data