说明

程序

*&---------------------------------------------------------------------*
*& Report Z_TEST_1008
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z_TEST_1008.
DATA : GS_DATA TYPE ZTESTLHY,GT_DATA TYPE TABLE OF ZTESTLHY.
DATA: GT_DATA1 TYPE TABLE OF ZTESTLHY.
SELECT * FROM ZTESTLHY INTO TABLE @GT_DATA.
MOVE GT_DATA TO  GT_DATA1.
LOOP AT GT_DATA ASSIGNING FIELD-SYMBOL(<FS_DATA>).IF <FS_DATA>-NAME = 'TOM' OR <FS_DATA>-NAME = '小夏' OR <FS_DATA>-NAME = '小花'.<FS_DATA>-GENDER = 'F'.ENDIF.
ENDLOOP.
DELETE GT_DATA WHERE NAME = '小雷'.
DELETE GT_DATA1 WHERE GENDER = '男' OR GENDER = 'F'.
UPDATE ZTESTLHY FROM TABLE GT_DATA.
IF SY-SUBRC = 0.WRITE:'修改成功'.
ENDIF.
DELETE ZTESTLHY FROM TABLE GT_DATA1.
DELETE ZTESTLHY WHERE GENDER = 'F'.
IF SY-SUBRC = 0.WRITE:'删除成功'.
ENDIF.

测试结果