rem *************************************************************

rem * Name : timer.SQL

rem *

rem * Date: July 15 2001

rem * Purpose: Example procedure to measure time in 1/1000 of second.

rem *

rem * Downloaded from www.oradev.com

rem *************************************************************

create or replace procedure tijd

as



  time_before binary_integer;

  time_after  binary_integer;

  teller  number;

  datum   date;

begin

  datum := sysdate;

  time_before := dbms_utility.get_time;

  for teller in 1..1000 loop

     null;     

  end loop;

  

  time_after  := dbms_utility.get_time;

  dbms_output.put_line('Measured time: ');

  dbms_output.put_line(time_after - time_before);

end;

/