How to check the performance of a computer.

Question

Dear all,
how can i check the performance of a computer.
i write a procedure which insert values in a table. when i execute the procedure it goes hang for a long time and after insertion it give the message the procedure completed successfully.
but how to show the time of the execution of the procedure.
my procedure is here.
procedure test_proc
is
no_gen number :=0;
begin
loop
     insert into voucherh
     values (test_sq.nextval, sysdate, 'JV', 'Muhammad Nadeem', 'Muhammad Omer Ghauri', 'Sheraz Ayyub', 'Muntazir Mehdi');
     commit;
     no_gen := no_gen +1;
     exit when no_gen = 100000;
end loop;
END test_proc;
thanks
Muhammad Nadeem
CHIMERA PVT. LTD.
LAHORE
[email protected]
0301-8334434

Answer 1

Here is a more elaborated function that returns the difference in day/hour/minute/seconds
CREATE OR REPLACE FUNCTION Diff_Temps
     LD$Date_Deb IN DATE DEFAULT SYSDATE
     ,LD$Date_Fin IN DATE DEFAULT SYSDATE
     ,LN$JJ       OUT PLS_INTEGER
     ,LN$HH       OUT PLS_INTEGER
     ,LN$MI       OUT PLS_INTEGER
     ,LN$SS       OUT PLS_INTEGER
  ) Return NUMBER
IS
  dif   NUMBER ;
Begin
  If LD$Date_Fin < LD$Date_Deb Then
     Return ( -1 ) ;
  End if ;
  Select  LD$Date_Fin - LD$Date_Deb Into dif  From DUAL ;
  Select  trunc ( LD$Date_Fin - LD$Date_Deb)  Into LN$JJ  From DUAL ;
  Select  trunc ( (LD$Date_Fin - LD$Date_Deb) * 24) -  ( LN$JJ * 24 ) Into LN$HH From DUAL ;
  Select  trunc ( (LD$Date_Fin - LD$Date_Deb) * 1440) - ( (LN$HH * 60) + ( LN$JJ * 1440) ) Into LN$MI From DUAL ;
  Select  trunc ( (LD$Date_Fin - LD$Date_Deb) * 86400) - ( (LN$MI * 60) + (LN$HH * 3600) + ( LN$JJ * 3600 * 24 ) ) Into LN$SS From DUAL ;
  Return( dif ) ;
End ;
/That you can call as follow:
SQL> set serveroutput on
SQL> declare
  2   dd pls_integer;
  3   hh pls_integer;
  4   mi pls_integer;
  5   ss pls_integer;
  6   dif number ;
  7  Begin
  8   dif := diff_temps ( sysdate, sysdate + 10.523, dd,hh,mi,ss ) ;
  9   dbms_output.put_line(
10     '(' || ltrim(to_char(dif,'99999.99999')) || ')' || '  '
11     || to_char(dd,'99999') || 'j '
12     || to_char(hh,'00') ||':'
13     || to_char(mi,'00') ||':'
14     || to_char(ss,'00')
15     ) ;
16  End;
17  /
(10.52300)      10j  12: 33: 07Francois