使用DELETE_USER_ON_DB批量删除用户-技术开发专区

使用DELETE_USER_ON_DB批量删除用户

作者：SAP网络编辑：李倩 2009-08-07 10:10 来源：IT168�

【IT168 技术文章】

    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.

关注我们