ABAP-多线程处理

  1 *&---------------------------------------------------------------------*
  2 *& Report  ZRICO_TEST26
  3 *&
  4 *&---------------------------------------------------------------------*
  5 *&
  6 *&
  7 *&---------------------------------------------------------------------*
  8 report zrico_test26.
  9 data:gv_taskname(12) type c, "task name（同时运行的任务名称必须保持唯一）
 10      gv_classname    type rzlli_apcl,   "Server Group Name
 11      gv_applserver   type rzllitab-applserver. "RFC Serve Group
 12 data:gv_lin      type char10,
 13      gv_job      type i,
 14      gv_end      type c,
 15      gv_mess(40) type c.        "并发执行出错信息
 16 data:begin of wa_tab,
 17        num1     type vbap-kwmeng,
 18        num2     type vbap-kwmeng,
 19        num3     type vbap-kwmeng,
 20        flg      type c,
 21        exflg    type c,
 22        taskname type string,
 23      end of wa_tab.
 24 data:gt_tab like table of wa_tab.
 25 field-symbols:
 26     <fs_tab> like wa_tab.
 27 
 28 start-of-selection.
 29 
 30   call 'C_SAPGPARAM'                                      "#EC CI_CCALL
 31     id 'NAME'  field 'rdisp/myname'
 32     id 'VALUE' field gv_applserver.
 33 
 34   select single classname
 35      from rzllitab
 36      into gv_classname   "Server Group Name
 37     where applserver = gv_applserver
 38       and grouptype = 'S'.   "S:服务器组，空:登陆组
 39 
 40   "shift gv_classname left deleting leading space.
 41 
 42   do 200 times.
 43     gv_lin = gv_lin + 1.
 44     call function 'CONVERSION_EXIT_ALPHA_INPUT'
 45       exporting
 46         input  = gv_lin
 47       importing
 48         output = gv_lin.
 49 
 50     append initial line to gt_tab assigning <fs_tab>.
 51     <fs_tab>-num1 = sy-index.
 52     concatenate 'TASK' gv_lin into <fs_tab>-taskname.
 53     condense <fs_tab>-taskname no-gaps.
 54     unassign <fs_tab>.
 55   enddo.
 56 
 57 
 58   loop at gt_tab assigning <fs_tab>.
 59     clear:gv_end.
 60 
 61     write:/10 <fs_tab>-taskname,'BEGIN'.
 62 
 63     call function 'ZRICO_NEW_TARK'
 64       starting new task <fs_tab>-taskname
 65       destination in group gv_classname
 66       performing frm_subroutine_done on end of task
 67       exporting
 68         i_num                 = <fs_tab>-num1
 69       exceptions
 70         communication_failure = 1 message gv_mess
 71         system_failure        = 2 message gv_mess
 72         resource_failure      = 3.
 73     if sy-subrc = 0.
 74       <fs_tab>-exflg = 'Y'.
 75       gv_job = gv_job + 1.
 76     else.
 77       <fs_tab>-exflg = 'N'.
 78     endif.
 79 
 80     write:/10 <fs_tab>-taskname,'END'.
 81 
 82   endloop.
 83 
 84   loop at gt_tab assigning <fs_tab>.
 85     write:/10 <fs_tab>-num1,<fs_tab>-num2,<fs_tab>-flg,<fs_tab>-exflg,<fs_tab>-taskname.
 86   endloop.
 87 
 88 form frm_subroutine_done using gv_taskname.
 89   data:lv_num type vbap-kwmeng.
 90   field-symbols:
 91     <fs_tab> like line of gt_tab.
 92 
 93   receive results from function 'ZRICO_NEW_TARK'
 94     importing
 95       e_num          = lv_num.
 96 
 97   loop at gt_tab assigning <fs_tab>
 98   where taskname = gv_taskname.
 99     <fs_tab>-num2 = lv_num.
100     <fs_tab>-flg  = 'X'.
101   endloop.
102 
103   gv_end = 'X'.
104 endform.