异步rfc

 PARAMETERS DEST LIKE RFCDISPLAY-RFCDEST DEFAULT 'NONE'.
PARAMETERS LOOPC TYPE I DEFAULT 10.

DATA TASKNAME(5) TYPE N.
DATA COUNT TYPE I.
DATA MSG(80).

DATA:  BEGIN OF RESULTS OCCURS 10,
       TASK LIKE TASKNAME,
       COUNTER LIKE SBC415_RFC-COUNTER,
       END   OF RESULTS.

DO LOOPC TIMES.
  ADD 1 TO TASKNAME.
  CALL FUNCTION 'BC415_ARFC'
                   DESTINATION DEST
                   STARTING NEW TASK TASKNAME
                   PERFORMING BACK ON END OF TASK
    EXCEPTIONS
               COMMUNICATION_FAILURE = 1 MESSAGE MSG
               SYSTEM_FAILURE        = 2 MESSAGE MSG.
  CASE SY-SUBRC.
    WHEN 1. WRITE: / 'Ausnahme: COMMUNICATION_FAILURE'.
    WHEN 2. WRITE: / 'Ausnahme: SYSTEM_FAILURE'.
  ENDCASE.
ENDDO.

WAIT UNTIL COUNT = LOOPC.

LOOP AT RESULTS.
  WRITE: / RESULTS-TASK, RESULTS-COUNTER.
ENDLOOP.
*---------------------------------------------------------------------*
*       FORM HUGO                                                     *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
*  -->  TASK                                                          *
*---------------------------------------------------------------------*
FORM BACK USING TASK.
  RECEIVE RESULTS FROM FUNCTION 'BC415_ARFC'
  IMPORTING
     READ_COUNT = RESULTS-COUNTER.

  COUNT = COUNT + 1.
  RESULTS-TASK = TASK.
  APPEND RESULTS.
ENDFORM.