SCRIPT:To check users current sql

To check users current sql:

select sql_text
from v$sqlarea
where (address, hash_value) in
(select sql_address, sql_hash_value
from v$session
where
username like '&username')