利用WebService来获取实时汇率

提供汇率的WebService服务，我们可以在ABAP里面利用代理类访问外部的WebService服务来获取当前各种币种之间的汇率。

步骤：
1.SE80 创建代理类
2.LPCONFIG 创建逻辑端口
3.写程序

如果根据URL创建代理类的时候出现SPRX084的错误，请参考Notes:1046046、976964

 

REPORT  z_barry_test_ws.

DATA: cl_wstest TYPE REF TO zwsco_currency_convertor_soap,
      g_in TYPE zwsconversion_rate_soap_in,
      g_out TYPE zwsconversion_rate_soap_out .
DATA: l_oref TYPE REF TO cx_root,
      exception_msg TYPE string .
DATA: result TYPE p DECIMALS 5 .

START-OF-SELECTION.
  TRY.
      CREATE OBJECT cl_wstest .
      g_in-from_currency = 'USD'.
      g_in-to_currency = 'CNY'.
      CALL METHOD cl_wstest->conversion_rate
        EXPORTING
          input  = g_in
        IMPORTING
          output = g_out.
    CATCH cx_root  INTO l_oref.
      exception_msg = l_oref->get_text( ).
      WRITE:/ exception_msg.
      CLEAR exception_msg.
  ENDTRY.
  result = g_out-conversion_rate_result .
  WRITE result.