CAD\CAD_ROL.SRC toegevoegd en de alter-recompile achteraan

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

FCLT.SRC

@@ -3,7 +3,8 @@
  *
  * History:
  *
- * 90-10-1998 PF  Analoog aan SM44: BCO.ALL en BCP.ALL; vermoedelijk nog nodig voor wat PLL's
+ * 26-11-1998 PF  CAD_ROL.SRC toegevoegd voor FCLTCAD user
+ * 09-10-1998 PF  Analoog aan SM44: BCO.ALL en BCP.ALL; vermoedelijk nog nodig voor wat PLL's
  *  --- 01.40 ---
  *  --- 01.39 ---
  * 23-07-1998 KTH LOG#1938: volgorde van Views/Packages aangepast tbv CAD
@@ -86,7 +87,7 @@ PROMPT
 PROMPT
 
 SET ECHO ON
-
+SET TERMOUT OFF
 /* TABLES */
 #include "FAC\fac_tab.src"
 #include "ALG\alg_tab.src"
@@ -277,8 +278,27 @@ COMMIT;
 
 /* DIVERSEN */
 #include "FAC\fac_rol.src" /* ROLEs en GRANTs (hierin wordt ook geSPOOLed!) */
+#include "CAD\cad_rol.src" /* FCLTCAD e.d. */
 
 COMMIT;
 
+/* EXTRA: Mocht er vanwege volgorde iets mis zijn gegaan, helpt het volgende */
 SET ECHO OFF
-/* SPOOL OFF dit hoeft niet meer hier: gebeurt al in fac_rol.src */
+SET FEEDBACK OFF
+SET HEADING OFF
+SET LINESIZE 300
+SPOOL $fixview.sql
+SELECT 'ALTER '||object_type||' '||object_name||' COMPILE;' 
+FROM USER_OBJECTS WHERE STATUS = 'INVALID';
+SPOOL OFF
+SET ECHO ON
+START $fixview.sql
+
+SPOOL crea_res
+-- Rapportage
+SELECT 'ORA-Invalid object warning: '||object_type||' '||object_name 
+  FROM USER_OBJECTS
+ WHERE STATUS = 'INVALID';
+
+SPOOL OFF
+SET TERMOUT ON