admin/Database
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

share the recreate

Browse Source 
svn path=/Database/trunk/; revision=11089
This commit is contained in:
Peter Feij
2012-02-22 13:18:34 +00:00
parent 6b1c6866b0
commit 93ca7d629d
1 changed files with 43 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

115
FCLT.SRC
View File

@@ -1,33 +1,59 @@
-- [CREA*.SQL]
--
-- Script tbv het aanmaken van de Facilitor omgeving in Oracle
-- Copyright 1996-2010 SG|facilitor bv.
-- Copyright 1996-2012 SG|facilitor bv.
-- All rights reserved!
/*
* $Revision: 65 $
* $Modtime: 11-01-12 16:00 $
* $Revision: 66 $
* $Modtime: 22-02-12 15:13 $
*/
#include "modules.h"
#include "comsql.h"
SET TIME ON
SET DEFINE OFF
SET HEADING OFF
SET FEEDBACK OFF
SET ECHO OFF
SPOOL facilitor
PROMPT [facilitor.lst]
#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;
spool &fcltlogfile
WHENEVER SQLERROR EXIT;
DECLARE
tekst VARCHAR2 (1000);
BEGIN
CASE ASCII('<27>')
WHEN 191 THEN tekst :='WE8ISO8859P1';
WHEN 128 THEN tekst :='WE8MSWIN1252'; -- De enige goede
ELSE tekst :='UNKNOWN ';
END CASE;
IF tekst <> 'WE8MSWIN1252' THEN
tekst := '=================================================================' || CHR(10)
|| 'Foute clientside NLS_LANG ['|| TO_CHAR(ASCII('<27>')) ||'] voor deze Facilitor upgrade.' || CHR(10)
|| 'WE8MSWIN1252 is nodig, ik vermoed '|| tekst || CHR(10)
|| 'Geef bijvoorbeeld in Windows voordat SQL*Plus opstart:' || CHR(10)
|| 'SET NLS_LANG=.WE8MSWIN1252' || CHR(10)
|| 'Het upgrade script wordt nu afgebroken!' || CHR(10)
|| '=================================================================' || CHR(10);
RAISE_APPLICATION_ERROR(-20000, 'OR'||'A-' || CHR(10) || tekst);
END IF;
END;
/
WHENEVER SQLERROR CONTINUE;
PROMPT [&fcltlogfile]
PROMPT
PROMPT Copyright 1996-2010 SG|facilitor bv. ALL RIGHTS RESERVED.
PROMPT Copyright 1996-2012 SG|facilitor bv. ALL RIGHTS RESERVED.
PROMPT
PROMPT Dit is de gegenereerde list-file van FCLTxxxx.sql welke
PROMPT is gebruikt om de Facilitor(r) _VERSION omgeving in Oracle aan te
PROMPT Dit is de gegenereerde list-file van FCLTnnn.sql welke
PROMPT is gebruikt om de FACILITOR(r) _VERSION omgeving in Oracle aan te
PROMPT maken.
PROMPT
PROMPT Dit script is gerund in user:
SHOW USER
PROMPT
PROMPT
SET LINESIZE 500
SET DEFINE OFF
SET ECHO ON
#include "adm\adm_tab.src"
#include "adm\adm_pac.src"
@@ -68,40 +94,6 @@ SET ECHO ON
#include "prj\prj_seq.src"
#include "msg\msg_seq.src"
/* VIEWS */
#include "fac\fac_vie.src"
#include "alg\alg_vie.src"
#include "ins\ins_vie.src"
#include "prs\prs_vie.src"
#include "mld\mld_vie.src"
#include "mrk\mrk_vie.src"
#include "cad\cad_vie.src"
#include "res\res_vie.src"
#include "bez\bez_vie.src"
#include "web\web_vie.src"
#include "cnt\cnt_vie.src"
#include "bes\bes_vie.src"
#include "sch\sch_vie.src"
#include "fin\fin_vie.src"
#include "prj\prj_vie.src"
#include "msg\msg_vie.src"
#include "cnt\cnt_pac.src"
#include "mld\mld_pac.src"
#include "mrk\mrk_pac.src"
#include "fac\fac_pac.src"
#include "ins\ins_pac.src"
#include "prs\prs_pac.src"
#include "cad\cad_pac.src"
#include "res\res_pac.src"
#include "bez\bez_pac.src"
#include "web\web_pac.src"
#include "bes\bes_pac.src"
#include "sch\sch_pac.src"
#include "fin\fin_pac.src"
#include "prj\prj_pac.src"
#include "msg\msg_pac.src"
/* INDICES */
#include "fac\fac_ind.src"
#include "alg\alg_ind.src"
@@ -120,23 +112,8 @@ SET ECHO ON
#include "prj\prj_ind.src"
#include "msg\msg_ind.src"
/* TRIGGERS */
#include "fac\fac_tri.src"
#include "alg\alg_tri.src"
#include "ins\ins_tri.src"
#include "prs\prs_tri.src"
#include "cnt\cnt_tri.src"
#include "mld\mld_tri.src"
#include "mrk\mrk_tri.src"
#include "cad\cad_tri.src"
#include "res\res_tri.src"
#include "bez\bez_tri.src"
#include "web\web_tri.src"
#include "bes\bes_tri.src"
#include "sch\sch_tri.src"
#include "fin\fin_tri.src"
#include "prj\prj_tri.src"
#include "msg\msg_tri.src"
/* VIEWS, PACKAGES, TRIGGERS and LOCALES */
#include "_up/recreate.inc"
/* INITIALISATIES */
#include "fac\fac_ini.src"
@@ -156,11 +133,6 @@ SET ECHO ON
#include "prj\prj_ini.src"
#include "msg\msg_ini.src"
/* LOCALE's */
#include "fac\fac_lcl.src"
#include "fac\fac_lclasp.src"
#include "mld\mld_lcl.src"
#include "res\res_lcl.src"
COMMIT;
///////////////////////////// finally compile all views, triggers etc acc to the latest state ///////
@@ -168,12 +140,11 @@ BEGIN DBMS_UTILITY.COMPILE_SCHEMA(USER, FALSE); END;
/
BEGIN fac.registerversion(_VERSIONMAJ, _VERSIONMIN, _VERSIONPATCH, _DBV, NULL); END;
/
REGISTERONCE('$Workfile: FCLT.SRC $','$Revision: 65 $')
REGISTERONCE('$Workfile: FCLT.SRC $','$Revision: 66 $')
COMMIT;
///////////////////////////// Report invalid objects, if any ///////
SET ECHO OFF
SET HEADING 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
@@ -183,6 +154,6 @@ AND status <> 'VALID'
ORDER BY object_name;
SELECT 'Facilitor/' || USER || ' is now ' || fac.getdbversion() FROM DUAL;
PROMPT De upgrade is gereed, controleer de LST-files.
PROMPT Schema initialisatie is gereed, controleer de LST-files.
PROMPT Neem bij vragen, twijfels of problemen contact op met Facilitor.
SPOOL OFF