創(chuàng)建定制的RFM示例KF1系統(tǒng)中用事務(wù)代碼Se37或者se80創(chuàng)建一個(gè)函數(shù)組ZFUNCTION_GROUP，用來(lái)存放函數(shù)

KF1系統(tǒng)中用事務(wù)代碼：se37創(chuàng)建一個(gè)函數(shù)：Z_RFC_TEST01

如圖所示，點(diǎn)擊創(chuàng)建

輸入如圖所示信息如圖所示，選擇函數(shù)類(lèi)型：RFC

ED1系統(tǒng)中維護(hù)遠(yuǎn)程目標(biāo)，事務(wù)代碼：SM59

選擇“創(chuàng)建”，

如圖所示，點(diǎn)擊“連接”即可以連接到KF1系統(tǒng)

如圖所示，連接成功在ED1系統(tǒng)中用事務(wù)代碼：se38編寫(xiě)一個(gè)測(cè)試程序ZRFC_TEST001(同步調(diào)用)，代碼如下

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:

'當(dāng)前用戶(hù)：',SY-UNAME.

WRITE:

/

'用戶(hù)地址：',LS_ADDR-NAME_FIRST,

LS_ADDR-NAME_LAST.

WRITE:

/

'目標(biāo)系統(tǒng)：',SYSTEM_ID.

LOOP

AT

GT_USER

INTO

WA_USER.

WRITE:

/

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

CLEAR:WA_USER.

ENDLOOP.F8執(zhí)行，結(jié)果如下圖

結(jié)果成功在ED1系統(tǒng)中使用事務(wù)代碼：se38編寫(xiě)一個(gè)異步調(diào)用程序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:

'時(shí)間日期1：',SY-DATUM,SY-UZEIT.

WRITE:

/

'當(dāng)前用戶(hù)：',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:

'當(dāng)前時(shí)間2：',SY-DATUM,SY-UZEIT.

*

WRITE:

'當(dāng)前用戶(hù)：',SY-UNAME.

*

*

WRITE:

/

'目標(biāo)系統(tǒng)：',P_SYSTEM_ID.

*

*

LOOP

AT

P_GT_USER

INTO

WA_USER.

*

*

WRITE:

/

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

*

*