set heading off
spool shrink.sql
select 'alter rollback segment ' || '"' || d.segment_name ||'"' || 
       ' shrink to 1K;'
from v$rollname n, v$rollstat s, sys.dba_rollback_segs d
where n.usn = s.usn
and   d.segment_name = n.name(+)
and   d.segment_name <> 'SYSTEM';
spool off
@@shrink.sql
