Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- class ZCO_INBDELIVERY_REQUEST_OUT definition
- public
- inheriting from CL_PROXY_CLIENT
- create public .
- public section.
- methods CONSTRUCTOR
- importing
- !LOGICAL_PORT_NAME type PRX_LOGICAL_PORT_NAME optional
- raising
- CX_AI_SYSTEM_FAULT .
- methods INBOUND_DELIVERY_REQUEST_OUT
- importing
- !OUTPUT type ZINBOUND_DELIVERY_REQUEST1
- raising
- CX_AI_SYSTEM_FAULT .
- protected section.
- private section.
- ENDCLASS.
- CLASS ZCO_INBDELIVERY_REQUEST_OUT IMPLEMENTATION.
- * <SIGNATURE>---------------------------------------------------------------------------------------+
- * | Instance Public Method ZCO_INBDELIVERY_REQUEST_OUT->CONSTRUCTOR
- * +-------------------------------------------------------------------------------------------------+
- * | [--->] LOGICAL_PORT_NAME TYPE PRX_LOGICAL_PORT_NAME(optional)
- * | [!CX!] CX_AI_SYSTEM_FAULT
- * +--------------------------------------------------------------------------------------</SIGNATURE>
- method CONSTRUCTOR.
- super->constructor(
- class_name = 'ZCO_INBDELIVERY_REQUEST_OUT'
- logical_port_name = logical_port_name
- ).
- endmethod.
- * <SIGNATURE>---------------------------------------------------------------------------------------+
- * | Instance Public Method ZCO_INBDELIVERY_REQUEST_OUT->INBOUND_DELIVERY_REQUEST_OUT
- * +-------------------------------------------------------------------------------------------------+
- * | [--->] OUTPUT TYPE ZINBOUND_DELIVERY_REQUEST1
- * | [!CX!] CX_AI_SYSTEM_FAULT
- * +--------------------------------------------------------------------------------------</SIGNATURE>
- method INBOUND_DELIVERY_REQUEST_OUT.
- data:
- ls_parmbind type abap_parmbind,
- lt_parmbind type abap_parmbind_tab.
- ls_parmbind-name = 'OUTPUT'.
- ls_parmbind-kind = cl_abap_objectdescr=>importing.
- get reference of OUTPUT into ls_parmbind-value.
- insert ls_parmbind into table lt_parmbind.
- if_proxy_client~execute(
- exporting
- method_name = 'INBOUND_DELIVERY_REQUEST_OUT'
- changing
- parmbind_tab = lt_parmbind
- ).
- endmethod.
- ENDCLASS.
- * Вызов метода
- DATA:
- ls_output TYPE ZINBOUND_DELIVERY_REQUEST1, " структура для заполнения данных о поставке.
- lo_proxy TYPE REF TO ZCO_INBDELIVERY_REQUEST_OUT.
- CREATE OBJECT lo_proxy.
- lo_proxy->inbound_delivery_request_out(
- EXPORTING
- output = ls_output ).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement