SAP:SU21 的替代程序

事务码 SU21 可以用来维护权限对象，但是它有一个致命缺陷，就是必须先找对象分类，然后双击进入某个分类才可以看到具体权限对象，如果我们不知道权限对象在哪个分类里，查找就很困难了。

下面的程序直接读出所有的权限对象，显示到 LIST 中，用系统工具栏上的搜索功能就可以快速查找所需的权限对象。

 

1. REPORT  zsu21 LINE-SIZE 86.
3. TABLES: tobj, tobjt.
4. DATA: itvl type i.
6. FORMAT COLOR 1.
7. WRITE:/1 sy-vline, 3 'Object'(c01), 14 sy-vline, 16 'Description'(c02), 78 sy-vline, 80 'Class', 86 sy-vline.
8. ULINE.
9. itvl = 0.
10. FORMAT INTENSIFIED OFF.
11. SELECT * FROM tobj.
12.   IF itvl EQ 0.
13.     FORMAT COLOR 4.
14.   ELSE.
15.     FORMAT COLOR 2.
16.   ENDIF.
17.   SELECT SINGLE * FROM tobjt WHERE object = tobj-objct AND langu = sy-langu.
18.   WRITE:/1 sy-vline, 3 tobj-objct, 14 sy-vline, 16 tobjt-ttext, 78 sy-vline, 80 tobj-oclss, 86 sy-vline.
19.   HIDE: tobj-objct.
20.   itvl = 1 - itvl.
21. ENDSELECT.
22. ULINE.
23. CLEAR tobj.
25. AT LINE-SELECTION.
26.   IF tobj-objct EQ space.
27.     CALL FUNCTION 'SUSR_ADD_OBJECT'
28.       EXPORTING
29.         OBJECT        = ' '
30.         OCLASS        = ' '
31.         EU_MODE       = ' '
32. *      IMPORTING
33. *        OBJECT        =
34. *        OCLASS        =
35.               .
36.   ELSE.
37.     CALL FUNCTION 'SUSR_SHOW_OBJECT'
38.       EXPORTING
39.         object  = tobj-objct
40.         eu_mode = 'X'.
41.   ENDIF.