查询账号的权限
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.