abap 判断当前用户是否有某事物码权限

AUTHORITY-CHECK OBJECT ‘S_TCODE’ ID ‘TCD’ FIELD ‘MM01′.
IF sy-subrc 0.
MESSAGE ‘本用户沒有”MM01”的使用权限’ TYPE ‘S’.

*其中MM01可换成自己需要的事物吗
LEAVE TO SCREEN 0 .
ENDIF.

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/21277275/viewspace-1032801/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/21277275/viewspace-1032801/