示例：

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.