BASIS--如何删除开发用户的开发Key

来源：互联网发布：淘宝客服几点下班编辑：程序博客网时间：2024/04/28 16:40

在BASISI系统管理中，用户的开发Key存储在DEVACCESS表中，如果由于审计需要删除一些用户的开发Key，而系统有限制SM30, SE16 or SE16N 等事务码的使用，你就可以通过一个小程序去删除开发Key。

代码如下：

REPORT ZBCDEVACCESS.

* ===================================================================

* TITLE: Delete Record from Table DEVACCESS

* DESCRIPTION: This program deletes the SSCR Developer Keys from the

* table DEVACCESS. There is no maintenance dialog available via SM30

* and thus this program is necessary.

* ===================================================================

TABLES: DEVACCESS.

PARAMETERS: p_user LIKE DEVACCESS-UNAME.

DELETE FROM DEVACCESS WHERE UNAME EQ p_user.

IF SY-SUBRC EQ 0.

WRITE: /’User and key for ‘, p_user, ‘deleted from table DEVACCESS.’

ELSE.

WRITE: /’Error deleting user and key for ‘, p_user, ‘ return code ‘, SY-SUBRC.

ENDIF.

1 0