set verify off
set feedback off
column shared_sql new_value sql_shared noprint
column shared_plsql new_value plsql_shared noprint
column avg_mem new_value max_sess_mem noprint
set termout off
	select avg ( value ) avg_mem
from v$sesstat s, v$statname n
	where s.statistic# = n.statistic#  
	and n.name = 'session uga memory max';
	select sum(sharable_mem) shared_sql
from v$sqlarea; 
	select sum(sharable_mem) shared_plsql
from v$db_object_cache; 
set termout on
select ( &max_sess_mem * &users_no + &sql_shared + &plsql_shared ) * 1.3 pool_size
from dual;
