关闭

ABAP程序 加锁/解锁

74人阅读 评论(0) 收藏 举报
分类:

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.

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:450次
    • 积分:24
    • 等级:
    • 排名:千里之外
    • 原创:2篇
    • 转载:1篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档