RFC的远程调用-异步

TABLES:USR21.
DATA:A  TYPE USR21-PERSNUMBER,
     B  TYPE SY-SYSID,
     C1 LIKE TABLE OF USR21 WITH HEADER LINE.
DATA:MSG_TEXT(100) TYPE C.
CALL FUNCTION ‘ZTESTRFCKING001‘ DESTINATION ‘QAS600‘
STARTING NEW TASK ‘B1‘ "使用call function starting new task destination&&单独调试这一步时会进入目标系统的函数调式界面
  PERFORMING RETURN_USER ON END OF TASK"当目标系统调试完后会进入此子例程，子例程里不能有subimt，commit work等
  EXPORTING
    ZBNAME                = ‘0201010001‘
  EXCEPTIONS
    COMMUNICATION_FAILURE = 1 MESSAGE MSG_TEXT
    SYSTEM_FAILURE        = 2 MESSAGE MSG_TEXT.
IF SY-SUBRC = 0.
  WRITE:‘wait‘.
ELSE.
  WRITE MSG_TEXT.
ENDIF.
IF C1 IS INITIAL.
  WRITE:‘请等待‘.
ELSE.
  WRITE:‘CONNECTION IS READY‘.
ENDIF.

AT USER-COMMAND."由于回调子程序不会自动运行，设置对话步骤让其进入
  IF SY-UCOMM = ‘OKCD‘.
    IF MSG_TEXT IS INITIAL.
      WRITE:A, B.
      LOOP AT C1.
        WRITE:C1-PERSNUMBER.
      ENDLOOP.
    ELSE.
      WRITE:MSG_TEXT.
    ENDIF.
  ENDIF.
FORM RETURN_USER USING TASKNAME.
  RECEIVE RESULTS FROM FUNCTION ‘ ZTESTRFCKING001‘
  IMPORTING
   ZPERSON_NUMBER        = A
   SYSTEMID              = B
    TABLES
      OUTPUT                = C1
    EXCEPTIONS
    COMMUNICATION_FAILURE = 1 MESSAGE MSG_TEXT
    SYSTEM_FAILURE        = 2 MESSAGE MSG_TEXT.
  SET USER-COMMAND ‘OKCD‘.
ENDFORM.     "返还消息