DATA:lt_marc TYPE TABLE OF marc WITH HEADER LINE.
SELECT * FROM marc INTO CORRESPONDING FIELDS OF TABLE lt_marc WHERE werks IN s_werks.
LOOP AT lt_marc.
AUTHORITY-CHECK OBJECT 'M_IS_WERKS'"授权对象
ID 'WERKS'"授权字段
FIELD lt_marc-werks."'6667'."tvm1-mvgr1."要检查的值,表示程序中权限字段的值
IF sy-subrc <> 0.
MESSAGE e004(zcomm) WITH lt_marc-werks."'没有权限'.
exit.
ENDIF.
ENDLOOP.
SELECT * FROM marc INTO CORRESPONDING FIELDS OF TABLE lt_marc WHERE werks IN s_werks.
LOOP AT lt_marc.
AUTHORITY-CHECK OBJECT 'M_IS_WERKS'"授权对象
ID 'WERKS'"授权字段
FIELD lt_marc-werks."'6667'."tvm1-mvgr1."要检查的值,表示程序中权限字段的值
IF sy-subrc <> 0.
MESSAGE e004(zcomm) WITH lt_marc-werks."'没有权限'.
exit.
ENDIF.
ENDLOOP.