ABAP WebService Consumer

1.根據WSDL URL生成服務消費代理

2.生成消費代理

最後可以看到服務提供者和消費者代理

3.編寫程式測試

*&---------------------------------------------------------------------*
*& Report YWXT_27
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ywxt_27.

DATA: gc_test      TYPE REF TO zcl_co_ywx_ws_test02,
      gv_port_name TYPE prx_logical_port_name.

DATA: gs_input  TYPE zcl_ywx_ws_func_02,
      gs_output TYPE zcl_ywx_ws_func_02response.

DATA: gc_fault TYPE REF TO cx_ai_system_fault.

DATA: gv_str TYPE string.

"這裡的port_name是上面配置的邏輯端口名稱
gv_port_name = 'YTEST_CO_02'.

gs_input-iv_num1 = 3.
gs_input-iv_num2 = 4.

CREATE OBJECT gc_test
  EXPORTING
    logical_port_name = gv_port_name.

TRY .
*TRY.
    CALL METHOD gc_test->ywx_ws_func_02
      EXPORTING
        input  = gs_input
      IMPORTING
        output = gs_output.
  CATCH cx_ai_system_fault INTO gc_fault.

    CALL METHOD gc_fault->if_message~get_text
      RECEIVING
        result = gv_str.


ENDTRY .

IF sy-subrc = 0.
  WRITE:/ '操作成功：' && gs_output-ev_num.
ELSE.
  WRITE:/ '錯誤資訊：' && gv_str.
ENDIF.