ABAP--如何限制自己开发的耗时报表在sap系统中运行的个数，以保证正常业务的进行

在SAP系统中经常有许多用户自行开发的报表，有些报表运行很 耗时。如果这种报表被多个用户同时执行，通常会把服务器工作进程资源占用，导致业务操作无法正常进行。这里提去一个变通的做法，限制自行开发的耗时报表的运行个数，保证服务器工作进程资源对业务操作的响应。具体做法如下：

1、建立耗时报表登记表（zauth0003），结构如下
MANDT   集团
REPORT  耗时程序名

2、建立允许运行耗时报表的同时个数表（ zauth0002），结构如下
MANDT   集团
ZNUM      个数

3、建立检查函数
function z_auth_cpu.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  EXPORTING
*"     REFERENCE(Z_RETURN_ERROR) TYPE  SY-SUBRC
*"----------------------------------------------------------------------
  data: begin of wp_tabl occurs 10.
          include structure wpinfo.
  data: end of wp_tabl.
  data: with_cpu type x value 0,
        inum type i.
  z_return_error = 0.
  inum = 0.
  refresh wp_tabl.
  select single  * from zauth0002.
  if sy-subrc <> 0 or zauth0002-znum = 0.
    zauth0002-znum = 5.
  endif.
  select single  * from zauth0003 where report = sy-cprog.
  if sy-subrc = 0.
    call function 'TH_WPINFO'
      exporting
        with_cpu = with_cpu
      tables
        wplist   = wp_tabl
      exceptions
        others   = 0.
    loop at wp_tabl.
      select single  * from zauth0003
        where report = wp_tabl-wp_report.
      if sy-subrc = 0.
        inum = inum + 1.
      endif.
    endloop.
  endif.
  if inum > zauth0002-znum.
    z_return_error = 4.
  endif.
endfunction.

4、在程序中写入以下代码，检查是否可运行。

  data:t_return_code like sy-subrc.

*判断用否可以运算
  data:t_return_error like sy-subrc.
  call function 'Z_AUTH_CPU'
    importing
      z_return_error = t_return_error.
  if t_return_error > 0.
    message e100 with '服务器达到最大会话数，请稍后再试'.
    exit.
  endif.