Query to find the session that is generating more Archives

 col program for a10

col username for a10

select to_char(sysdate,’hh24:mi’), username, program , a.sid, a.serial#, b.name, c.value
from v$session a, v$statname b, v$sesstat c

where b.STATISTIC# =c.STATISTIC#

and c.sid=a.sid and b.name like ‘redo%’
order by value;