权限对象和配置文件列表报表
来源:互联网 发布:蛙泳 知乎 编辑:程序博客网 时间:2024/05/29 12:31
REPORT zusrak07.
TABLES: usr01, usr03, usr04, usr02, rfcdes,
usr05, usr10, usr11, usr12, usr13, ust10c, ust10s, ust12.
SELECT-OPTIONS: usrprof FOR usr11-profn.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN ULINE.
SELECTION-SCREEN SKIP.
PARAMETERS: yes_auth RADIOBUTTON GROUP grp1,
no_auth RADIOBUTTON GROUP grp1.
DATA: counter TYPE i,
count_auth TYPE i,
coun TYPE i,
counttmp TYPE i,
proftmp LIKE usr12-auth,
authtmp LIKE usr12-auth,
auth LIKE usr12-auth OCCURS 10 WITH HEADER LINE.
DATA: BEGIN OF itab_profchk OCCURS 0,
profchk LIKE usr10-profn.
DATA: END OF itab_profchk.
SELECT * FROM usr11 WHERE profn IN usrprof.
MOVE usr11-profn TO itab_profchk-profchk.
APPEND itab_profchk.
ENDSELECT.
WRITE : / 'Legend :', '1st level profile'.
WRITE AT /10 '2nd level profile' COLOR 5.
WRITE AT /10 '3rd level profile' COLOR 4.
WRITE AT /10 '4th level profile' COLOR 3.
WRITE AT /10 'authorizations' COLOR 7.
SORT itab_profchk.
DELETE ADJACENT DUPLICATES FROM itab_profchk.
PERFORM profchk.
*---------------------------------------------------------------------*
* FORM PROFCHK *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM profchk.
LOOP AT itab_profchk.
SELECT SINGLE * FROM usr10 WHERE profn = itab_profchk.
SELECT SINGLE * FROM usr11 WHERE profn = itab_profchk.
ULINE.
WRITE:/ 'Root profile : ' COLOR 6.
WRITE:/ itab_profchk-profchk, usr11-ptext.
IF usr10-typ = 'C'.
counter = 0.
PERFORM recursive USING itab_profchk-profchk 5.
ENDIF.
IF NOT yes_auth IS INITIAL.
IF usr10-typ = 'S'.
SELECT * FROM ust10s WHERE profn = itab_profchk.
SELECT SINGLE * FROM usr13 WHERE auth = ust10s-auth.
WRITE AT /5 ust10s-auth COLOR 7.
counttmp = coun + 15.
WRITE AT 30 usr13-atext COLOR 7.
ENDSELECT.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM. "profchk
*---------------------------------------------------------------------*
* FORM RECURSIVE *
*---------------------------------------------------------------------*
* --> PROFILE *
* --> COUNTERA *
*---------------------------------------------------------------------*
FORM recursive USING profile LIKE usr12-auth countera TYPE i.
counter = counter + countera.
SELECT * FROM ust10c WHERE profn = profile.
CASE counter.
WHEN 5.
WRITE AT /counter ust10c-subprof COLOR 5.
WHEN 10.
WRITE AT /counter ust10c-subprof COLOR 4.
WHEN 15.
WRITE AT /counter ust10c-subprof COLOR 3.
ENDCASE.
MOVE ust10c-subprof TO proftmp.
SELECT SINGLE * FROM usr10 WHERE profn = proftmp.
IF usr10-typ = 'C'.
PERFORM recursive USING proftmp 5.
ENDIF.
IF NOT yes_auth IS INITIAL.
IF usr10-typ = 'S'.
SELECT * FROM ust10s WHERE profn = proftmp.
SELECT SINGLE * FROM usr13 WHERE auth = ust10s-auth.
coun = counter + 5.
WRITE AT /coun ust10s-auth COLOR 7.
counttmp = coun + 15.
WRITE AT counttmp usr13-atext COLOR 7.
ENDSELECT.
coun = 0.
ENDIF.
ENDIF.
ENDSELECT.
counter = 5.
ENDFORM. "recursive
Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=1349297
- 权限对象和配置文件列表报表
- 权限对象和配置文件列表报表
- 权限对象和配置文件列表报表
- 获取报表列表和预览报表
- 工作流和并发报表配置文件优化
- Oracle 用户、对象权限、系统权限、角色、配置文件
- 系统对象和对象权限
- Oracle中的系统权限和对象权限
- oracle中的系统权限和对象权限
- Oracle中系统权限和对象权限
- 系统权限和对象权限简析
- oracle 系统权限和对象权限
- 配置文件列表
- android 权限列表 和 理解与使用自定义权限
- android 权限列表 和 理解与使用自定义权限
- oracle角色权限,系统权限和对象权限
- 权限列表
- 权限列表
- 如何设计ABAP/4 Query报表
- SAP Basis 常用事务码
- SAP的架构
- 获取SAP标准函数的说明(含参数和异常)
- 锁定/解锁所有用户
- 权限对象和配置文件列表报表
- 许多的sap网站
- Java Media Framework 基础教程(二)
- 如何使用BADI修改PO (processing to ME21N )
- Inbound IDOC Status Report for Sales Orders
- GL A/C posting using BAPI_ACC_GL_POSTING_POST.
- 如何提高读取BSEG的性能(sap已清项和未清项的提取)
- 插值
- SAP BOM的读取逻辑