REPORT Z1 .

DATA: V_TRDIR LIKE TRDIR.

PARAMETERS: NAMEPROG LIKE SY-REPID OBLIGATORY.


START-OF-SELECTION.

CLEAR: V_TRDIR.
SELECT SINGLE * INTO V_TRDIR
      FROM TRDIR
      WHERE NAME = NAMEPROG.

IF NOT V_TRDIR-NAME IS INITIAL.
  V_TRDIR-EDTX = SPACE.
  MODIFY TRDIR FROM V_TRDIR.
  COMMIT WORK AND WAIT.
  WRITE:/ NAMEPROG, ' OK'.
ELSE.
  WRITE:/ NAMEPROG, ' Oшибка'.
ENDIF.