MINI

files >> C:/siak/05_script/05_script/01_TABLE/SQL07_CompileInvalidObject.sql
    set serveroutput on size 100000;
   --
   --
   /* Re-Compile seluruh INVALID Objects dari USER_OBJECTS */
DECLARE
   CURSOR c1 IS SELECT object_type, object_name from USER_OBJECTS
   WHERE status = 'INVALID' ORDER BY object_type;

   rec USER_OBJECTS%ROWTYPE;
BEGIN
  --
  dbms_output.put_line('Cari dan Re-Compile seluruh INVALID Objects.');
  dbms_output.put_line('');
  FOR rec IN c1
  LOOP
/*  dbms_output.put_line(rec.object_type || ' ' || rec.object_name || ' ditemukan.');        */
    -- Sub Block
    BEGIN
     EXECUTE IMMEDIATE 'alter '||rec.object_type||' '||rec.object_name||' compile';
        dbms_output.put_line(rec.object_type || ' ' || rec.object_name || ' Re-Compiled.');
    EXCEPTION
        WHEN OTHERS THEN
          dbms_output.put_line(rec.object_type || ' ' || rec.object_name || ' can not be Re-Compiled!!!');
    END;
    -- End Sub Block
/*  dbms_output.put_line('');        */
  END LOOP;
     EXCEPTION
        WHEN OTHERS THEN
        dbms_output.put_line('WARNINGS!!! - Exception occured in Main Block!!');
  close c1;
  --
END;
/
   set serveroutput on size 2000;
   
exit;