SAP ABAP ZBA_R001 查询用户下的角色，事务代码

SAP用户管理报表：查询用户下的角色，事务代码:

******************************************
* 查询用户下的角色，事务代码
* 作者：刘欣
* 2013-5-3
* BASIS100@QQ.COM
* QQ522929
******************************************
REPORT  ZBA_R001.
TYPE-POOLS: SLIS,KCDE.
*-----------内表定义--------------
DATA:BEGIN OF ITAB OCCURS 0,UNAME TYPE AGR_USERS-UNAME,          "用户名NAME_TEXT TYPE V_USERNAME-NAME_TEXT, "完整用户名称DEPARTMENT TYPE ADCP-DEPARTMENT,    "部门信息AGR_NAME  TYPE AGR_USERS-AGR_NAME,   "角色名TEXT TYPE AGR_TEXTS-TEXT,         "角色中文说明TCODE TYPE AGR_TCODES-TCODE,       "事务代码TTEXT TYPE TSTCT-TTEXT,           "代码说明END OF ITAB.DATA: USERNAME TYPE V_USERNAME-NAME_TEXT,TCODES  TYPE AGR_TCODES-TCODE,NAMETEXT TYPE AD_NAMTEXT,
*      DEPARTMENT TYPE ADCP~DEPARTMENT,"部门信息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.
*--------选择字段-----------------------
START-OF-SELECTION.SELECT-OPTIONS NAME FOR USERNAME NO INTERVALS.SELECT-OPTIONS ZHNAME FOR NAMETEXT NO INTERVALS.SELECT-OPTIONS CODES FOR TCODES  NO INTERVALS.
END-OF-SELECTION.*------执行-----------
PERFORM TOSQL.
PERFORM SHOW_DATA.
*--------------------------------
* 用户名，完整用户名称，部门名称,角色名，角色中文说明，事务代码,事务代码说明
*--------------------------------
FORM TOSQL.
SELECT DISTINCT  USR21~BNAME AS UNAME   V_USERNAME~NAME_TEXT  ADCP~DEPARTMENT  AGR_USERS~AGR_NAME    AGR_TEXTS~TEXT   AGR_TCODES~TCODE   TSTCT~TTEXTINTO CORRESPONDING FIELDS OF TABLE ITABFROM USR21INNER JOIN V_USERNAME       ON V_USERNAME~PERSNUMBER = USR21~PERSNUMBER "通过USR21的号码，连接用户信息表INNER JOIN ADCP      ON ADCP~PERSNUMBER = USR21~PERSNUMBER       "通过USR21的号码，连接部门表INNER JOIN AGR_USERS       ON AGR_USERS~UNAME = USR21~BNAME            "通过USR21的用户名，连接角色表INNER JOIN AGR_TEXTS   ON  AGR_TEXTS~AGR_NAME = AGR_USERS~AGR_NAME "通过角色名，加入角色中文说明表INNER JOIN AGR_TCODES   ON  AGR_TCODES~AGR_NAME = AGR_USERS~AGR_NAME "通过角色名，加入角色中文说明表INNER JOIN TSTCT   ON  TSTCT~TCODE = AGR_TCODES~TCODE "通过  表WHERE AGR_USERS~UNAME IN NAMEAND V_USERNAME~NAME_TEXT IN ZHNAMEAND AGR_TCODES~TCODE IN CODESAND AGR_TEXTS~LINE = '00000'AND TSTCT~SPRSL = '1'.DELETE ADJACENT DUPLICATES FROM ITAB.
SORT ITAB BY  UNAME AGR_NAME TCODE.
ENDFORM.*---------------------------------------------------------------------
*      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' '中文姓名'  ''  ''  ''  ''  ''  '',
''  'DEPARTMENT' '部门'  ''  ''  ''  ''  ''  '',
'X'  'AGR_NAME' '角色'  ''  ''  ''  ''  ''  '',
'X'  'TEXT' '角色名称'  ''  ''  ''  ''  ''  '',
'X'  'TCODE' '事务代码'  ''  ''  ''  ''  ''  '',
'X'  'TTEXT' '事务代码说明'  ''  ''  ''  ''  ''  ''.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

SAP ABAP ZBA_R001 查询用户下的角色，事务代码相关推荐

【转发】SAP ABAP ZBA_R001 查询用户下的角色
****************************************** * 查询用户下的角色,事务代码 * 作者: 刘欣 * 2013-5-3 * basis100@qq.com * Q ...
SAP ABAP ZBA_R002 查询用户下的角色
SAP 用户管理报表:查询用户下的角色 ****************************************** * 查询用户下的角色(刘欣) * 2013-5-3 * BASIS100 ...
SAP ABAP ZBA_R003 查询用户下的角色里的公司
查询用户下的角色里的公司 ****************************************** * 查询用户下的角色里的公司 * 作者:刘欣 * 2013-5-3 * BASIS100 ...
SAP MM 史上最偷懒的盘点事务代码MI10
SAP MM 史上最偷懒的盘点事务代码MI10 SAP标准的盘点流程是:创建盘点凭证,打印盘点凭证,录入盘点结果,最后对差异部分清账处理.这个标准流程在企业实操的时候,显得太复杂,业务人员在系统上操作 ...
SAP批量维护库存地点，隐藏的事务代码MMSC_MASS
SAP批量维护库存地点,隐藏的事务代码MMSC_MASS 可以批量扩充库存地点. 事务代码:MMSC_MASS ,就是MMSC的批量版本,未挂在SAP的功能菜单上.通过事务码直接调用
查询SAP表维护视图(Table Maintenance)对应的事务代码(T-CODE)
1. 表与表的维护视图在表 TVDIR 中,可以查找一个表.视图是否生成了对应的维护视图. 例如,对于视图V_T012,可以在TVDIR中找到对应的一条记录.这就意味着,V_T012已经生成了对应的 ...
Query查询(SQ01/SQ02/SQ03)分配事务代码（T-CODE）
文章目录一.概述二.方式1:报表事物类型 - ZA367_Q001 2.1 Query查询对应的程序名 2.2 分配事物代码三.方式2:参数事物类型 - ZA367_Q001_START 四.两 ...
SAP ABAP SQL查询分析器
ABAP开发者是一个很不错的辅助工具!是国外人使用ABAP写的一个类似一SQL Server的查询分析器,支持多表联合查询,时时展示查询结果. 限制: 只支持Open SQL,不支持Native SQ ...
oracle查询用户权限和角色_详解jenkins配置用户角色权限的实现方法
概述今天介绍下jenkins应该怎么去配置用户角色权限,注意jenkins 配置用户角色权限需要安装插件 Role Strategy Plugin. 1.安装 Role Strategy Plugi ...

SAP ABAP ZBA_R001 查询用户下的角色，事务代码

SAP ABAP ZBA_R001 查询用户下的角色，事务代码相关推荐

最新文章

热门文章