Script to find rollback segment used

set lines 1000 pages 1000
col RBS format a20
col sid format 9999
col user format a28
col status format a12

SELECT r.name “RBS”, s.sid, s.serial#, s.username “USER”, t.status,
t.cr_get, t.phy_io, t.used_ublk, t.noundo
— ,substr(s.program, 1, 78) “COMMAND”
FROM sys.v_$session s, sys.v_$transaction t, sys.v_$rollname r
WHERE t.addr = s.taddr
and t.xidusn = r.usn
ORDER BY 1
/