加锁解锁abap程序的简单代码

选择屏幕：

选中表示程序加锁  不选表示解锁程序

程序效果：


主程序代码：

1. *&---------------------------------------------------------------------*
   
2. *& Report  ZDEMON_031
   
3. *&
   
4. *&---------------------------------------------------------------------*
   
5. *&
   
6. *&
   
7. *&---------------------------------------------------------------------*
   
8. 
   
9. REPORT  ZDEMON_031.
   
10. TABLES: TRDIR. "System table TRDIR
    
11. 
    
12. PARAMETERS: PROGRAM LIKE TRDIR-NAME."ABAP Program Name
    
13. PARAMETERS: EDITOR  LIKE TRDIR-EDTX."Editor lock flag
    
14. 
    
15. SELECT SINGLE * FROM TRDIR WHERE NAME = PROGRAM.
    
16. 
    
17. TRDIR-EDTX = EDITOR.
    
18. MODIFY TRDIR.
    
19. IF SY-SUBRC EQ 0.
    
20.    WRITE: / 'Editor Lock update Successful ', TRDIR-NAME.
    
21.    IF TRDIR-EDTX = 'X'.
    
22.       WRITE: ' Lock'.
    
23.    ELSE.
    
24.       WRITE: ' UnLock'.
    
25.    ENDIF.
    
26. ELSE.
    
27.    WRITE: / 'Editor Lock update Unsuccessful ', TRDIR-NAME.
    
28. ENDIF.

复制代码

好像没什么用啊