RFC创建和调用的实例

创建定制的RFM示例KF1系统中用事务代码Se37或者se80创建一个函数组ZFUNCTION_GROUP，用来存放函数

KF1系统中用事务代码：se37创建一个函数：Z_RFC_TEST01

如图所示，点击创建

输入如图所示信息如图所示，选择函数类型：RFC

ED1系统中维护远程目标，事务代码：SM59

选择“创建”，

如图所示，点击“连接”即可以连接到KF1系统

如图所示，连接成功在ED1系统中用事务代码：se38编写一个测试程序ZRFC_TEST001(同步调用)，代码如下

REPORT

ZRFC_TEST001.

DATA:

LS_ADDR

TYPE

USER_ADDR,

SYSTEM_ID

TYPE

SY-SYSID,

GT_USER

TYPE

STANDARD

TABLE

OF

USR05,

WA_USER

TYPE

USR05.

CALL

FUNCTION

'Z_RFC_TEST01'

DESTINATION

'10.88.127.138_KF1'

EXPORTING

USER_NAME

=

SY-UNAME

IMPORTING

USER_ADDR

=

LS_ADDR

SYSTEM_ID

=

SYSTEM_ID

TABLES

USER_PARA

=

GT_USER.

WRITE:

'当前用户：',SY-UNAME.

WRITE:

/

'用户地址：',LS_ADDR-NAME_FIRST,

LS_ADDR-NAME_LAST.

WRITE:

/

'目标系统：',SYSTEM_ID.

LOOP

AT

GT_USER

INTO

WA_USER.

WRITE:

/

WA_USER-BNAME,WA_USER-PARID,WA_USER-PARVA.

CLEAR:WA_USER.

ENDLOOP.F8执行，结果如下图

结果成功在ED1系统中使用事务代码：se38编写一个异步调用程序ZRFC_TEST002，代码如下

REPORT

ZRFC_TEST002.

DATA:

LS_ADDR

TYPE

USER_ADDR,

SYSTEM_ID

TYPE

SY-SYSID,

GT_USER

TYPE

STANDARD

TABLE

OF

USR05,

WA_USER

TYPE

USR05.

DATA:

L_TASK_NAME(32)

TYPE

C.

CLEAR

L_TASK_NAME.

CALL

FUNCTION

'TH_GET_SESSION_ID'

IMPORTING

SESSION_ID

=

L_TASK_NAME.

CALL

FUNCTION

'Z_RFC_TEST01'

STARTING

NEW

TASK

L_TASK_NAME

DESTINATION

'10.88.127.138_KF1'

PERFORMING

SUB_WAIT_RESULT

ON

END

OF

TASK

EXPORTING

USER_NAME

=

SY-UNAME

TABLES

USER_PARA

=

GT_USER.

WAIT

UNTIL

GT_USER

IS

NOT

INITIAL.

WRITE:

'时间日期1：',SY-DATUM,SY-UZEIT.

WRITE:

/

'当前用户：',SY-UNAME.

*&---------------------------------------------------------------------*

*&

Form

SUB_WAIT_RESULT

*&---------------------------------------------------------------------*

*

text

*----------------------------------------------------------------------*

*

-->P_USER_PARA

text

*

-->P_=

text

*

-->P_GT_USER

text

*----------------------------------------------------------------------*

FORM

SUB_WAIT_RESULT

USING

TABLESPARA.

RECEIVE

RESULTS

FROM

FUNCTION

'Z_RFC_TEST01'.

WRITE:

'当前时间2：',SY-DATUM,SY-UZEIT.

*

WRITE:

'当前用户：',SY-UNAME.

*

*

WRITE:

/

'目标系统：',P_SYSTEM_ID.

*

*

LOOP

AT

P_GT_USER

INTO

WA_USER.

*

*

WRITE:

/

WA_USER-BNAME,WA_USER-PARID,WA_USER-PARVA.

*

*