実行中SQLを表示

時間がかかるプロシージャで、コミットもログ出力も最後に１回だと、
ログや更新済みデータからはプロシージャの進捗わからない。
そこで、実行中のSQLを直接取得して進捗を見る。

 SELECT
   USERNAME, OSUSER, MACHINE, TERMINAL, PROGRAM,
   SID, SERIAL#,
   STATUS,
   SQL_ADDRESS, SQL_TEXT
 FROM V$SESSION S, V$SQLTEXT Q
 WHERE TYPE = 'USER'
   AND S.SQL_ADDRESS = Q.ADDRESS
 ORDER BY S.SID, S.SERIAL#, Q.PIECE;