SAP调用第三方API

前言

根据业务需求，需要和第三方的数据来支持。这时需要SAP请求外部的封装好的API，当然SAP调用webservice也是一种方法。请求API必定涉及到网络请求，这里记录下网络请求的方式。为了方便API统一管理，这里以SAP的RFC函数为例。

正文

1、创建http服务

2、设置http request的参数

3、把数据转换成json

4、发送http请求

5、接收返回的数据

FUNCTION z_get_api.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(I_URL) TYPE  STRING OPTIONAL
*"     VALUE(LV_JSON_STR) TYPE  STRING OPTIONAL
*"     REFERENCE(I_DJLX) TYPE  ZSEND_LOG-ZDJLX OPTIONAL
*"  EXPORTING
*"     REFERENCE(LV_RESPON) TYPE  STRING
*"----------------------------------------------------------------------

  DATA: json_ser TYPE REF TO cl_trex_json_serializer,
        json_des TYPE REF TO cl_trex_json_deserializer.
  DATA: lv_len TYPE i."发送报文长度
  DATA: lv_subrc TYPE sy-subrc.
  "DATA: lv_json_str TYPE string. "传入的Json
  "DATA: i_url TYPE string. "URL地址
  DATA: lv_msgty TYPE c,
        lv_msgtx TYPE string.
  DATA:wa_tab TYPE zsend_sms_data.
  DATA:p_text(2000) TYPE c.
  DATA:p_flag(1) TYPE c.
  DATA:len TYPE i .
  DATA:g_lines3 TYPE i.
  DATA:l_url TYPE string .
  DATA:strreq  TYPE string.
  DATA:p_tstamps LIKE tzonref-tstamps .
  DATA:split1 TYPE  string."分割字符串
  DATA:split2 TYPE  string.
  DATA:split3 TYPE  string.
  DATA:split4 TYPE  string.
  DATA:s_object LIKE tnro-object.

  DATA zsendlog LIKE TABLE OF zsend_log WITH HEADER LINE.
  DATA wa_send_log TYPE zsend_log.

  "Example样例
  "lv_json_str ='{"elsAccount":701015,"appId": els_test,"appSercet":edkihj34238ikjsdn23hl1od3445luwwasdfpsdfdf2 }'.
  "lv_json_str ='{ "databaseType":3,"operationType": 4,"sql":"SELECT CHDW,MRKWH,WPMC,MRCKH,GG FROM IIMH WHERE WPH = ''1050000001'' " }'.

  DATA: http_client_data TYPE REF TO if_http_client.
  "URL地址
  "i_url  = 'http://xxx.com/els-interface-base/rest/restAPI/'.

  "创建实例
  CALL METHOD cl_http_client=>create_by_url
    EXPORTING
      url    = i_url
    IMPORTING
      client = http_client_data.

  CALL METHOD http_client_data->request->set_header_field
    EXPORTING
      name  = '~server_protocol'
      value = 'HTTP/1.1'.
  "设定传输请求内容格式以及编码格式
  CALL METHOD http_client_data->request->set_header_field
    EXPORTING
      name  = 'Content-Type'
      value = 'text/json; charset=utf-8'.
  "定义请求方式,这里是GET请求方式，如果是POST替换
  CALL METHOD http_client_data->request->set_header_field
    EXPORTING
      name  = '~request_method'
      value = 'GET'.

  "设定调用服务
  "如果是POST方式换成http_client_data->request->set_method( if_http_request=>co_request_method_post ).
  http_client_data->request->set_method( if_http_request=>co_request_method_get ).
  

  "设置待传输内容
  lv_len = strlen( lv_json_str ).
  CALL METHOD http_client_data->request->set_cdata
    EXPORTING
      data   = lv_json_str
      offset = 0
      length = lv_len.

  "设置待传输内容
  CALL METHOD http_client_data->send
    EXCEPTIONS
      http_communication_failure = 1
      http_invalid_state         = 2.
  IF sy-subrc <> 0.
    "操作失败，获取失败原因
    http_client_data->get_last_error( IMPORTING message = lv_msgtx ).
    lv_msgty = 'E'.
    EXIT.
  ENDIF.

  "读取远程服务返回的处理过结果。
  CALL METHOD http_client_data->receive
    EXCEPTIONS
      http_communication_failure = 1
      http_invalid_state         = 2
      http_processing_failed     = 3.
  IF sy-subrc <> 0 .
    http_client_data->get_last_error( IMPORTING message = lv_msgtx ).
    lv_msgty = 'E'.
    EXIT.
  ELSE.
    "读取返回返回内容
    CLEAR lv_respon.
    lv_respon = http_client_data->response->get_cdata( ).
"lv_respon为API请求返回的数据

*-------------------------------记录请求API请求日志消息-------------------------------------------*
    "获取日志表流水号
    CLEAR s_object.
    s_object = 'ZTDLOG'.
    PERFORM frm_get_number USING s_object wa_send_log-zsendbh.

    "获取当前登录人账号
    DATA: wesuser TYPE sy-uname.
    "时间转化，获取时间戳
    CALL FUNCTION 'IB_CONVERT_INTO_TIMESTAMP'
      EXPORTING
        i_datlo     = sy-datum
        i_timlo     = sy-uzeit
      IMPORTING
        e_timestamp = p_tstamps.

    "短信发送返回消息
    zsendlog-zsendbh = wa_send_log-zsendbh."流水号
    zsendlog-zdjlx = i_djlx.               "表单类型 
    zsendlog-ernam = sy-uname.             "创建人
    zsendlog-erdat = sy-datum.             "创建日期
    zsendlog-uzeit = sy-uzeit.             "创建时间
    zsendlog-tzntstmps = p_tstamps.        "时间戳
    zsendlog-message = lv_respon.          "API返回消息

    MODIFY zsend_log FROM zsendlog.
    CLEAR:zsendlog.
*-------------------------------记录请求API请求日志消息-------------------------------------------*

  ENDIF.

ENDFUNCTION.