异步调用RFC开发实例

最新推荐文章于 2025-06-12 17:03:00 发布

Nathan_Sun

最新推荐文章于 2025-06-12 17:03:00 发布

阅读量1.2k

点赞数 2

CC 4.0 BY-SA版权

文章标签： abap 异步实例

本文链接：https://blog.youkuaiyun.com/Sundam/article/details/78959424

*&---------------------------------------------------------------------*
*&      RFC异步调用
*&---------------------------------------------------------------------*
  DATA:g_taskname(10) TYPE c,                "task name
       g_classname    TYPE rzlli_apcl,          "Server Group Name
       g_applserver   TYPE rzllitab-applserver, "RFC Serve Group
       excp_flag(1)   TYPE c.     "Number of RESOURCE_FAILUREs

  DATA:snd_jobs         TYPE i,
       rcv_jobs         TYPE i,
       functioncall1(1) TYPE c.

  CALL 'C_SAPGPARAM'                                      "#EC CI_CCALL
    ID 'NAME'  FIELD 'rdisp/myname'
    ID 'VALUE' FIELD g_applserver.

  SELECT SINGLE classname
    FROM rzllitab
    INTO g_classname   "Server Group Name
    WHERE applserver = g_applserver
    AND grouptype = 'S'.   "S:服务器组，空:登陆组

*   生成任务名称 = 'Task' + sy-tabix   Start--*
  WRITE sy-tabix TO g_taskname.
  CONDENSE g_taskname.
  CONCATENATE 'Task' g_taskname INTO g_taskname.

  CALL FUNCTION 'ZPP_BOM_CREATE_RFC'
    STARTING NEW TASK g_taskname "task name
    DESTINATION IN GROUP g_classname  "Server Group Name
    TABLES
      ztpp_bom_crm_m = ztpp_bom_crm_m[].