批量删除用户,出具审计,并批量恢复用户。
ZUSER_COPY复制三个表数据
ZUSER01 批量删除
ZUSER_UPLOAD 创建
*&---------------------------------------------------------------------*
*& Report ZUSER_COPY
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zuser_copy.
TABLES: usr02 ,zusr02,
usr05,zusr05,
agr_users,zagr_users,
adrp,zadrp,
adcp,zadcp,
usr21,zusr21 ,
smen_buffc ,zsmen_buffc.
DATA :lt_zusr02 LIKE STANDARD TABLE OF zusr02 WITH HEADER LINE .
DATA :lt_zusr05 LIKE STANDARD TABLE OF zusr05 WITH HEADER LINE.
DATA :lt_zagr_users LIKE STANDARD TABLE OF zagr_users WITH HEADER LINE.
DATA :lt_zadrp LIKE STANDARD TABLE OF zadrp WITH HEADER LINE.
DATA :lt_zadcp LIKE STANDARD TABLE OF zadcp WITH HEADER LINE.
DATA :lt_zusr21 LIKE STANDARD TABLE OF zusr21 WITH HEADER LINE.
DATA :lt_zsmen_buffc LIKE STANDARD TABLE OF zsmen_buffc WITH HEADER LINE.
*DATA :lt_zuser_addr LIKE STANDARD TABLE OF zuser_addr WITH HEADER LINE.
CLEAR: lt_zusr02 ,lt_zusr05,lt_zagr_users,lt_zadcp,lt_zadrp,lt_zusr21,lt_zsmen_buffc.
SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_zusr02 FROM usr02 .
SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_zusr05 FROM usr05 .
SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_zagr_users FROM agr_users .
SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_zadrp FROM adrp .
SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_zadcp FROM adcp .
SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_zusr21 FROM usr21 .
SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_zsmen_buffc FROM smen_buffc .
*SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_zuser_addr FROM user_addr .
DELETE FROM zusr02.
DELETE FROM zusr05.
DELETE FROM zagr_users.
DELETE FROM Zadrp.
DELETE FROM Zadcp.
DELETE FROM Zusr21.
DELETE FROM Zsmen_buffc.
COMMIT WORK AND WAIT.
*DELETE FROM Zuser_addr.
INSERT zusr02 FROM TABLE lt_zusr02.
IF sy-subrc = 0 .
WRITE:'ZUSR02 更新成功 '.
ELSE.
WRITE:'ZUSR02 更新失败'.
ENDIF.
INSERT zusr05 FROM TABLE lt_zusr05.
IF sy-subrc = 0 .
WRITE:'ZUSR05 更新成功 '.
ELSE.
WRITE:'ZUSR05 更新失败'.
ENDIF.
INSERT zagr_users FROM TABLE lt_zagr_users.
IF sy-subrc = 0 .
WRITE:'ZAGR_USERS 更新成功 '.
ELSE.
WRITE:'ZAGR_USERS 更新失败'.
ENDIF.
INSERT zadrp FROM