檢查系統中被激活的用戶出口

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.