Find the current SQL in the database

select username, sql_text from v$session s, v$sqlarea sql where s.sql_address = sql.address and s.sql_hash_value = sql.hash_value;