检查用户是否有自开发事务码的权限
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD 'ZPPF10'.
IF sy-subrc <> 0.
MESSAGE '本用户沒有ZPPF10的使用权限' TYPE 'S'.
RETURN.
ENDIF.
检查用户是否有自开发事务码的权限
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD 'ZPPF10'.
IF sy-subrc <> 0.
MESSAGE '本用户沒有ZPPF10的使用权限' TYPE 'S'.
RETURN.
ENDIF.