在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.