ORA- prefix
svn path=/Database/trunk/; revision=10505
This commit is contained in:
13
FCLT.SRC
13
FCLT.SRC
@@ -4,8 +4,8 @@
|
|||||||
-- Copyright 1996-2010 SG|facilitor bv.
|
-- Copyright 1996-2010 SG|facilitor bv.
|
||||||
-- All rights reserved!
|
-- All rights reserved!
|
||||||
/*
|
/*
|
||||||
* $Revision: 62 $
|
* $Revision: 63 $
|
||||||
* $Modtime: 21-09-10 13:27 $
|
* $Modtime: 11-11-10 19:04 $
|
||||||
*/
|
*/
|
||||||
#include "modules.h"
|
#include "modules.h"
|
||||||
#include "comsql.h"
|
#include "comsql.h"
|
||||||
@@ -165,14 +165,15 @@ BEGIN DBMS_UTILITY.COMPILE_SCHEMA(USER, FALSE); END;
|
|||||||
/
|
/
|
||||||
BEGIN fac.registerversion(_VERSIONMAJ, _VERSIONMIN, _VERSIONPATCH, _DBVERSION, NULL); END;
|
BEGIN fac.registerversion(_VERSIONMAJ, _VERSIONMIN, _VERSIONPATCH, _DBVERSION, NULL); END;
|
||||||
/
|
/
|
||||||
REGISTERONCE('$Workfile: FCLT.SRC $','$Revision: 62 $')
|
REGISTERONCE('$Workfile: FCLT.SRC $','$Revision: 63 $')
|
||||||
|
|
||||||
COMMIT;
|
COMMIT;
|
||||||
///////////////////////////// Report invalid objects, if any ///////
|
///////////////////////////// Report invalid objects, if any ///////
|
||||||
SET ECHO OFF
|
SET ECHO OFF
|
||||||
SET LINESIZE 120
|
SET HEADING OFF
|
||||||
PROMPT List of all invalid objects after Facilitor upgrade:
|
SET LINESIZE 80
|
||||||
SELECT _VERSION||' Warning: ' || object_type || ' ' || object_name || ' is ' || status
|
PROMPT List of all invalid objects after Facilitor creation:
|
||||||
|
SELECT 'OR'||'A-'||'DB'||TO_CHAR(_DBVERSION)||' Warning: ' || object_type || ' ' || object_name || ' is ' || status
|
||||||
FROM user_objects
|
FROM user_objects
|
||||||
WHERE object_type IN ('VIEW', 'TRIGGER', 'PACKAGE', 'PROCEDURE', 'FUNCTION', 'PACKAGE BODY')
|
WHERE object_type IN ('VIEW', 'TRIGGER', 'PACKAGE', 'PROCEDURE', 'FUNCTION', 'PACKAGE BODY')
|
||||||
AND status <> 'VALID'
|
AND status <> 'VALID'
|
||||||
|
|||||||
Reference in New Issue
Block a user