異步RFC調用實例

PARAMETERS: plnum LIKE plaf-plnum.
DATA: l_return LIKE bapireturn1,
      l_header LIKE bapiplaf_e1,
      l_ca     LIKE bapi_kbko,
      l_ca1    LIKE bapi_kbko,
      l_ca2    LIKE bapi_kbko,
      l_com    LIKE TABLE OF bapi_pldordcomp_e1 WITH HEADER LINE,
      l_capa   LIKE TABLE OF bapi_pldordcapa_e1 WITH HEADER LINE,
      l_capa1  LIKE TABLE OF bapi_pldordcapa_e1 WITH HEADER LINE,
      l_capa2  LIKE TABLE OF bapi_pldordcapa_e1 WITH HEADER LINE.

CALL FUNCTION 'BAPI_PLANNEDORDER_GET_DETAIL'
  DESTINATION '目標系統'
  STARTING NEW TASK 'B1'//指明異步調用模式
  PERFORMING return ON END OF TASK//調用子程序接收返回結果
  EXPORTING
    plannedorder          = plnum.
IF sy-subrc = 0.
  write:/'Success call'.
ENDIF.
AT USER-COMMAND.
  IF sy-ucomm = 'OK'.
    WRITE:/ 'Header Info'.
    ULINE.
    WRITE:/ l_header-plannedorder_num,
            l_header-material,
            l_header-plan_plant,
            l_header-prod_plant ,
            l_header-order_type,
            l_header-total_plord_qty,
            l_header-order_start_date,
            l_header-order_fin_date.
    ULINE.
    WRITE:/ 'Companentsdata Info'.
    ULINE.
    LOOP AT l_com.
      WRITE:/ l_com-material.
    ENDLOOP.
  ENDIF.
FORM return USING taskname.
  RECEIVE RESULTS FROM FUNCTION 'BAPI_PLANNEDORDER_GET_DETAIL'
  keeping task//使已加載的遠程上下文保持至調用程序結束，直到遠程連接終止。
 IMPORTING
   return                    = l_return
   headerdata                = l_header
   capacityheaderdata1       = l_ca
   capacityheaderdata2       = l_ca1
   capacityheaderdata3       = l_ca2
 TABLES
   componentsdata            = l_com
   capacitydata1             = l_capa
   capacitydata2             = l_capa1
   capacitydata3             = l_capa2.
  SET USER-COMMAND 'OK'.
ENDFORM.