ABAP-System Function Call

函数组：THFB

1.函数TH_WPINFO：当前进程处理清单，可用于判断当前程序或是函数是否重复执行。

 

 直接调用 'ThWpInfo' 与上面TH_WPINFO有些差异，可用下面代码进行测试。

  "是否作业正在执行
  data: lv_line type i,
        lv_name type uname.
  data: lv_opcode(1) type x,
        lv_with_cpu type x value 0.
  constants:
        lc_opcode_wp_list like lv_opcode value 1.

  call 'ThWpInfo' id 'OPCODE' field lc_opcode_wp_list
                  id 'TAB'    field lt_wpinfo-*sys*
                  id 'CPU'    field lv_with_cpu.
  loop at lt_wpinfo assigning field-symbol(<fs_wpinfo>)
  where wp_mandt  = sy-mandt
    and wp_report = sy-repid.
    lv_line = lv_line + 1.
    if lv_line = 1.
      lv_name = <fs_wpinfo>-wp_bname.
    endif.
  endloop.
  if lv_line >= 2.
    message e001(00) with text-113 lv_name.
  endif.

 2.函数TH_LONG_USR_INFO：用户信息

 

 3.函数TH_PLUGINS_ACTIVE

 4.函数TH_POPUP：弹出框

 5.函数TH_QRFC_REQUESTS：QRFC队列

 6.函数TH_REQUEST_QUEUE

 

 7.函数TH_USER_INFO

8.获取当前运行的函数名

form frm_private_get_funcname using fv_funam.
  data:
    lt_callstack   type abap_callstack,
    lt_e_callstack type sys_callst.
  field-symbols:
    <fs_stack>     type sys_calls.

  call function 'SYSTEM_CALLSTACK'
    exporting
      max_level          = 30
    importing
      callstack          = lt_callstack
      et_callstack       = lt_e_callstack .

  loop at lt_e_callstack assigning <fs_stack>
  where eventtype = 'FUNC'.
    fv_funam = <fs_stack>-eventname.
    exit.
  endloop.
endform.

form frm_public_program_name using fv_tcode type sy-tcode
                                   fv_repid type sy-repid.
  data:
    lv_fchar       type c,
    lv_pchar       type c.
  data:
    lt_callstack   type abap_callstack,
    lt_e_callstack type sys_callst.
  field-symbols:
    <fs_stack>     type sys_calls.

  call function 'SYSTEM_CALLSTACK'
    exporting
      max_level          = 30
    importing
      callstack          = lt_callstack
      et_callstack       = lt_e_callstack .

  "事务代码首字符
  lv_fchar = sy-tcode+0(1).
  lv_pchar = sy-repid+0(1).

  if lv_fchar = 'Z' or lv_pchar = 'Z'.
    fv_tcode = sy-tcode.

    loop at lt_e_callstack assigning <fs_stack>.
      clear:lv_fchar.
      lv_fchar = <fs_stack>-progname+0(1).
      if lv_fchar = 'Z'.
        fv_repid = <fs_stack>-progname.
      endif.
    endloop.
  else.
    loop at lt_e_callstack assigning <fs_stack>
    where eventtype = 'FUNC'.
      fv_tcode = sy-tcode.
      fv_repid = <fs_stack>-eventname.
      exit.
    endloop.
  endif.
endform.