ABAP程序 加锁/解锁

REPORT ZEDITOR.

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.


已标记关键词 清除标记
©️2020 CSDN 皮肤主题: 编程工作室 设计师:CSDN官方博客 返回首页