该报告程序用于在BASIS系统管理中删除DEVACCESS表中的开发Key，当不能使用SM30、SE16或SE16N等事务码时。参数p_user接收用户名，然后删除对应记录。成功则显示删除成功的消息，失败则显示错误信息和返回代码。
在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.
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
