深层结构(deep structure)赋值

REPORT  zwebservicetest.

DATA:proxy TYPE REF TO zrfcco_dxp_accept_pay_msg_web.
DATA:li TYPE ZRFCACCEPT_PAY_MSG_REQUEST.

DATA:lc TYPE ZRFCACCEPT_PAY_MSG_RESPONSE.
TYPES:BEGIN OF TY_ZRFCPAY_MSG.
  INCLUDE TYPE ZRFCPAY_MSG.
TYPES:END OF TY_ZRFCPAY_MSG.

DATA: GT_ZRFCPAY_MSG TYPE TY_ZRFCPAY_MSG
                     OCCURS 0 WITH HEADER LINE.
DATA:GS_ZRFCPAY_MSG TYPE TY_ZRFCPAY_MSG.

GS_ZRFCPAY_MSG-PAY_ID = '001'.
GS_ZRFCPAY_MSG-RESP_MSG = 'TEST'.
APPEND GS_ZRFCPAY_MSG TO GT_ZRFCPAY_MSG .

li-in0-pay_msg[] = GT_ZRFCPAY_MSG[].

START-OF-SELECTION.
  TRY.
      CREATE OBJECT proxy
        EXPORTING
          logical_port_name = 'LP_ZP03'.
    CATCH cx_ai_system_fault.
  ENDTRY.

  TRY .
      CALL METHOD proxy->accept_pay_msg
        EXPORTING
          accept_pay_msg_request  = li
        IMPORTING
          accept_pay_msg_response = lc.
   CATCH cx_ai_system_fault .
   CATCH cx_ai_application_fault .

  ENDTRY.