BASIS--使用DELETE_USER_ON_DB批量删除用户
2007-08-23 11:19
302 查看
REPORT ZDELUSER.
TABLES: USR01, USR02, *USR02, USR04, *USR04.
TABLES: USR03, USR05, USGRP, USR08, USR09, USR30.
TABLES: USR10, USR11, USR12, *USR10, *USR12, USR13, *USR13, USR16.
TABLES: USH04, USH10, USH12, USH02.
TABLES: UST04, UST10C, UST10S, UST12.
TABLES: USRBF.
PARAMETER UGRP LIKE USR03-CLASS.
DATA: BEGIN OF INTUSR02 OCCURS 200,
BNAME LIKE USR02-BNAME,
END OF INTUSR02.
DATA: CNTR TYPE P VALUE 0.
SELECT * FROM USR02 WHERE CLASS = UGRP.
INTUSR02-BNAME = USR02-BNAME.
APPEND INTUSR02.
ENDSELECT.
LOOP AT INTUSR02.
CALL FUNCTION 'DELETE_USER_ON_DB'
EXPORTING USER = INTUSR02-BNAME
EXCEPTIONS OTHERS = 1.
CNTR = CNTR + 1.
ENDLOOP.
WRITE : / 'Users deleted ', CNTR.
TABLES: USR01, USR02, *USR02, USR04, *USR04.
TABLES: USR03, USR05, USGRP, USR08, USR09, USR30.
TABLES: USR10, USR11, USR12, *USR10, *USR12, USR13, *USR13, USR16.
TABLES: USH04, USH10, USH12, USH02.
TABLES: UST04, UST10C, UST10S, UST12.
TABLES: USRBF.
PARAMETER UGRP LIKE USR03-CLASS.
DATA: BEGIN OF INTUSR02 OCCURS 200,
BNAME LIKE USR02-BNAME,
END OF INTUSR02.
DATA: CNTR TYPE P VALUE 0.
SELECT * FROM USR02 WHERE CLASS = UGRP.
INTUSR02-BNAME = USR02-BNAME.
APPEND INTUSR02.
ENDSELECT.
LOOP AT INTUSR02.
CALL FUNCTION 'DELETE_USER_ON_DB'
EXPORTING USER = INTUSR02-BNAME
EXCEPTIONS OTHERS = 1.
CNTR = CNTR + 1.
ENDLOOP.
WRITE : / 'Users deleted ', CNTR.
相关文章推荐
- BASIS--使用DELETE_USER_ON_DB批量删除用户
- BASIS--使用DELETE_USER_ON_DB批量删除用户
- BASIS--使用DELETE_USER_ON_DB批量删除用户
- BASIS--使用DELETE_USER_ON_DB批量删除用户
- 第二章:Improving On User Commands--16.使用已删除的文档
- 在Linux中新增与删除用户可以使用命令:Useradd
- 用户管理脚本之删除用户――Delete_user.sh
- 无责任Windows Azure SDK .NET开发入门篇三[使用Azure AD 管理用户信息--3.5 Delete删除用户]
- 第二章:Improving On User Commands--16.使用已删除的文档
- PHP PDO MySql 用户删除userdelete.php
- 使用Exchange ActiveSync的域用户无法删除的问题
- 使用HttpContext的User属性来实现用户身份验证
- 使用SQL删除数据库里面用户创建表
- 使用Java API创建(create),查看(describe),列举(list),删除(delete)Kafka主题(Topic)--转载
- 使用CSS里的user-select属性控制用户在页面上选中的内容
- 使用DELETE与TRUNCATE删除表所有行的区别
- MySQL删除数据Delete与Truncate语句使用比较
- 如何使用 UserAccountControl 标志操纵用户帐户属性
- 无法删除 xxx:它正在被其它用户/程序使用Unlocker
- 使用call_usermodehelper在Linux内核中直接运行用户空间程序