공휴일에 긴급하게 프로그램 수정해야 할 경우, 다른 개발자가 프로그램을 변경중이라면, 프로그램
Editor가 LOCK이 설정되어 있다. 이 경우에는 예제 프로그램을 수행하여 LOCK을 해지하자.

REPORT  Z11_008                                                     .
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.
  ENDIF.