matinal：SAP ABAP 函数异步调用总结（二）

SAPmatinal

已于 2023-11-17 11:07:54 修改

阅读量1.1k

点赞数 1

分类专栏： ABAP技术文章标签： http restful 网络协议开发语言网络

于 2023-11-17 11:07:52 首次发布

本文链接：https://blog.csdn.net/SAPmatinal/article/details/134458593

版权

ABAP技术专栏收录该内容

1023 篇文章 130 订阅

订阅专栏

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语句也将失效。

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事件中输出