Package dependency - recompile

Question

Hi everybody,
I've got the following situation in a productive environment here:
- a package A with a procedure P1
- a package B with a procedure P2
If anybody knows about a possibility to recompile package A without making package B invalid - please give me a hint.
tia and have a nice weekend,
rk

Answer 1

--HELLO
--THIS MIGHT HELP YOU.
=========================================================
-- Compile all invalid objects in database
-- and produce report of objects compiled/
-- still requiring compilation
-- C Heroux
-- ported for 8.X
set serveroutput on
declare
cursor compiler is
select
object_type,
object_name
from
user_objects where status= 'INVALID'
order by
decode(object_type, 'VIEW', 1, 'PROCEDURE', 2, 'FUNCTION', 3,
'PACKAGE', 4, 'PACKAGE BODY', 5, 'TRIGGER', 6);
cursor end_compile is
select
object_name
from
user_objects
where
status= 'INVALID';
lv_object_name      user_objects.object_name%type;
lv_object_type      user_objects.object_type%type;
c_stat          integer;
c_handle          integer;
b_ct               integer;
e_ct               integer;
type object_table is table of varchar2(60) index by binary_integer;
object_array          object_table;
success_with_comp_error exception;
PRAGMA EXCEPTION_INIT(success_with_comp_error, -24344);
begin
dbms_output.enable(1000000);
b_ct := 0;
e_ct := 0;
open compiler;
LOOP
fetch compiler into lv_object_type, lv_object_name;
exit when compiler%notfound;
b_ct := b_ct + 1;
c_handle := dbms_sql.open_cursor;
BEGIN
IF lv_object_type = 'PACKAGE' THEN
dbms_sql.parse(c_handle, 'alter package '||lv_object_name||
' compile specification', dbms_sql.native);
dbms_output.put_line('Compiling package spec '||lv_object_name);
ELSIF lv_object_type = 'PACKAGE BODY' THEN
dbms_sql.parse(c_handle, 'alter package '||
lv_object_name||' compile body', dbms_sql.native);
dbms_output.put_line('Compiling package body '||lv_object_name);
ELSE
dbms_sql.parse(c_handle, 'alter '||lv_object_type||
' '||lv_object_name||' compile', dbms_sql.native);
dbms_output.put_line('Compiling '||lower(lv_object_type)||' '
||lv_object_name);
END IF;
c_stat := dbms_sql.execute(c_handle);
EXCEPTION
WHEN SUCCESS_WITH_COMP_ERROR THEN
-- Trap and ignore ORA-24344: success with compilation error
-- This only happens on ORACLE 8
null;
WHEN OTHERS THEN
null;
END;
dbms_sql.close_cursor(c_handle);
END LOOP;
close compiler;
open end_compile;
loop
fetch end_compile into lv_object_name;
exit when end_compile%notfound;
e_ct := e_ct + 1;
object_array(e_ct) := lv_object_name;
end loop;
close end_compile;
dbms_output.put_line('Compiled '||b_ct||' objects.');
if e_ct > 0 then
dbms_output.put_line(e_ct||' objects still require compilation. Rerun and/or review source code for:');
end if;
if e_ct > 0 then
for i in 1 .. e_ct
loop
dbms_output.put_line(' - '||object_array(i));
end loop;
end if;
end;
=======================================================
CHEERS