co02权限增强

CO02 有无撤销技术实现权限的增强

标程：COMODPAI

 

***INCLUDE COMODPAI .

*&---------------------------------------------------------------------*
*& Module GET_CURSOR INPUT
*&---------------------------------------------------------------------*
* text *
*----------------------------------------------------------------------*
MODULE GET_CURSOR INPUT.
*{ INSERT DEVK904181

if sy-ucomm = 'TABR' and sy-mandt = '800'.
tables: zco02_usr1.
select single * from zco02_usr1 where bname = sy-uname.
if sy-subrc <> 0.
message '您无权操作，请联系权限管理员！' type 'E'.
endif.
endif.
*} INSERT

PERFORM GET_OBJECT.

ENDMODULE. " GET_CURSOR INPUT

 

只有800集团中的zco02_usr1表中有的用户才能撤销技术实现。