ABAP-SAP调用第三方webservice

se80中创建服务消费者

 

一步步next之后会在企业服务消费者中生成一个ABAP的类

 

然后就可以在程序中使用这个类，然后调用相对应的方法就可以了

 

 

 

具体程序及注释如下：

*&---------------------------------------------------------------------*
*& Report Z_WESERVICETEST01_CPF
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT z_weservicetest01_cpf.

DATA web TYPE REF TO zips_co_ip_address_search_web.         "定义webservice实例

DATA web_input TYPE zips_get_country_city_by_ip_s1.         "定义get_country_city_by这个方法的输入参数
DATA web_output TYPE zips_get_country_city_by_ip_so.        "定义get_country_city_by这个方法的输出参数
DATA lv_str TYPE string.

*DATA xxxxxxxx TYPE REF TO ZIPS_CO_IP_ADDRESS_SEARCH_WEB.

TRY.
    CREATE OBJECT web                                       "实例化webservice
*  EXPORTING
*    logical_port_name  =
      .
  CATCH cx_ai_system_fault .
ENDTRY.


web_input-the_ip_address = '175.12.12.12'.                  "定义get_country_city_by方法的传入参数
CALL METHOD web->get_country_city_by_ip                     "调用get_country_city_by方法
  EXPORTING
    input  = web_input
  IMPORTING
    output = web_output.                                    "接收传出参数


LOOP AT web_output-get_country_city_by_ip_result-string INTO lv_str.
  WRITE:/ lv_str.
ENDLOOP.