检查 ABAP/4 程序用户的 权限

要在 ABAP/4 程序中检查 用户权限，请使用 AUTHORITY-CHECK 语句，如下所示：语法

AUTHORITY-CHECK OBJECT '<object>'
                        ID '<name1>' FIELD <F1>
                        ID '<name2>' FIELD <F2>
                            .............
                        ID '<name10>' FIELD <F10>.

<object> 是即将检查 的授权对象 的名称。必 须在 ID 后列出在 <object> 中定义的所 有授权字段 的名称（<name1>, <name2>....） 。必须在 <F1>, <F2>....中为即将检 查的权限输 入值以作为 变量或字母 。然后，该 语句将为命 名的对象搜 索该用户的 参数文件， 以检查该用 户是否有 <f> 中所有值的 授权。然后 SY-SUBRC 将设置为 0。可用 DUMMY 替换. FIELD <f> 跳过字段的 检查。必须 检查系统字 段 SY-SUBRC 中的内容来 检查 AUTHORITY-CHECK 的结果并作 出相应的动作.

如：

SELECT * FROM SPFLI.
   AUTHORITY-CHECK OBJECT 'F_SPFLI'
                        ID 'ACTVT'  FIELD '02'
                        ID 'NAME' FIELD SPFLI-CARRID
                        ID 'CITY'   DUMMY.
   IF SY-SUBRC NE 0. EXIT. ENDIF.
ENDSELECT.

如果用户有 下列关于 F_SPFLI的权限：

ACTVT 01-03、 NAME AA-LH、 CITY none,

并且 SPFLI-CARRID 不处于“AA”和“LH”之间，权限检查将终止 SELECT 循环。