set pages 100
col sid for 9999
select a.sid, a.username, b.block_changes
from v$session a, v$sess_io b
where a.sid(+) = b.sid
and b.block_changes > 5000
order by 3;
