declare
var1 date;
begin
var1 := sysdate;
 SELECT a.memp_code, a.memp_cmpcd, a.memp_divcd, a.memp_depcd, a.memp_loccd,
	 a.MEmp_CatPCd,a.memp_grdcd,a.memp_grpcd, a.memp_design, b.edcode, c.formula,
	 TRIM(d.edhcode) , d.edlnkmast, e.Memp_ITaxBnk, d.RndType
	 FROM MEMPOFF a,EMPED b,EDINT c,EDHEAD d,MEMPPAY e
	 WHERE
	 a.MEmp_Code(+) = e.MEmp_Code
	 AND a.memp_code = 00020027
	 AND c.EDHCode = d.EDHCode
	 AND b.EDCode = c.EDCode
	 AND a.MEmp_code = b.Emp_Code
	 AND (b.FrmDt <=200508 AND ((b.ToDt >= 200508 AND b.ToDt IS NOT NULL)
	 OR b.ToDt IS NULL))
	 AND (c.FrmDt <=200508 AND ((c.ToDt >= 200508 AND c.ToDt IS NOT NULL)
	 OR c.ToDt IS NULL))
	 AND a.MEmp_active <> 0 AND memp_stp<>1
	 ORDER BY a.MEmp_Code, Level_Id;
dbms_output.put_line (sysdate - var1);
end;

SET TIMING ON

dbms_utility.get_time

set serveroutput on
DECLARE
  l_start_time PLS_INTEGER;
  l_end_time   PLS_INTEGER;
  r_emp        emp%ROWTYPE;
BEGIN
  --
  l_start_time := dbms_utility.get_time;
  --
  SELECT *
  INTO   r_emp
  FROM   emp
  WHERE  rownum = 1;
  --
  l_end_time := dbms_utility.get_time;
  --
  dbms_output.put_line('Time to Execute (ms): '||(l_end_time-l_start_time));
  --
END;

vtext1 := TO_CHAR(sysDATE, 'DD-MON-YYYY HH:MI:SS'); 

type your query .................


vtext2 TO_CHAR(sysDATE, 'DD-MON-YYYY HH:MI:SS'); 
dbms_output.put_line('time before= '||(vtext1)); 
dbms_output.put_line('time after=  '||(vtext2)); 

vnum1 := dbms_utility.get_time; 

type your query .................

dbms_output.put_line('time taken = '||to_char(dbms_utility.get_time - vnum1));