1、检查用户是否具有某个TCODE的权限
AUTHORITY-CHECK OBJECT 'S_CODE' ID 'TCD' FIELD .
IF SY-SUBRC <> 0.
MESSAGE '没有使用权限' .
LEAVE TO SCREEN 0 .
ENDIF .
2、Authority-CHECK基本介绍
AUTHORITY-CHECK的调用语法:
AUTHORITY-CHECK OBJECT object
ID name1 FIELD f1 .
ID name2 FIELD f2 .
...
ID name10 FIELD f10 .