Quick Script Monitors Application-generated SQL

To use it, simply replace MyProgram with your program's name.

while true; do
sqlplus -S system/oracle  <<!

set feedback off
set verify off
set heading off


select a.piece, a.sql_text from v\$sqltext a, v\$session b
where b.program like 'MyProgram'
and a.address = HEXTORAW(b.sql_address)
and a.hash_value = b.sql_hash_value
order by a.piece;
!
done