函数：abap自定义权限检查函数

FORM frm_authority_check.
*  DATA: l_return_num TYPE i.

  CALL FUNCTION 'Z_03FI_AUTH_CHECK'
    EXPORTING
    i_bukrs        =  p_code
    i_actvt        =  '03'
*  IMPORTING
*    E_RETURN       =  l_return_num   .
.

ENDFORM.                    "frm_authority_check

FUNCTION Z_03FI_AUTH_CHECK .
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     REFERENCE(I_BUKRS) TYPE  BUKRS DEFAULT '1201'
*"     REFERENCE(I_ACTVT) TYPE  ACTIV_AUTH
*"  EXPORTING
*"     REFERENCE(E_RETURN) TYPE  SY-SUBRC
*"----------------------------------------------------------------------
  DATA: l_mod(10) TYPE c.

  CLEAR l_mod.
  CASE i_actvt.
    WHEN '01'.
      l_mod = '创建'.
    WHEN '02'.
      l_mod = '修改'.
    WHEN '03'.
      l_mod = '查询'.
    WHEN OTHERS.
      l_mod = '操作'.
  ENDCASE.

  AUTHORITY-CHECK OBJECT 'Z03FI001'
           ID 'BUKRS' FIELD i_bukrs
           ID 'ACTVT' FIELD i_actvt.

  e_return = sy-subrc.
  IF sy-subrc <> 0.
    MESSAGE e114(z03) WITH i_bukrs l_mod.
  ENDIF.

ENDFUNCTION.