Query to see total PGA memory used by the instance

select sn.name, sum(s.value)
from v$sesstat s, v$statname sn
where s.statistic# = sn.statistic#
and sn.name like '%pga%'
group by sn.name