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

FSN#31260 bookkeeping van fac>adm stage 1

Browse Source 
svn path=/Database/trunk/; revision=23948
This commit is contained in:
Peter Feij
2015-01-26 11:19:09 +00:00
parent f197a918da
commit 7cf7120e95
3 changed files with 46 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
ADM/ADM_PAC.SRC
View File

@@ -9,6 +9,8 @@ AS
PROCEDURE systrackscriptId (svnid IN VARCHAR2, force IN NUMBER);
PROCEDURE trydrop (n IN VARCHAR2);
PROCEDURE tryalter (n IN VARCHAR2);
PROCEDURE registerversion (pmaj IN NUMBER, pmin IN NUMBER, ppatch IN VARCHAR2, pschema IN VARCHAR2, plang IN VARCHAR2);
FUNCTION getdbversion RETURN VARCHAR2;
END adm;
/
@@ -142,6 +144,47 @@ AS
END IF;
END;
-- formerly in FAC-package
PROCEDURE registerversion (pmaj IN NUMBER, pmin IN NUMBER, ppatch IN VARCHAR2, pschema IN VARCHAR2, plang IN VARCHAR2)
AS
verstring fac_module.fac_module_version%TYPE;
revisionnr fac_version.fac_version_schema%TYPE;
BEGIN
IF pmaj IS NOT NULL AND pmin IS NOT NULL AND ppatch IS NOT NULL
THEN
verstring := TO_CHAR (pmaj) || '.' || TO_CHAR (pmin) || '.' || TO_CHAR (ppatch);
UPDATE fac_module
SET fac_module_version = verstring;
UPDATE fac_version
SET fac_version_major = pmaj,
fac_version_minor = pmin,
fac_version_patch = ppatch,
fac_version_schema = pschema,
fac_version_date = SYSDATE;
UPDATE fac_message
SET fac_message_text = 'FACILITOR ' || verstring || 'DB' || TO_CHAR(pschema)
WHERE fac_message_code = 'FAC_M002';
END IF;
IF plang IS NOT NULL
THEN
UPDATE fac_version
SET fac_version_lang = plang;
END IF;
END;
FUNCTION getdbversion RETURN VARCHAR2
AS
verstring VARCHAR2(100);
BEGIN
SELECT 'DB'||fac_version_schema||'/'||fac_version_cust||fac_version_custnr||'-'||COALESCE(fac_version_otap,'P*')
INTO verstring
FROM fac_version;
RETURN verstring;
END;
END adm;
/

4
_UP/epilogue.inc
View File

@@ -36,11 +36,11 @@ SELECT 'OR'||'A-'||'DB'||_DBV_STRING||' Warning: ' || object_type || ' ' || obje
SET ECHO OFF
SET FEEDBACK OFF
PROMPT ======================================================================
SELECT 'Schema FACILITOR@' || USER || ' is now ' || fac.getdbversion() FROM DUAL;
SELECT 'Schema FACILITOR@' || USER || ' is now ' || adm.getdbversion() FROM DUAL;
PROMPT
PROMPT Your schema upgrade is ready. Please check the logfile for errors.
PROMPT If in doubt please contact: FACILITOR Helpdesk +31 53 4800 700
PROMPT Copyright (c) 1992-2014 Facilitor bv, the Netherlands. All rights reserved.
PROMPT Copyright (c) 1992-2015 Facilitor bv, the Netherlands. All rights reserved.
SET DEFINE ON
PROMPT Logfile of this upgrade is: &fcltlogfile
SPOOL OFF

2
_UP/recreate.inc
View File

@@ -65,7 +65,7 @@
/* SETTINGS's */
#include "fac\fac_set.src"
BEGIN fac.registerversion(_VERSIONMAJ, _VERSIONMIN, _VERSIONPATCH, _DBV_STRING, NULL); END;
BEGIN adm.registerversion(_VERSIONMAJ, _VERSIONMIN, _VERSIONPATCH, _DBV_STRING, NULL); END;
/
/* now compile all views, triggers etc acc to the latest state */
BEGIN DBMS_UTILITY.COMPILE_SCHEMA(USER, FALSE); END;