1. 检查是否有指定权限对象

  • 示例代码
DATA: P_WERKS TYPE MARC-WERKS VALUE'1001'.
  AUTHORITY-CHECK OBJECT 'M_MSEG_WMB'
                ID 'WERKS' FIELD P_WERKS
                ID 'ACTVT' FIELD '01'.	"01 创建 02 编辑 03 显示
   IF SY-SUBRC NE 0.
    MESSAGE |你没有工厂：{ P_WERKS }的创建权限| TYPE 'E'.
  ENDIF.


XXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXX