Contagem do open_cursor

O script abaixo relata a contagem do open_cursor em nível de seção, que pode ser uma informação útil ao realizarmos o tuning do parâmetro open_cursor (em ambientes onde as mudanças da aplicação são freqüentes):

select substr(a.sid,1,10) sid,
substr(nvl(b.program,machine),1,30) program,
count(*)
from v$open_cursor a, v$session b
where a.saddr=b.saddr
group by substr(a.sid,1,10),
substr(nvl(b.program,machine),1,30)
order by 3 desc ;