matinal:SAP ABAP 函数异步调用总结(二)

2023-11-18 10:53:45 浏览数 (1)

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调用过程只能使用 TABLESEXPORTING(对应功能模块设定中的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调用的返回结果。

0 人点赞