Ook de invalids *voor* de recreate tonen

svn path=/Database/trunk/; revision=19826

_UP/recreate.src

@@ -44,6 +44,16 @@ SET DEFINE OFF
 variable recreate_start number
 exec :recreate_start := dbms_utility.get_time
 
+/* first compile all views, triggers etc */
+BEGIN DBMS_UTILITY.COMPILE_SCHEMA(USER, FALSE); END;
+/
+PROMPT List of all invalid objects *before* FACILITOR upgrade.
+SELECT 'OR'||'A-'||'DB'||_DBV_STRING||' Warning: ' || object_type || ' ' || object_name || ' was ' || status || ' before the upgrade.'
+  FROM user_objects
+ WHERE object_type IN ('VIEW', 'TRIGGER', 'PACKAGE', 'PROCEDURE', 'FUNCTION', 'PACKAGE BODY')
+   AND status <> 'VALID'
+ ORDER BY object_name;
+
 #include "recreate.inc"
 
 select 'Recreate has completed in ' || ROUND(( dbms_utility.get_time - :recreate_start )/100) || ' seconds.' from dual;