REPORT  z08_05.

TABLES : trdir.

PARAMETERS: p_prog LIKE trdir-name OBLIGATORY.

START-OF-SELECTION.

  SELECT SINGLE * FROM trdir WHERE name = p_prog.

  IF sy-subrc = 0.

       IF trdir-edtx = 'X'.

          MOVE ' ' TO trdir-edtx.

          MODIFY trdir.

          WRITE: /'Editor Lock was removed from', p_prog.

       ELSE.

           WRITE: /'Program', p_prog, 'does not have an Editor Lock'.

       ENDIF.

  ELSE.

       WRITE: /'No match found for program', p_prog.