DATA : WA_T001 TYPE T001,
IT_T001 TYPE TABALE OF T001.
WA_T001-BUKRS = ‘E001’.
WA_T001-BUTXT = ‘EMAX TECHNOLOGY’.
WA_T001-ORT01 = ‘HYD’.
APPEND WA_T001 TO IT_T001.
WA_T001-BUKRS = ‘E001’.
WA_T001-BUTXT = ‘EMAX TECHNOLOGY’.
WA_T001-ORT01 = ‘HYD’.
INSERT T001 FROM TABLE IT_T001 ACCEPTING DUPLICATE KEYS.
WRITE : / ‘NO OF RECORDS INSERTED SUCCESSFUL’, SY-DBCNT COLOR 1.
UPDATE T001 SET LAND1 = ‘IN’ WHERE BUKRS IN (‘E001’, ‘I001’).
WRITE : / ‘NO OF RECORDS INSERTED UPDATED’, SY-DBCNT COLOR 1.
DELETE FROM T001 WHERE BUKRS IN (‘E001’,’I001’), SY-DBCNT COLOR 1.
COMMIT WORK.
ROLLBACK WORK.