report zfindactexit .
tables: modsap,tfdir.
data : begin of itab_exit occurs 0,
funcname like tfdir-funcname,
mand like tfdir-mand,
name like modsap-name,
end of itab_exit .
data : field1(30).
select a~funcname a~mand b~name
into table itab_exit
from tfdir as a
inner join modsap as b
on a~funcname = b~member
where a~mand = 'C'
and a~funcname = b~member .
format color col_heading intensified on.
write:/1 sy-vline,
2 'Enhancement Name',
21 sy-vline ,
22 'Activated Exit Function',
95 sy-vline.
write:/(95) sy-uline.
loop at itab_exit.
format color col_normal intensified off.
write:/1 sy-vline,
2 itab_exit-name hotspot on,
21 sy-vline ,
22 itab_exit-funcname,
95 sy-vline.
endloop.
at line-selection.
get cursor field field1.
set parameter id 'MON' field sy-lisel+1(10).
call transaction 'SMOD' and skip first screen.
检查系统中被激活的用户出口
最新推荐文章于 2022-06-17 11:09:00 发布