20170330 abap调用外部webservice

REPORT  YTST_201703_WEB_002.

*data definition
DATA: ERROR TYPE REF TO CX_AI_SYSTEM_FAULT.
***Proxy 定义：
DATA: PRXY  TYPE REF TO ZCO_REQUEST_IMATNR_RESOURCE_SE."Proxy Name-ZCO_IMATNR_RESOURCE_SERVICE_PO
DATA: Z_IN  TYPE ZREQUEST8.                            "request in
DATA: Z_OUT TYPE ZRESPONSE8.                           "request out
DATA: LO_OREF TYPE REF TO CX_ST_ERROR.
data:O_MSG type string.

*I_SERVICE1-in0 = '1'.
Z_IN-REQUEST_DATA = '<?xml version="1.0" encoding="UTF-8"?><handleIMatnrResourceService><in0>1</in0></handleIMatnrResourceService>'.
*Z_IN-REQUEST_DATA = '<?xml version="1.0" encoding="UTF-8"?><handleIMatnrResourceService><in0>1</in0></handleIMatnrResourceService>'.

CLEAR ERROR.
TRY.
    CREATE OBJECT PRXY
      EXPORTING
        LOGICAL_PORT_NAME = 'ZMLSCP_GET_RESOURCE'.

    CALL METHOD PRXY->REQUEST
      EXPORTING
        INPUT  = Z_IN
      IMPORTING
        OUTPUT = Z_OUT.
  CATCH CX_AI_SYSTEM_FAULT INTO ERROR.
    O_MSG = ERROR->ERRORTEXT.
ENDTRY.

WRITE:/ O_MSG.
IF Z_OUT IS NOT INITIAL.
  WRITE:'得到返回值！'.
ENDIF.