Unable to drop a function

Question

Hi,
I have created a function. I have full access on that function. But unable to drop it. When I issue drop function function_name. My SQLPLUS hangs and after brief wait I am getting the following error ORA-04021: timeout occurred while waiting to lock object.
How to drop the function now. I am unable to use it also.
Regards,
Subbu S.

Answer 1

Hi,
my function is
FUNCTION PENDING_HRS
(st_dt IN DATE, ed_dt IN DATE, out_type in varchar2, loc_type in varchar2,
hrs_type in varchar2)
RETURN NUMBER IS
CURSOR holiday_cnt (st_dt_tr_in IN DATE, ed_dt_tr_in IN DATE,loc_type_in IN VARCHAR2 ) IS
SELECT count(*) FROM bi_prod.boe_hmh_holiday where
(LOCATION = loc_type_in or 'BOTH' = loc_type_in) and
holiday_dt between st_dt_tr_in and ed_dt_tr_in and
to_number(to_char(holiday_dt,'d')) not in (1,7);
st_dt_mod DATE;
ed_dt_mod DATE;
st_dt_tr DATE;
ed_dt_tr DATE;
st_dt_wk DATE;
ed_dt_wk DATE;
no_of_wkeds NUMBER;
st_dy_filler NUMBER;
ed_dy_filler NUMBER;
no_of_wkdys NUMBER;
st_hr_filler NUMBER;
ed_hr_filler NUMBER;
nr_hrs NUMBER;
num_hdys NUMBER;
BEGIN
no_of_wkeds :=0;
st_dy_filler :=0;
ed_dy_filler :=0;
no_of_wkdys :=0;
st_hr_filler :=0;
ed_hr_filler :=0;
nr_hrs :=0;
num_hdys :=0;
st_dt_mod := BUS_DAY(st_dt,'+',loc_type,hrs_type);
ed_dt_mod := BUS_DAY(ed_dt,'-',loc_type,hrs_type);
dbms_output.put_line(to_char(st_dt_mod,'dd-Mon-yyyy hh24:mi:ss'));
dbms_output.put_line(to_char(ed_dt_mod,'dd-Mon-yyyy hh24:mi:ss'));
if ed_dt_mod > st_dt_mod then
st_dt_tr := trunc(st_dt_mod);
ed_dt_tr := trunc(ed_dt_mod);
st_dt_wk := st_dt_tr - (to_number(to_char(st_dt_tr,'d')) - 1);
ed_dt_wk := ed_dt_tr + (7 - to_number(to_char(ed_dt_tr,'d')));
dbms_output.put_line(to_char(st_dt_wk,'dd-Mon-yyyy hh24:mi:ss'));
dbms_output.put_line(to_char(ed_dt_wk,'dd-Mon-yyyy hh24:mi:ss'));
no_of_wkeds := ((ed_dt_wk - st_dt_wk + 1) / 7) * 2;
dbms_output.put_line('Weekends - ' || no_of_wkeds);
IF to_number(to_char(st_dt_tr,'d')) > 2 THEN
st_dy_filler := to_number(to_char(st_dt_tr,'d')) - 2;
ELSE
st_dy_filler := 0;
END IF;
dbms_output.put_line ('St Filler - ' || st_dy_filler);
IF to_number(to_char(ed_dt_tr,'d')) < 6 THEN
ed_dy_filler := 6 - to_number(to_char(ed_dt_tr,'d'));
ELSE
ed_dy_filler := 0;
END IF;
dbms_output.put_line ('ed Filler - ' || ed_dy_filler);
open holiday_cnt(st_dt_tr , ed_dt_tr, loc_type);
fetch holiday_cnt into num_hdys;
close holiday_cnt;
dbms_output.put_line(num_hdys);
no_of_wkdys := ed_dt_wk - st_dt_wk - no_of_wkeds - st_dy_filler - ed_dy_filler + 1 - num_hdys;
dbms_output.put_line ('Work Days - '|| no_of_wkdys);
IF to_number(to_char(st_dt_mod,'d')) > 1 AND to_number(to_char(st_dt_mod,'d')) < 7 then
if hrs_type = '8' then
IF to_number(to_char(st_dt_mod,'hh24')) >= 9 AND (to_number(to_char(st_dt_mod,'hh24')) < 17 or (to_number(to_char(st_dt_mod,'hh24')) = 17 and to_number(to_char(st_dt_mod,'mi')) = 0 )) then
st_hr_filler := round((st_dt_mod - to_date(to_char(st_dt_tr,'dd-Mon-yyyy') || ' 09:00:00' ,'dd-Mon-yyyy hh:mi:ss')) * 24, 2) ;
ELSE
if to_number(to_char(st_dt_mod,'hh24')) < 9 then
st_hr_filler := 0;
elsif to_number(to_char(st_dt_mod,'hh24')) >= 17 then
st_hr_filler := 8;
end if;
END IF;
else
st_hr_filler := round((st_dt_mod -st_dt_tr) * 24 ,2);
end if;
ELSE
st_hr_filler := 0;
END IF;
dbms_output.put_line ('St_hr_filler - '|| st_hr_filler);
IF to_number(to_char(ed_dt_mod,'d')) > 1 AND to_number(to_char(ed_dt_mod,'d')) < 7 then
if hrs_type = '8' then
IF to_number(to_char(ed_dt_mod,'hh24')) >= 9 AND (to_number(to_char(ed_dt_mod,'hh24')) < 17 or (to_number(to_char(ed_dt_mod,'hh24')) = 17 and to_number(to_char(ed_dt_mod,'mi')) = 0 )) then
ed_hr_filler := round((to_date(to_char(ed_dt_tr,'dd-Mon-yyyy') || ' 17:00:00' ,'dd-Mon-yyyy hh24:mi:ss') - ed_dt_mod) * 24 , 2) ;
ELSE
if to_number(to_char(ed_dt_mod,'hh24')) < 9 then
ed_hr_filler := 8;
elsif to_number(to_char(ed_dt_mod,'hh24')) >= 17 then
ed_hr_filler := 0;
end if;
END IF;
else
ed_hr_filler := 24 - round((ed_dt_mod - ed_dt_tr) * (24) , 2);
end if;
ELSE
ed_hr_filler := 0;
END IF;
dbms_output.put_line ('ed_hr_filler - '|| ed_hr_filler);
IF hrs_type ='24' then
nr_hrs := (no_of_wkdys * 24) - st_hr_filler - ed_hr_filler;
else
nr_hrs := (no_of_wkdys * 8) - st_hr_filler - ed_hr_filler;
end if;
if nr_hrs < 0 then
nr_hrs := 0;
end if;
if out_type ='H' then
RETURN nr_hrs ;
else
IF hrs_type ='24' then
RETURN nr_hrs / 24;
else
RETURN nr_hrs / 8;
end if;
end if;
else
RETURN 0;
end if;
END pending_hrs;
From port string I came to know its on solaris (SVR4-be-64bit-8.1.0).
My oracle instance version is 10.2.0.4.0. I have to catch hold of my DBA.
Regards,
Subbu S.