Shell script to validate all invalid objects?

Question

Hello DBA's.
New to DBA ing and so seek your help.. I am using oracle Oracle9i Release on a Solaris box.
I need a shell script that will check all invalid objects on a DB and would validate it by running utlrp.sql. I know i can do this manually but i am asked to automate the process..
Kindly suggest where i can find a shell script or share this script with me.. it would be much appreciated.
Regards!

Answer 1

OK, this is possible, and here is one way entirely within SQL*Plus where it will try once more to recompile invalid objects, please note that this (top one) will work only on 11g or greater, and only getting around to testing this properly now:
#!/bin/ksh
. $HOME/.profile
export ORACLE_SID=<your_SID>
sqlplus '/ as sysdba' << EOF
set serveroutput on
set pagesize 1000
@${ORACLE_HOME}/rdbms/admin/utlrp.sql
begin
for cur  in (select do.owner || '.' || do.object_name module, object_type from dba_objects do join obj$ o on (do.object_id = o.obj#) where o.status = 5)
loop
begin
execute immediate 'alter ' || cur.object_type || ' ' || cur.module  || ' compile';
exception when others then continue;
end;
end loop;
end;
spool <path_and_filename_of_your_Invalid_Objects_output_file>
select do.owner || '.' || do.object_name from dba_objects do join obj$ o on (do.object_id = o.obj#) where o.status = 5;
spool off
quit
EOF
exit $?For < 11g:
#!/bin/ksh
. $HOME/.profile
export ORACLE_SID=<your_SID>
sqlplus '/ as sysdba' << EOF
set serveroutput on
set pagesize 0
set heading off
set termout off
set feedback off
@${ORACLE_HOME}/rdbms/admin/utlrp.sql
spool /tmp/recompile.sql
begin
for cur  in (select do.owner || '.' || do.object_name module, object_type from dba_objects do join obj$ o on (do.object_id = o.obj#) where o.status = 5)
loop
dbms_output.put_line( 'alter ' || cur.object_type || ' ' || cur.module || ' compile;');
end loop;
end;
spool off
@/tmp/recompile.sql
!rm /tmp/recompile.sql
set heading on
set termout on
set pagesize 1000
spool <path_and_filename_of_your_Invalid_Objects_output_file>
select do.owner || '.' || do.object_name from dba_objects do join obj$ o on (do.object_id = o.obj#) where o.status = 5;
spool off
quit
EOF
exit $?Edited by: SeánMacGC on Apr 29, 2009 1:12 PM