二维码

[lock] 加锁解锁abap程序的简单代码

Twilight发表于 2014-03-16 21:02zhongguomao 最后回复于 2017-11-17 14:30 [复制链接] 1254 1

选择屏幕
加锁解锁选择屏幕.jpg
选中表示程序加锁  不选表示解锁程序

程序效果:
加锁解锁效果屏幕.jpg

主程序代码:
  1. *&---------------------------------------------------------------------*
  2. *& Report  ZDEMON_031
  3. *&
  4. *&---------------------------------------------------------------------*
  5. *&
  6. *&
  7. *&---------------------------------------------------------------------*

  8. REPORT  ZDEMON_031.
  9. TABLES: TRDIR. "System table TRDIR

  10. PARAMETERS: PROGRAM LIKE TRDIR-NAME."ABAP Program Name
  11. PARAMETERS: EDITOR  LIKE TRDIR-EDTX."Editor lock flag

  12. SELECT SINGLE * FROM TRDIR WHERE NAME = PROGRAM.

  13. TRDIR-EDTX = EDITOR.
  14. MODIFY TRDIR.
  15. IF SY-SUBRC EQ 0.
  16.    WRITE: / 'Editor Lock update Successful ', TRDIR-NAME.
  17.    IF TRDIR-EDTX = 'X'.
  18.       WRITE: ' Lock'.
  19.    ELSE.
  20.       WRITE: ' UnLock'.
  21.    ENDIF.
  22. ELSE.
  23.    WRITE: / 'Editor Lock update Unsuccessful ', TRDIR-NAME.
  24. ENDIF.
复制代码
回复

使用道具 举报

zhongguomao
好像没什么用啊
回复 支持 反对

使用道具 举报

快速回帖

本版积分规则
您需要登录后才可以回帖 登录 | 注册有礼

快速回复 返回顶部 返回列表