155 lines
5.6 KiB
SQL
155 lines
5.6 KiB
SQL
/* _up/prologue.inc
|
|
* Prologue of database schema update script for Facilitor, to be included in every schema update
|
|
*
|
|
* $Revision$
|
|
* $Id$
|
|
*/
|
|
#include "modules.h"
|
|
#include "comsql.h"
|
|
|
|
/* Check the current version number. If it is different from the expected version
|
|
* the user has the option to cancel the upgrace by pressing Ctrl-C.
|
|
* If you want to use this script in a non-interactive fashion, use e.g.
|
|
DEFINE ACCEPT_DB33=1
|
|
@@DB32TO33.SQL
|
|
in a script
|
|
* At the end the schema version and upgrade date are updated.
|
|
*/
|
|
SET HEADING OFF
|
|
SET TERMOUT ON
|
|
SET FEEDBACK OFF
|
|
SET ECHO OFF
|
|
SET VERIFY OFF
|
|
SET PAGESIZE 0
|
|
|
|
#define _MKVER(a) STRINGIZE(a)
|
|
|
|
column fcltlogfile new_value fcltlogfile NOPRINT;
|
|
select _MKVER(_VER) || '_' || UPPER(USER || '_' || sys_context('USERENV', 'SERVICE_NAME') || '_' || sys_context('USERENV', 'SERVER_HOST')) || '_' || to_char(sysdate,'YYYYMMDD_HH24MISS') || '.lst' as fcltlogfile from dual;
|
|
spool &fcltlogfile
|
|
|
|
column 1 new_value 1 noprint
|
|
select '' "1" from dual where rownum = 0;
|
|
define forceit = &1 "donot"
|
|
|
|
WHENEVER SQLERROR EXIT;
|
|
|
|
DECLARE
|
|
tekst VARCHAR2 (1000);
|
|
fac_schema fac_version.fac_version_schema%TYPE;
|
|
BEGIN
|
|
SELECT fac_version_schema
|
|
INTO fac_schema
|
|
FROM fac_version;
|
|
IF SUBSTR(fac_schema, 1, 2) <> SUBSTR(_MKVER(_VER), 3, 2) AND '&forceit' != 'FORCE' THEN
|
|
tekst := '==================================================================' || CHR(10)
|
|
|| 'This upgrade can only be applied to a DB'|| SUBSTR(_MKVER(_VER), 3, 2) || ' database' || CHR(10)
|
|
|| 'Current database is version DB'|| fac_schema || CHR(10)
|
|
|| 'Add parameter FORCE when calling this script to force the upgrade' || CHR(10)
|
|
|| 'This upgrade script is now cancelled!' || CHR(10)
|
|
|| '==================================================================' || CHR(10);
|
|
RAISE_APPLICATION_ERROR(-20000, 'OR'||'A-' || CHR(10) || tekst);
|
|
END IF;
|
|
EXCEPTION
|
|
WHEN OTHERS THEN
|
|
IF SQLCODE <> -20000 THEN
|
|
RAISE_APPLICATION_ERROR(-20000, 'Could not find table FAC_VERSION. Not a Facilitor database?');
|
|
ELSE
|
|
RAISE;
|
|
END IF;
|
|
END;
|
|
/
|
|
|
|
DECLARE
|
|
tekst VARCHAR2 (1000);
|
|
charset VARCHAR2 (1000);
|
|
BEGIN
|
|
SELECT MIN(client_charset)
|
|
INTO charset
|
|
FROM v$session_connect_info
|
|
WHERE sid = sys_context('USERENV','SID');
|
|
IF charset <> 'WE8MSWIN1252' THEN
|
|
tekst := '=================================================================' || CHR(10)
|
|
|| 'Wrong clientside NLS_LANG for this Facilitor upgrade.' || CHR(10)
|
|
|| 'WE8MSWIN1252 is required, we suspect '|| charset || CHR(10)
|
|
|| 'Please enter this before you start SQL*Plus:' || CHR(10)
|
|
|| ' on Windows:' || CHR(10)
|
|
|| ' SET NLS_LANG=.WE8MSWIN1252' || CHR(10)
|
|
|| ' on Unix:' || CHR(10)
|
|
|| ' export NLS_LANG=.WE8MSWIN1252' || CHR(10)
|
|
|| 'This upgrade script is now cancelled!' || CHR(10)
|
|
|| '=================================================================' || CHR(10);
|
|
RAISE_APPLICATION_ERROR(-20000, 'OR'||'A-' || CHR(10) || tekst);
|
|
END IF;
|
|
BEGIN
|
|
SELECT table_name
|
|
INTO tekst
|
|
FROM user_tables
|
|
WHERE table_name = 'FAC_VERSION';
|
|
EXCEPTION
|
|
WHEN OTHERS THEN
|
|
RAISE_APPLICATION_ERROR(-20000, 'Could not find table FAC_VERSION. Not a Facilitor database?');
|
|
END;
|
|
END;
|
|
/
|
|
WHENEVER SQLERROR CONTINUE;
|
|
|
|
PROMPT [&fcltlogfile]
|
|
PROMPT
|
|
PROMPT ************************************************************************
|
|
PROMPT UPGRADE of Facilitor schema to version EVALCONCAT(DB, _DBV) $Revision$
|
|
PROMPT Copyright (c) 1996-2025 Aareon Nederland B.V. All rights reserved.
|
|
PROMPT
|
|
SELECT 'The current version of Facilitor@' || USER || ' is: ' || fac.getdbversion()
|
|
FROM DUAL;
|
|
PROMPT After the upgrade the schema version will be: EVALCONCAT(DB, _DBV)
|
|
PROMPT
|
|
PROMPT PLEASE VERIFY THESE SCHEMA NUMBERS!
|
|
PROMPT
|
|
PROMPT If these versions are not sequencing then execution of this script
|
|
PROMPT should be stopped by pressing Ctrl-C right now!
|
|
PROMPT
|
|
PROMPT Only run this script when no users or processes are using Facilitor
|
|
PROMPT
|
|
PROMPT ************************************************************************
|
|
PROMPT
|
|
PROMPT Press Enter to continue
|
|
SET DEFINE ON
|
|
PROMPT EVALCONCAT(&&ACCEPT_DB, _DBV)
|
|
PROMPT
|
|
PROMPT The upgrade continues, be patient. You will be notified when we are done...
|
|
PROMPT
|
|
|
|
SET DEFINE OFF /* Pas na de accept! */
|
|
SET HEADING OFF
|
|
SET FEEDBACK ON
|
|
SET LINESIZE 1000
|
|
SET TIME ON
|
|
SET SERVEROUTPUT ON SIZE UNLIMITED;
|
|
variable update_start number
|
|
exec :update_start := dbms_utility.get_time
|
|
/* om zeker te weten dat eventuele conversies goed gaan */
|
|
ALTER SESSION SET nls_territory='america';
|
|
ALTER SESSION SET nls_length_semantics='char';
|
|
|
|
SELECT adm.systeminfo FROM DUAL;
|
|
|
|
PROMPT This script was run in user:
|
|
SHOW USER
|
|
SELECT 'The version of Facilitor@' || USER || ' was ' || fac.getdbversion()
|
|
FROM DUAL;
|
|
|
|
SET HEADING OFF
|
|
SET LINESIZE 132
|
|
/* 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;
|
|
|
|
SET ECHO ON
|