SAP查询账号的权限的程序

查询账号的权限

REPORT zhello.

TABLES: agr_tcodes, AGR_TEXTS, agr_users, tstct.

DATA: BEGIN OF item OCCURS 0,
  bname LIKE user_addr-bname,"账号
  name_textc LIKE user_addr-name_textc,"账号描述
  agr_name LIKE AGR_TEXTS-agr_name, "角色
  text LIKE AGR_TEXTS-text, "角色名称
  tcode LIKE agr_tcodes-tcode,"事务代码
  ttext LIKE tstct-ttext,"事务代码描述
  END OF item.

SELECT
  user_addr~bname
  user_addr~name_textc
  AGR_TEXTS~agr_name
  AGR_TEXTS~text
  agr_tcodes~tcode
  tstct~ttext
  INTO CORRESPONDING FIELDS OF TABLE item
  FROM user_addr
  INNER JOIN agr_users on agr_users~uname = user_addr~bname
  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 agr_tcodes~tcode = tstct~tcode
  WHERE agr_users~agr_name LIKE 'Z%'
  AND tstct~SPRSL = '1'
  AND agr_texts~SPRAS = '1'.

  BREAK-POINT.