[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.

?