Get the sessions that are generating more archivelogs (writes on disk)

SELECT s.sid, s.serial#, s.username, s.program, i.block_changes FROM v$session s, v$sess_io i WHERE s.sid = i.sid ORDER by 5 desc