直接从agr_usrs 里面删除新的
*&---------------------------------------------------------------------*
*& Report ZRPT_BC_ROLEASSIGN_RM_DUP
*&---------------------------------------------------------------------*
*&角色授权去重
*&---------------------------------------------------------------------*
REPORT ZRPT_BC_ROLEASSIGN_RM_DUP.SELECT AGR_NAME,UNAME,FROM_DAT,TO_DAT
FROM AGR_USERS WHERE AGR_NAME LIKE 'Z%'
ORDER BY AGR_NAME,UNAME,FROM_DAT
INTO TABLE @DATA(LTAGRUSER).DATA:LTDELTAB LIKE TABLE OF AGR_USERS WITH HEADER LINE.
DATA:LSDEL TYPE AGR_USERS.
DATA:PINDEX TYPE I.
DATA:TMPTO TYPE I.
DATA:TMPEND TYPE I.
DATA:CNT TYPE I.
DESCRIBE TABLE LTAGRUSER[] LINES CNT.
LOOP AT LTAGRUSER INTO DATA(LSTMP).PINDEX = SY-TABIX + 1.TMPTO = PINDEX + 10.IF TMPTO > CNT.TMPTO = CNT.ENDIF.LOOP AT LTAGRUSER INTO DATA(LSTMP1) FROM PINDEX TO TMPTO.IF LSTMP1-AGR_NAME = LSTMP-AGR_NAME AND LSTMP1-UNAME = LSTMP-UNAME AND LSTMP1-FROM_DAT > LSTMP-FROM_DAT.MOVE-CORRESPONDING LSTMP1 TO LSDEL.APPEND LSDEL TO LTDELTAB[].ENDIF.ENDLOOP.
ENDLOOP.DELETE AGR_USERS FROM TABLE LTDELTAB[].
