*&---------------------------------------------------------------------*
*& Report Z08_05
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT z08_05.

DATA ls_trdir TYPE trdir.
PARAMETERS: p_prog TYPE trdir-name OBLIGATORY.

START-OF-SELECTION.

  SELECT SINGLE *
    FROM trdir
    WHERE name EQ @p_prog
    INTO CORRESPONDING FIELDS OF @ls_trdir.

  IF sy-subrc EQ 0.
    IF ls_trdir-edtx EQ 'X'.
      CLEAR ls_trdir-edtx.
      MODIFY trdir FROM ls_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.
  ENDIF.