SE38 에서 편집기 잠금 해제하는 법 (Editor Lock/Unlock)

ABAP Source 수정을 하다보면 가끔씩 아래와 같이 메시지가 뜨면서, 수정모드가 안열리 경우가 있다.

[원인 : 누군가가 SE38 에서 편집기잠금 을 설정해 놓았을 가능성이 크다]

이 상태일 때, 이동탭-속성을 확인해 보면,

편집기잠금이 '체크' 되어 있을 것이다...

그리고 테이블 (시스템테이블 TRDIR) 을 확인해 보면,

EDTX 필드의 값이 'X' 로 들어가 있을 것이고...

해결할 수 있는, 간단한 레포트 소스는 아래와 같다.

(소스 전문)

REPORT  zlock_editor.

TABLES: trdir. "System table TRDIR

PARAMETERS: program LIKE trdir-name.
PARAMETERS: editor LIKE trdir-edtx.


SELECT SINGLE *
  FROM trdir
 WHERE name = program.

trdir-edtx = editor.

MODIFY trdir.

IF sy-subrc EQ 0.
  WRITE: / editor, 'Lock Update Successful ', trdir-name.

  IF trdir-edtx = 'x'.
    WRITE: ' Lock'.
  ELSE.
    WRITE: ' Unlock'.
  ENDIF.

ELSE.
  WRITE: / editor, 'Lock Update Unsuccessful ', trdir-name.

ENDIF.