RFC不同的调用模式
CALL FUNCTION中的DESTINATION可以是文字或变量,其值为SAP系统中已知的远程目标系统,除去SM59中手工定义的目标外,如果远程系统就是当前系统的SAP应用服务器,也可以直接指定应用服务器名称,即SM59中的I类型目标。
注意:SM59中定义的RFC目标是区分大小写的,DESTINATION附加项中目标变量的值必须与其完全一致,包括大小写。但如果直接指定SAP应用服务器名称,则无此限制
同步调用RFC
远程调用时,通信双方的系统必须均可用,主调程序等待远程功能处理结束并返回结果:
CALL FUNCTION func DESTINATION dest parameter_list.
对于表类型参数,在本地普通功能调用中默认就是为引用传递(实质为传递字段符号),但RFC中不支持引用传递机制,所以也将默认进行隐式的值传递调用,另外,只会传递表本身,不会传递表头。
对于内表类型的参数,只有扁平结构可以被传输,但EXPORTING、IMPORTING和CHANGING可以用于传输纵深类型及STRING等类型的数据。
同步远程对话处理
对于同步RFC和异步RFC,可以存在对话过程,如 CALL SCREEN、CALL TRANSACTION或列表处理等,但要注意的是,以后台模式调用有对话程序的RFM,则将导致程序中断,会引发系统异常 SYSTEM_FAILURE。
如果远程RFM处理时出现交互对话过程,将在当前调用程序的会话中先进行远程对话处理,处理结束之后再继续调用程序:
异步调用RFC(任务方式)
主调程序的执行并不依赖于RFC服务器系统的可用性,被调用的远程功能启动后,调用程序继续运行,远程功能和调用程序处理相互分离,远程功能的结果可以稍后接收:
CALL FUNCTION func STARTING NEW TASK task [DESTINATION {dest|{IN GROUP {group|DEFAULT}}}] [{PERFORMING subr}|{CALLING meth} ON END OF TASK] parameter_list.
STARTING NEW TASK表示异步调用模式,task为任务的名称,可以任意,通常对于不同的异步调用,应该指定不同的任务名
在异步RFC调用中,DESTINATION并不是必须的,即远程系统的指定并不是实现异步RFC调用过程的前提条件(但函数一定要是RFC函数才能采用异步调用),只要出现STARTING NEW TASK附加项,系统就将以异步RFC进行功能调用
异步RFC调用
参数限制
异步RFC调用过程只能使用 TABLES、EXPORTING(对应功能模块设定中的Import参数)和EXCEPIONS参数。调用程序并不等待该模块返回结果,因而不能指定IMPORTING参数(其返回结果需要在回调子程序中进行处理)。而且,调用的同时只能接收系统标准异常COMMUNICATION_FAILURE和SYSTEM_FAILURE,对于功能模块中抛出的其他特定异常则不能直接接收,也需要在回调子程序中处理。
接收返回结果
如果需要在异步RFC模式下接收远程模块的返回结果或特定异常,可以通过调用语句中的附加项PERFORMING return_form ON END OF TASK实现:
CALL FUNCTION rfm_name STARTING NEW TASK taskname PERFORMING return_form ON END OF TASK ...
其中指定的子程序必须存在于调用程序中,并包含RECEIVE语句:
FORM return_form USING taskname. ... RECEIVE RESULTS FROM FUNCTION rfm_name ... ENDFORM.
当被调用RFM功能模块执行结束后,系统将自动执行回调子程序return_form,return_form子程序必须包含一个任意的名称、类型的形式参数,以接收对应异步RFC调用的任务名称。
注:回调子程序return_form中不能包含任何使当前程序执行中断的语句,例如:CALL SCREEN、SUBMIT、COMMIT WORK、WAIT、RFC调用及W或I类型的消息等,否则是不能成功将结果输出到屏幕上,此外,子程序中的WRITE语句也将失效。
代码语言:javascript复制DATA: msg_text(128).
DATA: gt_protocol TYPE btcxpm OCCURS 0 WITH HEADER LINE.
CALL FUNCTION 'SXPG_COMMAND_EXECUTE'
* DESTINATION 'SAPECC6_ECC_00'
STARTING NEW TASK 'B1'
PERFORMING return_frm ON END OF TASK
EXPORTING
commandname = 'ZDIR'
additional_parameters = 'd: /w'
EXCEPTIONS
communication_failure = 1 MESSAGE msg_text
system_failure = 2 MESSAGE msg_text.
IF sy-subrc = 0.
WRITE: 'Wait for reply.'.
ELSE.
WRITE msg_text.
ENDIF.
AT USER-COMMAND.
IF sy-ucomm = 'OK'."此处的FunctionCode为 return_frm 函数所触发
IF msg_text = space.
LOOP AT gt_protocol.
WRITE: / gt_protocol-message.
ENDLOOP.
ELSE.
WRITE : '--' , msg_text.
ENDIF.
ENDIF.
FORM return_frm USING taskname.
RECEIVE RESULTS FROM FUNCTION 'SXPG_COMMAND_EXECUTE'
TABLES
exec_protocol = gt_protocol
EXCEPTIONS
communication_failure = 1 message msg_text
system_failure = 2 message msg_text.
" WAIT UP TO 1 SECONDS."在接收Form中不能出现中断语句,否则抛异常
SET USER-COMMAND 'OK'."接收到异步返回结果后,自动触发一个列表事件,如果有输出,将会显示下一级别的List屏幕
ENDFORM.
要想将结果输出到屏幕上,这里一定要在 AT USER-COMMAND事件中输出
等待多个异步调用的返回结果
语句WAIT UNTIL用于异步RFC调用中等待结果的返回,该项必须与PERFORMING附加项配合使用,否则没有意义,也无任何效果:
WAIT UNTIL log_exp [UP TO sec SECONDS].
注:WAIT UP TO 1 SECONDS.不需要与PERFORMING选项配合使用,也就是说可以使用在普通的ABAP程序中,用来暂停当前会话线程
该语句执行时,log_exp中的条件将被检查(或者到达指定的等待时间sec),仅当条件满足时,主调程序继续执行;否则程序将挂起,并等待异步RFC调用的返回结果。