[ABAP]RFC 帮组文档上的例子（abenrfc_example）
?
*&---------------------------------*
*& Report ?ZKLJ_0004
*&---------------------------------*
REPORT ?ZKLJ_0004.
?
TYPES:
??BEGIN OF TASK_TYPE,
?? ?NAME TYPE STRING,
?? ?DEST TYPE STRING,
??END OF TASK_TYPE.
?
DATA:
??SND_JOBS TYPE I,
??RCV_JOBS TYPE I,
??EXC_FLAG TYPE I,
??INFO ? ? TYPE RFCSI,
??MESS ? ? TYPE C LENGTH 80,
??INDX ? ? TYPE C LENGTH 4,
??NAME ? ? TYPE C LENGTH 8,
??TASK_LIST TYPE STANDARD TABLE OF TASK_TYPE,
??TASK_WA ? TYPE TASK_TYPE.
?
DO 10 TIMES.
?
??INDX = SY-INDEX.
??CONCATENATE 'Task' INDX INTO NAME.
?
??CALL FUNCTION 'RFC_SYSTEM_INFO'
?? ?STARTING NEW TASK NAME
?? ?DESTINATION IN GROUP DEFAULT
?? ?PERFORMING RFC_INFO ON END OF TASK
?? ?EXCEPTIONS
?? ? ?SYSTEM_FAILURE ? ? ? ?= 1 MESSAGE MESS
?? ? ?COMMUNICATION_FAILURE = 2 ?MESS
?? ? ?RESOURCE_FAILURE ? ? ?= 3.
?
??CASE SY-SUBRC.
?? ?WHEN 0.
?? ? ?SND_JOBS = SND_JOBS + 1.
?? ?WHEN 1 OR 2.
?? ? ?MESSAGE MESS TYPE 'I'.
?? ?WHEN 3.
?? ? ?IF SND_JOBS >= 1 AND EXC_FLAG = 0.
?? ? ? ?EXC_FLAG = 1.
?? ? ? ?WAIT UNTIL RCV_JOBS >= SND_JOBS UP TO 5 SECONDS.
?? ? ?ENDIF.
?? ? ?IF SY-SUBRC = 0.
?? ? ? ?EXC_FLAG = 0.
?? ? ?ELSE.
?? ? ? ?MESSAGE 'Resource failure' TYPE 'I'.
?? ? ?ENDIF.
?? ?WHEN OTHERS.
?? ? ?MESSAGE 'Other error' TYPE 'I'.
??ENDCASE.
?
ENDDO.
?
WAIT UNTIL RCV_JOBS >= SND_JOBS.
LOOP AT TASK_LIST INTO TASK_WA.
??WRITE: / TASK_WA-NAME, TASK_WA-DEST.
ENDLOOP.
?
FORM RFC_INFO USING NAME.
??TASK_WA-NAME = NAME.
??RCV_JOBS = RCV_JOBS + 1.
??RECEIVE RESULTS FROM FUNCTION 'RFC_SYSTEM_INFO'
?? ?IMPORTING
?? ? ?RFCSI_EXPROT ? ? ? ? ?= INFO
?? ?EXCEPTIONS
?? ? ?SYSTEM_FAILURE ? ? ? ?= 1 MESSAGE MESS
?? ? ?COMMUNICATION_FAILURE = 2 MESSAGE MESS.
?
??IF SY-SUBRC = 0.
?? ?TASK_WA-DEST = INFO-RFCDEST.
??ELSE.
?? ?TASK_WA-DEST = MESS.
??ENDIF.
?
??APPEND TASK_WA TO TASK_LIST.
?
ENDFORM.
?
