REPORT ZLOCAL_RELEASE_ROLL_BACK.
TABLES : E070.

DATA : IE070 LIKE E070 OCCURS 0 WITH HEADER LINE.
DATA : NAME TYPE CHAR10.

PARAMETERS : TRKORR LIKE E070-TRKORR OBLIGATORY.

SELECT * FROM E070
WHERE TRKORR = TRKORR
OR STRKORR = TRKORR.

   E070-TRSTATUS = 'D'.

   MODIFY E070.

   IF SY-SUBRC = 0.
     WRITE : / E070-TRKORR, E070-STRKORR, 'OK'.
   ELSE.
     WRITE : / E070-TRKORR, E070-STRKORR, 'Error'.
   ENDIF.

ENDSELECT.