DELETE 循环中删除某条数据

*&---------------------------------------------------------------------*
*& Report ZZTEST
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZZTEST.

TYPES:BEGIN OF TY_EKKO,
        EBELN TYPE EKKO-EBELN,
        BUKRS TYPE EKKO-BUKRS,
      END OF TY_EKKO.

DATA :GT_OUT TYPE STANDARD TABLE OF TY_EKKO,
      GS_OUT TYPE TY_EKKO.


DATA LV_TABIX  TYPE SY-INDEX.




GS_OUT-EBELN = '0000000002'.
GS_OUT-BUKRS = '0002'.
APPEND GS_OUT TO GT_OUT.
CLEAR GS_OUT.



GS_OUT-EBELN = '0000000003'.
GS_OUT-BUKRS = '0002'.
APPEND GS_OUT TO GT_OUT.
CLEAR GS_OUT.

GS_OUT-EBELN = '0000000001'.
GS_OUT-BUKRS = '0001'.
APPEND GS_OUT TO GT_OUT.
CLEAR GS_OUT.

LOOP AT GT_OUT INTO GS_OUT.

  LV_TABIX = SY-TABIX.

  IF GS_OUT-BUKRS <> '0001'.
    DELETE GT_OUT INDEX LV_TABIX.
    CONTINUE.
  ENDIF.

  IF GS_OUT-BUKRS = '0001'.
    GS_OUT-BUKRS = '001A'.
  ENDIF.

  MODIFY GT_OUT FROM GS_OUT.
  CLEAR GS_OUT.
ENDLOOP.


BREAK-POINT.