@?/rdbms/admin/proftab

create or replace procedure p1 as
n number;
begin
for i in 1..100000 loop
select 1 into n from dual where nvl(dummy,'X') > 'A';
select 1 into n from dual where dummy > 'A' or dummy is null;
end loop;
end;
/

select dbms_profiler.start_profiler from dual;
exec p1
select dbms_profiler.stop_profiler from dual;

SET LINESIZE 200
SET TRIMOUT ON

COLUMN runid FORMAT 99999
COLUMN run_comment FORMAT A50
SELECT runid,
       run_date,
       run_comment,
       run_total_time/1000000000 seconds
FROM   plsql_profiler_runs
ORDER BY runid;


COLUMN runid FORMAT 99999
COLUMN unit_number FORMAT 99999
COLUMN unit_type FORMAT A20
COLUMN unit_owner FORMAT A20

SELECT u.runid,
       u.unit_number,
       u.unit_type,
       u.unit_owner,
       u.unit_name,
       d.line#,
       d.total_occur,
       d.total_time,
       d.min_time,
       d.max_time
FROM   plsql_profiler_units u
       JOIN plsql_profiler_data d ON u.runid = d.runid AND u.unit_number = d.unit_number
WHERE  u.runid = &run_id
ORDER BY u.unit_number, d.line#;



SELECT line || ' : ' || text
FROM   user_source
where    type  = 'PROCEDURE'
AND    name  = 'P1';