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.
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.
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
127 | 새로운 Session을 생성하는 방법 [7] | 양키 | 2013.07.17 | 4961 |
126 | SCN에서 인기있는 Tutorial강좌들 입니다. [1] | 양키 | 2013.08.12 | 8420 |
125 | [덤프해결] CX_SY_READ_SRC_LINE_TOO_LONG | 양키 | 2013.08.16 | 7813 |
124 | Field Catalog 가져오지 못하는문제(REUSE_ALV_FIELDCATALOG_MERGE) [3] | 양키 | 2013.08.16 | 9558 |
123 | 메세지 팝업창 뛰워주는 Function [2] | 양키 | 2013.08.19 | 7921 |
122 | zebra printer 상세 사용메뉴얼입니다. | 양키 | 2013.08.26 | 3745 |
121 | 입력 필드 입력 중 이력이 지원되지 않는 문제 해결법. [1] | 장용천 | 2013.09.03 | 8598 |
120 | REM TABLE1 | 밤의화신 | 2013.09.11 | 2867 |
119 | REM TABLE2 | 밤의화신 | 2013.09.11 | 2819 |
118 | REM TABLE3 | 밤의화신 | 2013.09.11 | 2657 |
117 | REM PROCESS1 | 밤의화신 | 2013.09.11 | 5401 |
116 | REM PROCESS2 [1] | 밤의화신 | 2013.09.11 | 4497 |
115 | ABAP 교육 [13] | 밤의화신 | 2013.09.11 | 8491 |
114 | ABAP 교육 [32] | 밤의화신 | 2013.09.11 | 8495 |
113 | ABAP 교육 [12] | 밤의화신 | 2013.09.11 | 7289 |
112 | ABAP 교육 [6] | 밤의화신 | 2013.09.11 | 7274 |
111 | ABAP 교육 [6] | 밤의화신 | 2013.09.11 | 7199 |
110 | ABAP 교육 [9] | 밤의화신 | 2013.09.11 | 7388 |
109 | ABAP 교육 [13] | 밤의화신 | 2013.09.11 | 8361 |
108 | 요약파일1 [7] | 밤의화신 | 2013.09.11 | 8040 |