1.根据你的过程
alter system set events '10046 trace name context forever, level 12';
exec 你的过程;
alter system set events '10046 trace name context off';
2.找出你的跟踪日志
SELECT d.VALUE
|| '/'
|| LOWER (RTRIM (i.INSTANCE, CHR (0)))
|| '_ora_'
|| p.spid
|| '.trc' trace_file_name
FROM (SELECT p.spid
FROM v$mystat m, v$session s, v$process p
WHERE m.statistic# = 1 AND s.SID = m.SID AND p.addr = s.paddr) p,
(SELECT t.INSTANCE
FROM v$thread t, v$parameter v
WHERE v.NAME = 'thread'
AND (v.VALUE = 0 OR t.thread# = TO_NUMBER (v.VALUE))) i,
(SELECT VALUE
FROM v$parameter
WHERE NAME = 'user_dump_dest') d
/
SQL>set trimout on;
SQL>set heading off;
SQL>set pagesize 0;
SQL>spool on;
SQL>spool '你的文件路径';
SQL>select text from user_source where name in ('P1', 'P2','P3',....) order by name asc, line asc;
SQL>spool off;