SAP ABAP ZBA_R002 查询用户下的角色

SAP 用户管理报表：查询用户下的角色

******************************************
* 查询用户下的角色(刘欣)
* 2013-5-3
* BASIS100@QQ.COM
*******表: AGR_TCODES     角色名:AGR_NAME    事务代码:TCODE (这个表在ZBA01中使用,ZBA02中没用)
*表: AGR_USERS      角色名:AGR_NAME     用户名:UNAME
*表: V_USERNAME     用户名:BNAME        完整的人员名称:NAME_TEXT
*表: AGR_TEXTS      角色名:AGR_NAME     角色说明:TEXT
******************************************
REPORT  ZBA_R002.TYPE-POOLS: SLIS,KCDE.
DATA: USERNAME(20) TYPE C,G_REPID TYPE SY-REPID,IT_EVENTS TYPE SLIS_T_EVENT,IT_FIELD TYPE SLIS_T_FIELDCAT_ALV,WA_FIELD TYPE SLIS_FIELDCAT_ALV,IT_SORT TYPE SLIS_T_SORTINFO_ALV.
INITIALIZATION.
G_REPID = SY-REPID.DATA:BEGIN OF ITAB OCCURS 0,UNAME TYPE AGR_USERS-UNAME,NAME_TEXT TYPE V_USERNAME-NAME_TEXT,AGR_NAME  TYPE AGR_USERS-AGR_NAME,TEXT TYPE AGR_TEXTS-TEXT,END OF ITAB.DATA  NAMETEXT TYPE AD_NAMTEXT.START-OF-SELECTION.SELECT-OPTIONS NAME FOR USERNAME NO INTERVALS.SELECT-OPTIONS ZHNAME FOR NAMETEXT NO INTERVALS.
END-OF-SELECTION.PERFORM TOSQL.
PERFORM SHOW_DATA.*---------------------------------------------------------------------
*      Form  SHOW_DATA
*---------------------------------------------------------------------FORM SHOW_DATA .DATA: WS_FIELDCAT        TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,WS_FIELDGROUPS_TAB TYPE SLIS_T_SP_GROUP_ALV,WS_LAYOUT          TYPE SLIS_LAYOUT_ALV,WS_SORTFIELDS_TAB  TYPE SLIS_T_SORTINFO_ALV WITH HEADER LINE,WS_EVENTS          TYPE SLIS_T_EVENT.DATA: NN TYPE I VALUE 0.DATA: TITLE TYPE LVC_TITLE.DATA: COLOR TYPE SLIS_T_SPECIALCOL_ALV WITH HEADER LINE.
*DEFINE HOUT.NN = NN + 1.WS_FIELDCAT-COL_POS       =  NN.WS_FIELDCAT-TABNAME       = 'ITAB'.WS_FIELDCAT-KEY           = &1.WS_FIELDCAT-FIELDNAME     = &2.WS_FIELDCAT-SELTEXT_M     = &3.WS_FIELDCAT-CFIELDNAME    = &4.WS_FIELDCAT-DATATYPE      = &5.WS_FIELDCAT-REF_TABNAME   = &6.WS_FIELDCAT-REF_FIELDNAME = &7.WS_FIELDCAT-DO_SUM        = &8.WS_FIELDCAT-HOTSPOT       = &9.APPEND WS_FIELDCAT.CLEAR WS_FIELDCAT.END-OF-DEFINITION.HOUT:''  'UNAME' '登录用户名'  ''  ''  ''  ''  ''  '',
''  'NAME_TEXT' '中文姓名'  ''  ''  ''  ''  ''  '',
'X'  'AGR_NAME' '角色'  ''  ''  ''  ''  ''  '',
'X'  'TEXT' '角色名称'  ''  ''  ''  ''  ''  ''.WS_LAYOUT-ZEBRA             = 'X'.WS_LAYOUT-GET_SELINFOS      = 'X'.WS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.WS_LAYOUT-DETAIL_POPUP      = 'X'.*******排序WS_SORTFIELDS_TAB-FIELDNAME = 'UNAME'.WS_SORTFIELDS_TAB-UP = 'X'.APPEND WS_SORTFIELDS_TAB.CLEAR WS_SORTFIELDS_TAB.CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'EXPORTINGI_CALLBACK_PROGRAM      = SY-REPIDI_CALLBACK_USER_COMMAND = 'USER_COMMAND'IS_LAYOUT               = WS_LAYOUTIT_FIELDCAT             = WS_FIELDCAT[]IT_SPECIAL_GROUPS       = WS_FIELDGROUPS_TAB[]IT_SORT                 = WS_SORTFIELDS_TAB[]IT_EVENTS               = WS_EVENTS[]I_GRID_TITLE            = TITLEI_DEFAULT               = 'X'I_SAVE                  = 'A'TABLEST_OUTTAB                = ITAB[]EXCEPTIONSPROGRAM_ERROR           = 1OTHERS                  = 2.ENDFORM.                    " OUTPUT_DATA*--------------------------------
* FORM TOSQL
*--------------------------------
FORM TOSQL.
SELECT DISTINCT AGR_USERS~AGR_NAME    AGR_USERS~UNAME    V_USERNAME~NAME_TEXT   AGR_TEXTS~TEXTINTO CORRESPONDING FIELDS OF TABLE ITABFROM AGR_USERSINNER JOIN V_USERNAME ON AGR_USERS~UNAME = V_USERNAME~BNAME       "加入用户全称INNER JOIN AGR_TEXTS ON  AGR_USERS~AGR_NAME = AGR_TEXTS~AGR_NAME     "加入角色说明WHERE AGR_USERS~UNAME IN NAME.
DELETE ADJACENT DUPLICATES FROM ITAB.SORT ITAB BY  UNAME AGR_NAME .
ENDFORM.

SAP ABAP ZBA_R002 查询用户下的角色相关推荐

SAP ABAP ZBA_R001 查询用户下的角色，事务代码
SAP用户管理报表: 查询用户下的角色,事务代码: ****************************************** * 查询用户下的角色,事务代码 * 作者:刘欣 * 2013- ...
【转发】SAP ABAP ZBA_R001 查询用户下的角色
****************************************** * 查询用户下的角色,事务代码 * 作者: 刘欣 * 2013-5-3 * basis100@qq.com * Q ...
SAP ABAP ZBA_R003 查询用户下的角色里的公司
查询用户下的角色里的公司 ****************************************** * 查询用户下的角色里的公司 * 作者:刘欣 * 2013-5-3 * BASIS100 ...
SAP ABAP SQL查询分析器
ABAP开发者是一个很不错的辅助工具!是国外人使用ABAP写的一个类似一SQL Server的查询分析器,支持多表联合查询,时时展示查询结果. 限制: 只支持Open SQL,不支持Native SQ ...
oracle查询用户权限和角色_详解jenkins配置用户角色权限的实现方法
概述今天介绍下jenkins应该怎么去配置用户角色权限,注意jenkins 配置用户角色权限需要安装插件 Role Strategy Plugin. 1.安装 Role Strategy Plugi ...
SAP ABAP 如何查询一个变量表里的变量被哪支程序使用到？
STVARV,维护了如下的变量 Z_PR_PO_PRICE_NO_CHNG, 如何知道该变量是在哪个增强或者用户出口里所调用? SE38 , 程序名字:RPR_ABAP_SOURCE_SCAN 执行, ...
SAP ABAP 模糊查询
where mara~ERSDA like '201911%' %:模糊查询 _ :精确查找
下拉框实现一 - SAP ABAP 报表选择屏幕下拉框的实现
DATA:vid TYPE vrm_id , "屏幕字段(可以是单个的I/O空间或者是Table Control中的一个单元格) list TYPE vrm_values ...
oracle查询用户下所有表名称
select * from all_tables where owner='YOUR_USERNAME';

SAP ABAP ZBA_R002 查询用户下的角色

SAP ABAP ZBA_R002 查询用户下的角色相关推荐

最新文章

热门文章