DECLARE
  l_sid NUMBER := :SID;
BEGIN
  FOR cur_sql IN (SELECT sql_text
                    FROM v$sqltext_with_newlines t
                   WHERE t.address IN (SELECT s.prev_sql_addr
                                         FROM v$session s
                                        WHERE s.sid = l_sid
                                       UNION
                                       SELECT s.sql_address --如果查询时间很短，可能存在sql_address中
                                         FROM v$session s
                                        WHERE s.sid = l_sid)
                   ORDER BY t.piece) LOOP
    dbms_output.put_line(cur_sql.sql_text);
  END LOOP;
END;