Merge 5.2.3 Gold C (DB17b) patches
svn path=/Database/trunk/; revision=16550
This commit is contained in:
7
FCLT.SRC
7
FCLT.SRC
@@ -15,9 +15,8 @@ SET HEADING OFF
|
||||
SET FEEDBACK OFF
|
||||
SET ECHO OFF
|
||||
|
||||
#define _MKVER(a) STRINGIZE(a)
|
||||
column fcltlogfile new_value fcltlogfile NOPRINT;
|
||||
select 'FACILITOR'||_MKVER(_DBV) || '_' || UPPER(USER || '_' || sys_context('USERENV', 'SERVICE_NAME') || '_' || sys_context('USERENV', 'SERVER_HOST')) || '_' || to_char(sysdate,'YYYYMMDD_HH24MISS') || '.lst' as fcltlogfile from dual;
|
||||
select 'FACILITOR'|| _DBV_STRING || '_' || UPPER(USER || '_' || sys_context('USERENV', 'SERVICE_NAME') || '_' || sys_context('USERENV', 'SERVER_HOST')) || '_' || to_char(sysdate,'YYYYMMDD_HH24MISS') || '.lst' as fcltlogfile from dual;
|
||||
spool &fcltlogfile
|
||||
|
||||
WHENEVER SQLERROR EXIT;
|
||||
@@ -134,7 +133,7 @@ COMMIT;
|
||||
///////////////////////////// finally compile all views, triggers etc acc to the latest state ///////
|
||||
BEGIN DBMS_UTILITY.COMPILE_SCHEMA(USER, FALSE); END;
|
||||
/
|
||||
BEGIN fac.registerversion(_VERSIONMAJ, _VERSIONMIN, _VERSIONPATCH, _DBV, 'NL'); END;
|
||||
BEGIN fac.registerversion(_VERSIONMAJ, _VERSIONMIN, _VERSIONPATCH, _DBV_STRING, 'NL'); END;
|
||||
/
|
||||
REGISTERONCE('$Workfile: FCLT.SRC $','$Revision$')
|
||||
|
||||
@@ -143,7 +142,7 @@ COMMIT;
|
||||
SET ECHO OFF
|
||||
SET LINESIZE 80
|
||||
PROMPT List of all invalid objects after FACILITOR creation:
|
||||
SELECT 'OR'||'A-'||'DB'||TO_CHAR(_DBV)||' Warning: ' || object_type || ' ' || object_name || ' is ' || status
|
||||
SELECT 'OR'||'A-'||'DB'|| _DBV_STRING ||' Warning: ' || object_type || ' ' || object_name || ' is ' || status
|
||||
FROM user_objects
|
||||
WHERE object_type IN ('VIEW', 'TRIGGER', 'PACKAGE', 'PROCEDURE', 'FUNCTION', 'PACKAGE BODY')
|
||||
AND status <> 'VALID'
|
||||
|
||||
Reference in New Issue
Block a user