Advertisement
Guest User

Untitled

a guest
Jul 5th, 2019
202
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. class ZCO_INBDELIVERY_REQUEST_OUT definition
  2.   public
  3.   inheriting from CL_PROXY_CLIENT
  4.   create public .
  5.  
  6. public section.
  7.  
  8.   methods CONSTRUCTOR
  9.     importing
  10.       !LOGICAL_PORT_NAME type PRX_LOGICAL_PORT_NAME optional
  11.     raising
  12.       CX_AI_SYSTEM_FAULT .
  13.   methods INBOUND_DELIVERY_REQUEST_OUT
  14.     importing
  15.       !OUTPUT type ZINBOUND_DELIVERY_REQUEST1
  16.     raising
  17.       CX_AI_SYSTEM_FAULT .
  18. protected section.
  19. private section.
  20. ENDCLASS.
  21.  
  22. CLASS ZCO_INBDELIVERY_REQUEST_OUT IMPLEMENTATION.
  23.  
  24. * <SIGNATURE>---------------------------------------------------------------------------------------+
  25. * | Instance Public Method ZCO_INBDELIVERY_REQUEST_OUT->CONSTRUCTOR
  26. * +-------------------------------------------------------------------------------------------------+
  27. * | [--->] LOGICAL_PORT_NAME              TYPE        PRX_LOGICAL_PORT_NAME(optional)
  28. * | [!CX!] CX_AI_SYSTEM_FAULT
  29. * +--------------------------------------------------------------------------------------</SIGNATURE>
  30.   method CONSTRUCTOR.
  31.  
  32.   super->constructor(
  33.     class_name          = 'ZCO_INBDELIVERY_REQUEST_OUT'
  34.     logical_port_name   = logical_port_name
  35.   ).
  36.  
  37.   endmethod.
  38.  
  39. * <SIGNATURE>---------------------------------------------------------------------------------------+
  40. * | Instance Public Method ZCO_INBDELIVERY_REQUEST_OUT->INBOUND_DELIVERY_REQUEST_OUT
  41. * +-------------------------------------------------------------------------------------------------+
  42. * | [--->] OUTPUT                         TYPE        ZINBOUND_DELIVERY_REQUEST1
  43. * | [!CX!] CX_AI_SYSTEM_FAULT
  44. * +--------------------------------------------------------------------------------------</SIGNATURE>
  45.   method INBOUND_DELIVERY_REQUEST_OUT.
  46.  
  47.   data:
  48.     ls_parmbind type abap_parmbind,
  49.     lt_parmbind type abap_parmbind_tab.
  50.  
  51.   ls_parmbind-name = 'OUTPUT'.
  52.   ls_parmbind-kind = cl_abap_objectdescr=>importing.
  53.   get reference of OUTPUT into ls_parmbind-value.
  54.   insert ls_parmbind into table lt_parmbind.
  55.  
  56.   if_proxy_client~execute(
  57.     exporting
  58.       method_name = 'INBOUND_DELIVERY_REQUEST_OUT'
  59.     changing
  60.       parmbind_tab = lt_parmbind
  61.   ).
  62.  
  63.   endmethod.
  64. ENDCLASS.
  65.  
  66.  
  67. * Вызов метода
  68.     DATA:
  69.         ls_output TYPE ZINBOUND_DELIVERY_REQUEST1, " структура для заполнения данных о поставке.
  70.         lo_proxy  TYPE REF TO ZCO_INBDELIVERY_REQUEST_OUT.
  71.  
  72.     CREATE OBJECT lo_proxy.
  73.  
  74.     lo_proxy->inbound_delivery_request_out(
  75.       EXPORTING
  76.         output = ls_output ).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement