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

Testen of schema leeg is voordat je database aanmaakt voorkomt verkeerd script gebruik

Browse Source 
svn path=/Database/trunk/; revision=59323
This commit is contained in:
Jos Groot Lipman
2023-02-27 08:56:21 +00:00
parent a6174660a0
commit 7abce9f88f
1 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
FCLT.SRC
View File

@@ -22,6 +22,7 @@ spool &fcltlogfile
WHENEVER SQLERROR EXIT;
DECLARE
tekst VARCHAR2 (1000);
n_object NUMBER (10);
BEGIN
CASE ASCII('<27>')
WHEN 191 THEN tekst :='WE8ISO8859P1';
@@ -30,14 +31,21 @@ BEGIN
END CASE;
IF tekst <> 'WE8MSWIN1252' THEN
tekst := '=================================================================' || CHR(10)
|| 'Foute clientside NLS_LANG ['|| TO_CHAR(ASCII('<27>')) ||'] voor deze Facilitor upgrade.' || CHR(10)
|| 'Foute clientside NLS_LANG ['|| TO_CHAR(ASCII('<27>')) ||'] voor dit Facilitor script.' || 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)
|| 'Het script wordt nu afgebroken!' || CHR(10)
|| '=================================================================' || CHR(10);
RAISE_APPLICATION_ERROR(-20000, 'OR'||'A-' || CHR(10) || tekst);
END IF;
SELECT COUNT (*) INTO n_object FROM USER_OBJECTS;
IF (n_object > 0)
THEN
RAISE_APPLICATION_ERROR (-20000, 'OR' || 'A-' || 'Schema ' || USER || ' must be empty before creating database');
END IF;
IF USER = 'SYS' OR USER = 'SYSTEM' THEN
RAISE_APPLICATION_ERROR(-20000, 'Cannot create Facilitor database on user ' || USER);
END IF;
@@ -50,7 +58,7 @@ PROMPT
PROMPT Copyright 1996-2023 Aareon Nederland B.V. All rights reserved.
PROMPT
PROMPT This is the generated list-file of EVALCONCAT(FCLT,_DBV).sql which was used
PROMPT to create the FACILITOR(r) EVALCONCAT(DB,_DBV) schema in Oracle
PROMPT to create the Facilitor(r) EVALCONCAT(DB,_DBV) schema in Oracle
PROMPT
SELECT 'Current os_user: ' || SYS_CONTEXT( 'userenv', 'os_user' ) FROM DUAL;
PROMPT