ABAP-多线程处理

 *&---------------------------------------------------------------------*
 *& Report  ZRICO_TEST26
 *&
 *&---------------------------------------------------------------------*
 *&
 *&
 *&---------------------------------------------------------------------*
 report zrico_test26.
 data:gv_taskname() type c, "task name（同时运行的任务名称必须保持唯一）
      gv_classname    type rzlli_apcl,   "Server Group Name
      gv_applserver   type rzllitab-applserver. "RFC Serve Group
 data:gv_lin      type char10,
      gv_job      type i,
      gv_end      type c,
      gv_mess() type c.        "并发执行出错信息
 data:begin of wa_tab,
        num1     type vbap-kwmeng,
        num2     type vbap-kwmeng,
        num3     type vbap-kwmeng,
        flg      type c,
        exflg    type c,
        taskname type string,
      end of wa_tab.
 data:gt_tab like table of wa_tab.
 field-symbols:
     <fs_tab> like wa_tab.

 start-of-selection.

   call 'C_SAPGPARAM'                                      "#EC CI_CCALL
     id 'NAME'  field 'rdisp/myname'
     id 'VALUE' field gv_applserver.

   select single classname
      from rzllitab
      into gv_classname   "Server Group Name
     where applserver = gv_applserver
       and grouptype = 'S'.   "S:服务器组，空:登陆组

   "shift gv_classname left deleting leading space.

   do  times.
     gv_lin = gv_lin + .
     call function 'CONVERSION_EXIT_ALPHA_INPUT'
       exporting
         input  = gv_lin
       importing
         output = gv_lin.

     append initial line to gt_tab assigning <fs_tab>.
     <fs_tab>-num1 = sy-index.
     concatenate 'TASK' gv_lin into <fs_tab>-taskname.
     condense <fs_tab>-taskname no-gaps.
     unassign <fs_tab>.
   enddo.

   loop at gt_tab assigning <fs_tab>.
     clear:gv_end.

     write:/ <fs_tab>-taskname,'BEGIN'.

     call function 'ZRICO_NEW_TARK'
       starting new task <fs_tab>-taskname
       destination in group gv_classname
       performing frm_subroutine_done on end of task
       exporting
         i_num                 = <fs_tab>-num1
       exceptions
         communication_failure =  message gv_mess
         system_failure        =  message gv_mess
         resource_failure      = .
     if sy-subrc = .
       <fs_tab>-exflg = 'Y'.
       gv_job = gv_job + .
     else.
       <fs_tab>-exflg = 'N'.
     endif.

     write:/ <fs_tab>-taskname,'END'.

   endloop.

   loop at gt_tab assigning <fs_tab>.
     write:/ <fs_tab>-num1,<fs_tab>-num2,<fs_tab>-flg,<fs_tab>-exflg,<fs_tab>-taskname.
   endloop.

 form frm_subroutine_done using gv_taskname.
   data:lv_num type vbap-kwmeng.
   field-symbols:
     <fs_tab> like line of gt_tab.

   receive results from function 'ZRICO_NEW_TARK'
     importing
       e_num          = lv_num.

   loop at gt_tab assigning <fs_tab>
   where taskname = gv_taskname.
     <fs_tab>-num2 = lv_num.
     <fs_tab>-flg  = 'X'.
   endloop.

   gv_end = 'X'.
 endform.