eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

SYS.DBMS_PREUP dependencies on REGISTRY$

Line 869: 'SELECT edition FROM sys.registry$ WHERE cid=''CATPROC'''

865: db_cpu_threads := pvalue_to_number(tmp_varchar1);
866:
867: BEGIN
868: EXECUTE IMMEDIATE
869: 'SELECT edition FROM sys.registry$ WHERE cid=''CATPROC'''
870: INTO tmp_varchar1;
871: IF tmp_varchar1 = 'XE' THEN
872: db_is_XE := TRUE;
873: END IF; -- XE edition

Line 909: -- in prv_version from registry$ - this allows the

905:
906: IF db_patch_vers = c_version THEN
907: --
908: -- This block will reset db_major_vers to the value
909: -- in prv_version from registry$ - this allows the
910: -- comparision checks to behave correctly.
911: --
912: BEGIN
913: EXECUTE IMMEDIATE 'SELECT version, prv_version FROM sys.registry$

Line 913: EXECUTE IMMEDIATE 'SELECT version, prv_version FROM sys.registry$

909: -- in prv_version from registry$ - this allows the
910: -- comparision checks to behave correctly.
911: --
912: BEGIN
913: EXECUTE IMMEDIATE 'SELECT version, prv_version FROM sys.registry$
914: WHERE cid = ''CATPROC'''
915: INTO t_db_dict_vers, t_db_prev_vers;
916:
917: IF t_db_dict_vers = db_version THEN

Line 932: WHEN NO_DATA_FOUND THEN NULL; -- registry$ exists, but no CATPROC entry

928: db_version := t_db_dict_vers;
929: END IF;
930:
931: EXCEPTION
932: WHEN NO_DATA_FOUND THEN NULL; -- registry$ exists, but no CATPROC entry
933: END;
934: END IF;
935:
936: --

Line 2142: FROM sys.registry$ WHERE namespace =''SERVER''';

2138: -- in use in this database.
2139: --
2140: OPEN reg_cursor FOR
2141: 'SELECT cid, status, version, schema#
2142: FROM sys.registry$ WHERE namespace =''SERVER''';
2143:
2144: LOOP
2145:
2146: FETCH reg_cursor INTO c_cid, n_status, c_version, n_schema;

Line 2865: -- Update registry$database with tz version (create it if necessary)

2861: EXECUTE IMMEDIATE 'SELECT version from v$timezone_file'
2862: INTO db_tz_version;
2863: END IF;
2864: --
2865: -- Update registry$database with tz version (create it if necessary)
2866: --
2867: tmp_bool := FALSE;
2868: IF is_db_readonly = FALSE and NOT db_invalid_state THEN
2869: BEGIN

Line 2871: 'UPDATE registry$database set tz_version = :1'

2867: tmp_bool := FALSE;
2868: IF is_db_readonly = FALSE and NOT db_invalid_state THEN
2869: BEGIN
2870: EXECUTE IMMEDIATE
2871: 'UPDATE registry$database set tz_version = :1'
2872: USING db_tz_version;
2873: COMMIT;
2874: EXCEPTION WHEN OTHERS THEN
2875: IF sqlcode = -904 THEN -- registry$database exists but no tz_version

Line 2875: IF sqlcode = -904 THEN -- registry$database exists but no tz_version

2871: 'UPDATE registry$database set tz_version = :1'
2872: USING db_tz_version;
2873: COMMIT;
2874: EXCEPTION WHEN OTHERS THEN
2875: IF sqlcode = -904 THEN -- registry$database exists but no tz_version
2876: tmp_bool := TRUE;
2877: END IF;
2878: END;
2879:

Line 2883: -- registry$database does not have tz_version,

2879:
2880: IF tmp_bool = TRUE
2881: THEN
2882: --
2883: -- registry$database does not have tz_version,
2884: -- add it here.
2885: --
2886: EXECUTE IMMEDIATE
2887: 'ALTER TABLE registry$database ADD (tz_version NUMBER)';

Line 2887: 'ALTER TABLE registry$database ADD (tz_version NUMBER)';

2883: -- registry$database does not have tz_version,
2884: -- add it here.
2885: --
2886: EXECUTE IMMEDIATE
2887: 'ALTER TABLE registry$database ADD (tz_version NUMBER)';
2888: EXECUTE IMMEDIATE
2889: 'UPDATE registry$database set tz_version = :1'
2890: USING db_tz_version;
2891: COMMIT;

Line 2889: 'UPDATE registry$database set tz_version = :1'

2885: --
2886: EXECUTE IMMEDIATE
2887: 'ALTER TABLE registry$database ADD (tz_version NUMBER)';
2888: EXECUTE IMMEDIATE
2889: 'UPDATE registry$database set tz_version = :1'
2890: USING db_tz_version;
2891: COMMIT;
2892: END IF;
2893:

Line 6719: 'SELECT status FROM sys.registry$ WHERE cid=''AMD''

6715: -- Is AMD around?
6716: --
6717: BEGIN
6718: EXECUTE IMMEDIATE
6719: 'SELECT status FROM sys.registry$ WHERE cid=''AMD''
6720: AND namespace=''SERVER'''
6721: INTO n_status;
6722: EXCEPTION
6723: WHEN OTHERS THEN NULL; -- AMD not in registry

Line 8368: EXECUTE IMMEDIATE 'SELECT NULL FROM sys.registry$ r, v$option o

8364: return c_status_not_for_this_version;
8365: END IF;
8366:
8367: BEGIN
8368: EXECUTE IMMEDIATE 'SELECT NULL FROM sys.registry$ r, v$option o
8369: WHERE r.cid = ''DV'' and r.cname = o.parameter and
8370: o.value = ''TRUE'''
8371: INTO t_null;
8372: status := 1;

Line 8390: htmlentities ('SELECT r.cid FROM sys.registry$ r, v$option o '

8386: || ' and re-enabled after the upgrade.',
8387: 'Database Vault option is enabled.',
8388: 'Disable the Database Vault option prior to Upgrade',
8389: c_dbua_detail_type_sql,
8390: htmlentities ('SELECT r.cid FROM sys.registry$ r, v$option o '
8391: || 'WHERE r.cid = ''DV'' and r.cname = o.parameter and '
8392: || 'o.value = ''TRUE'''),
8393: c_dbua_fixup_type_manual,
8394: c_dbua_fixup_stage_pre );

Line 8451: EXECUTE IMMEDIATE 'SELECT NULL FROM sys.registry$ WHERE cid=''EM''

8447: status NUMBER;
8448: BEGIN
8449:
8450: BEGIN
8451: EXECUTE IMMEDIATE 'SELECT NULL FROM sys.registry$ WHERE cid=''EM''
8452: AND status NOT IN (99,8)'
8453: INTO t_null;
8454: status := 1;
8455: EXCEPTION

Line 8625: 'SELECT status FROM sys.registry$ WHERE (cid=''RUL'' OR cid=''EXF'')

8621: -- before the upgrade.
8622: --
8623: BEGIN
8624: EXECUTE IMMEDIATE
8625: 'SELECT status FROM sys.registry$ WHERE (cid=''RUL'' OR cid=''EXF'')
8626: WHERE namespace=''SERVER'''
8627: INTO n_status;
8628: EXCEPTION
8629: WHEN OTHERS THEN NULL; -- EXF or RUL not in registry

Line 9038: WHERE table_name = ''REGISTRY$SYS_INV_OBJS'''

9034: IF is_db_readonly = FALSE THEN
9035: tbl_exists := 0;
9036: EXECUTE IMMEDIATE
9037: 'SELECT count(*) FROM dba_tables
9038: WHERE table_name = ''REGISTRY$SYS_INV_OBJS'''
9039: INTO tbl_exists;
9040:
9041: IF tbl_exists != 0 -- if registry$sys_inv_objs table exists
9042: THEN

Line 9041: IF tbl_exists != 0 -- if registry$sys_inv_objs table exists

9037: 'SELECT count(*) FROM dba_tables
9038: WHERE table_name = ''REGISTRY$SYS_INV_OBJS'''
9039: INTO tbl_exists;
9040:
9041: IF tbl_exists != 0 -- if registry$sys_inv_objs table exists
9042: THEN
9043: -- Truncate table first
9044: EXECUTE IMMEDIATE 'TRUNCATE TABLE registry$sys_inv_objs';
9045:

Line 9044: EXECUTE IMMEDIATE 'TRUNCATE TABLE registry$sys_inv_objs';

9040:
9041: IF tbl_exists != 0 -- if registry$sys_inv_objs table exists
9042: THEN
9043: -- Truncate table first
9044: EXECUTE IMMEDIATE 'TRUNCATE TABLE registry$sys_inv_objs';
9045:
9046: -- Insert into table
9047: EXECUTE IMMEDIATE
9048: 'INSERT INTO registry$sys_inv_objs

Line 9048: 'INSERT INTO registry$sys_inv_objs

9044: EXECUTE IMMEDIATE 'TRUNCATE TABLE registry$sys_inv_objs';
9045:
9046: -- Insert into table
9047: EXECUTE IMMEDIATE
9048: 'INSERT INTO registry$sys_inv_objs
9049: SELECT owner,object_name,object_type
9050: FROM sys.dba_objects
9051: WHERE status !=''VALID'' AND owner in (''SYS'',''SYSTEM'')
9052: ORDER BY owner';

Line 9057: 'CREATE TABLE registry$sys_inv_objs AS

9053: ELSE
9054: -- Create invalid objects table and populate with all SYS and SYSTEM
9055: -- invalid objects
9056: EXECUTE IMMEDIATE
9057: 'CREATE TABLE registry$sys_inv_objs AS
9058: SELECT owner,object_name,object_type
9059: FROM sys.dba_objects
9060: WHERE status !=''VALID'' AND owner in (''SYS'',''SYSTEM'')
9061: ORDER BY owner';

Line 9062: END IF; -- IF/ELSE registry$sys_inv_objs exists

9058: SELECT owner,object_name,object_type
9059: FROM sys.dba_objects
9060: WHERE status !=''VALID'' AND owner in (''SYS'',''SYSTEM'')
9061: ORDER BY owner';
9062: END IF; -- IF/ELSE registry$sys_inv_objs exists
9063:
9064: -- If there are less than 5000 non-sys invalid objects then create
9065: -- another table with non-SYS/SYSTEM owned objects.
9066: -- If there are more than 5000 total then that is too many

Line 9076: WHERE table_name = ''REGISTRY$NONSYS_INV_OBJS'''

9072: IF nonsys_invalid_objs < 5000 THEN
9073: tbl_exists := 0;
9074: EXECUTE IMMEDIATE
9075: 'SELECT count(*) FROM dba_tables
9076: WHERE table_name = ''REGISTRY$NONSYS_INV_OBJS'''
9077: INTO tbl_exists;
9078:
9079: IF tbl_exists != 0 -- if registry$nonsys_inv_objs table exists
9080: THEN

Line 9079: IF tbl_exists != 0 -- if registry$nonsys_inv_objs table exists

9075: 'SELECT count(*) FROM dba_tables
9076: WHERE table_name = ''REGISTRY$NONSYS_INV_OBJS'''
9077: INTO tbl_exists;
9078:
9079: IF tbl_exists != 0 -- if registry$nonsys_inv_objs table exists
9080: THEN
9081: -- Truncate table first
9082: EXECUTE IMMEDIATE 'TRUNCATE TABLE registry$nonsys_inv_objs';
9083:

Line 9082: EXECUTE IMMEDIATE 'TRUNCATE TABLE registry$nonsys_inv_objs';

9078:
9079: IF tbl_exists != 0 -- if registry$nonsys_inv_objs table exists
9080: THEN
9081: -- Truncate table first
9082: EXECUTE IMMEDIATE 'TRUNCATE TABLE registry$nonsys_inv_objs';
9083:
9084: -- Insert into table next
9085: EXECUTE IMMEDIATE
9086: 'INSERT INTO registry$nonsys_inv_objs

Line 9086: 'INSERT INTO registry$nonsys_inv_objs

9082: EXECUTE IMMEDIATE 'TRUNCATE TABLE registry$nonsys_inv_objs';
9083:
9084: -- Insert into table next
9085: EXECUTE IMMEDIATE
9086: 'INSERT INTO registry$nonsys_inv_objs
9087: SELECT owner,object_name,object_type
9088: FROM sys.dba_objects
9089: WHERE status !=''VALID'' AND owner NOT in (''SYS'',''SYSTEM'')
9090: ORDER BY owner';

Line 9095: 'CREATE TABLE registry$nonsys_inv_objs

9091: ELSE -- if table does not exist
9092: -- Create invalid objects table and populate with non-SYS and
9093: -- non-SYSTEM invalid objects
9094: EXECUTE IMMEDIATE
9095: 'CREATE TABLE registry$nonsys_inv_objs
9096: AS
9097: SELECT owner,object_name,object_type
9098: FROM sys.dba_objects
9099: WHERE status !=''VALID'' AND owner NOT in (''SYS'',''SYSTEM'')

Line 9101: END IF; -- IF/ELSE registry$nonsys_inv_objs exists

9097: SELECT owner,object_name,object_type
9098: FROM sys.dba_objects
9099: WHERE status !=''VALID'' AND owner NOT in (''SYS'',''SYSTEM'')
9100: ORDER BY owner';
9101: END IF; -- IF/ELSE registry$nonsys_inv_objs exists
9102: END IF; -- IF/ELSE nonsys_invalid_objs > 5000
9103: COMMIT;
9104: END IF; -- db NOT readonly
9105:

Line 9116: || ' was written to REGISTRY$SYS_INV_OBJS. Invalid non-SYS/SYSTEM objects'

9112: IF pOutputType = c_output_xml THEN
9113: result_txt:= genDBUAXMLCheck('INVALID_OBJECTS_EXIST',
9114: c_check_level_warning,
9115: 'There are INVALID objects in the database. Invalid SYS/SYSTEM objects'
9116: || ' was written to REGISTRY$SYS_INV_OBJS. Invalid non-SYS/SYSTEM objects'
9117: || ' was written to REGISTRY$NONSYS_INV_OBJS. Use utluiobj.sql after the'
9118: || ' upgrade to identify any new invalid objects due to the upgrade.',
9119: 'Invalid object found in the database.',
9120: 'It is recommended that utlprp.sql be run to attempt to validate objects',

Line 9117: || ' was written to REGISTRY$NONSYS_INV_OBJS. Use utluiobj.sql after the'

9113: result_txt:= genDBUAXMLCheck('INVALID_OBJECTS_EXIST',
9114: c_check_level_warning,
9115: 'There are INVALID objects in the database. Invalid SYS/SYSTEM objects'
9116: || ' was written to REGISTRY$SYS_INV_OBJS. Invalid non-SYS/SYSTEM objects'
9117: || ' was written to REGISTRY$NONSYS_INV_OBJS. Use utluiobj.sql after the'
9118: || ' upgrade to identify any new invalid objects due to the upgrade.',
9119: 'Invalid object found in the database.',
9120: 'It is recommended that utlprp.sql be run to attempt to validate objects',
9121: c_dbua_detail_type_sql,

Line 9122: 'SELECT owner,object_name,object_type from registry$sys_inv_objs',

9118: || ' upgrade to identify any new invalid objects due to the upgrade.',
9119: 'Invalid object found in the database.',
9120: 'It is recommended that utlprp.sql be run to attempt to validate objects',
9121: c_dbua_detail_type_sql,
9122: 'SELECT owner,object_name,object_type from registry$sys_inv_objs',
9123: c_dbua_fixup_type_manual,
9124: c_dbua_fixup_stage_pre);
9125: ELSE
9126: result_txt := INVALID_OBJ_EXIST_gethelp(c_help_overview);

Line 9141: || crlf || ' registry$sys_inv_objs.'

9137: BEGIN
9138: IF HelpType = c_help_overview THEN
9139: return 'WARNING: --> Database contains INVALID objects prior to upgrade' || crlf
9140: || crlf || ' The list of invalid SYS/SYSTEM objects was written to'
9141: || crlf || ' registry$sys_inv_objs.'
9142: || crlf || ' The list of non-SYS/SYSTEM objects was written to'
9143: || crlf || ' registry$nonsys_inv_objs unless there were over 5000.'
9144: || crlf || ' Use utluiobj.sql after the upgrade to identify any new invalid'
9145: || crlf || ' objects due to the upgrade.';

Line 9143: || crlf || ' registry$nonsys_inv_objs unless there were over 5000.'

9139: return 'WARNING: --> Database contains INVALID objects prior to upgrade' || crlf
9140: || crlf || ' The list of invalid SYS/SYSTEM objects was written to'
9141: || crlf || ' registry$sys_inv_objs.'
9142: || crlf || ' The list of non-SYS/SYSTEM objects was written to'
9143: || crlf || ' registry$nonsys_inv_objs unless there were over 5000.'
9144: || crlf || ' Use utluiobj.sql after the upgrade to identify any new invalid'
9145: || crlf || ' objects due to the upgrade.';
9146: ELSIF HelpType = c_help_fixup THEN
9147: return 'Invalid objects are displayed and must be reviewed.';

Line 9220: '(SELECT r.schema# FROM SYS.REGISTRY$ r ' ||

9216: 'WHERE o.OBJ# = t.OBJ# AND c.OBJ# = t.OBJ# ' ||
9217: 'AND c.COL# = t.COL# AND t.INTCOL# = c.INTCOL# ' ||
9218: 'AND BITAND(t.FLAGS, 256) = 256 AND o.OWNER# = u.USER# ' ||
9219: 'AND o.OWNER# in ' ||
9220: '(SELECT r.schema# FROM SYS.REGISTRY$ r ' ||
9221: 'WHERE r.NAMESPACE = ''SERVER'')'
9222: INTO t_count;
9223: EXCEPTION
9224: WHEN NO_DATA_FOUND THEN t_count := 0;

Line 9311: 'AND o.OWNER# in (SELECT r.schema# FROM SYS.REGISTRY$ r ' ||

9307: 'FROM SYS.OBJ$ o, SYS.COL$ c, SYS.COLTYPE$ t, SYS.USER$ u ' ||
9308: 'WHERE o.OBJ# = t.OBJ# AND c.OBJ# = t.OBJ# ' ||
9309: 'AND c.COL# = t.COL# AND t.INTCOL# = c.INTCOL# ' ||
9310: 'AND BITAND(t.FLAGS, 256) = 256 AND o.OWNER# = u.USER# ' ||
9311: 'AND o.OWNER# in (SELECT r.schema# FROM SYS.REGISTRY$ r ' ||
9312: 'WHERE r.NAMESPACE = ''SERVER'')';
9313: LOOP
9314: FETCH t_cursor INTO t_tabname,t_schema;
9315: EXIT WHEN t_cursor%NOTFOUND;

Line 9405: 'SYS.REGISTRY$ r WHERE d.USER_ID = r.SCHEMA# ' ||

9401: 'AND c.COL# = t.COL# AND t.INTCOL# = c.INTCOL# ' ||
9402: 'AND BITAND(t.FLAGS, 256) = 256 AND o.OWNER# = u.USER# ' ||
9403: 'AND o.OWNER# NOT IN ' ||
9404: '(SELECT UNIQUE (d.USER_ID) FROM SYS.DBA_USERS d, ' ||
9405: 'SYS.REGISTRY$ r WHERE d.USER_ID = r.SCHEMA# ' ||
9406: 'AND r.NAMESPACE=''SERVER'')'
9407: INTO t_count;
9408: EXCEPTION
9409: WHEN NO_DATA_FOUND THEN t_count := 0;

Line 9497: 'SYS.DBA_USERS d, SYS.REGISTRY$ r WHERE ' ||

9493: 'WHERE o.OBJ# = t.OBJ# AND c.OBJ# = t.OBJ# ' ||
9494: 'AND c.COL# = t.COL# AND t.INTCOL# = c.INTCOL# ' ||
9495: 'AND BITAND(t.FLAGS, 256) = 256 AND o.OWNER# = u.USER# ' ||
9496: 'AND o.OWNER# NOT IN (SELECT UNIQUE (d.USER_ID) FROM ' ||
9497: 'SYS.DBA_USERS d, SYS.REGISTRY$ r WHERE ' ||
9498: 'd.USER_ID = r.SCHEMA# AND r.NAMESPACE=''SERVER'')';
9499: LOOP
9500: FETCH t_cursor INTO t_tabname,t_schema;
9501: EXIT WHEN t_cursor%NOTFOUND;

Line 10058: EXECUTE IMMEDIATE 'SELECT status FROM sys.registry$ WHERE cid=''OLS''

10054: END IF;
10055:
10056: BEGIN
10057: -- Check if OLS is installed in previous version
10058: EXECUTE IMMEDIATE 'SELECT status FROM sys.registry$ WHERE cid=''OLS''
10059: AND namespace=''SERVER'''
10060: INTO status;
10061: EXCEPTION WHEN OTHERS THEN NULL;
10062: END;

Line 11541: c_cname SYS.REGISTRY$.CNAME%TYPE;

11537: my_components_list VARCHAR2(4000) := ' ';
11538: not_my_components_list VARCHAR2(4000) := ' ';
11539: all_components_mine BOOLEAN := TRUE;
11540: not_my_comps_cursor cursor_t;
11541: c_cname SYS.REGISTRY$.CNAME%TYPE;
11542: select_stmt VARCHAR2(500);
11543: BEGIN
11544: BEGIN
11545: -- construct a quoted and comma separated list of components that will

Line 11556: select_stmt := 'SELECT cname FROM sys.registry$ WHERE namespace=' ||

11552: END IF;
11553: my_components_list := my_components_list || dbms_assert.enquote_literal(cmp_info(i).cid);
11554: END LOOP;
11555:
11556: select_stmt := 'SELECT cname FROM sys.registry$ WHERE namespace=' ||
11557: dbms_assert.enquote_literal('SERVER') ||
11558: ' AND cid NOT IN (' ||
11559: my_components_list ||
11560: ')';

Line 11824: IF (cmp_info(apex).processed = TRUE) THEN -- apex exists in registry$

11820: -- query to execute in this open_cursors check
11821: check_stmt := 'select value from v$parameter where name=''open_cursors''';
11822:
11823: -- we only want to find out what open_cursors value is if apex is in db
11824: IF (cmp_info(apex).processed = TRUE) THEN -- apex exists in registry$
11825: EXECUTE IMMEDIATE
11826: check_stmt
11827: INTO open_cursors;
11828: ELSE

Line 12124: 'FROM sys.registry$ ' ||

12120: -- c) note: it's better to compare #s than strings because apex versions
12121: -- can eventually reach 10.x.x.xx.xx
12122: check_stmt :=
12123: 'SELECT version, to_number(replace(substr(version,1,6), ''.'', '''')) ' ||
12124: 'FROM sys.registry$ ' ||
12125: 'WHERE cid = ''APEX'' and namespace=''SERVER''';
12126:
12127: BEGIN
12128: EXECUTE IMMEDIATE

Line 12165: check_stmt := 'SELECT version FROM sys.registry$ ' ||

12161:
12162: -- if we are here, then current apex version is older than the one in
12163: -- target oracle home
12164: IF pOutputType = c_output_xml THEN
12165: check_stmt := 'SELECT version FROM sys.registry$ ' ||
12166: 'WHERE cid = ''APEX'' and namespace=''SERVER''';
12167:
12168: result_txt:= genDBUAXMLCheck('APEX_UPGRADE_MSG',
12169: c_check_level_info,

Line 12201: check_stmt := 'SELECT version FROM sys.registry$ ' ||

12197: s_version VARCHAR2(20); -- apex version string in db-to-be-upgraded
12198: check_stmt VARCHAR2(200); -- stmt to execute to check condition
12199: BEGIN
12200:
12201: check_stmt := 'SELECT version FROM sys.registry$ ' ||
12202: 'WHERE cid = ''APEX'' and namespace=''SERVER''';
12203:
12204: IF HelpType = c_help_overview THEN
12205: EXECUTE IMMEDIATE

Line 12296: ' FROM sys.registry$ ' ||

12292: ' limit not in (''UNLIMITED'', ''DEFAULT'')) ' ||
12293: ' ) ' ||
12294: ' AND ' || -- criteria (c)
12295: ' 1 = (SELECT count(*) ' ||
12296: ' FROM sys.registry$ ' ||
12297: ' WHERE ' ||
12298: ' upper(cid) = ''CATPROC'' AND ' ||
12299: ' (substr(version, 1, 4) in (''10.2'', ''11.1'', ''11.2'') ' ||
12300: ' OR substr(version, 1, 8) = ''12.1.0.1'') ' ||

Line 12827: -- add an entry to registry$log to indicate preupgrade tool will start to run

12823: END get_npdbs;
12824:
12825:
12826: --
12827: -- add an entry to registry$log to indicate preupgrade tool will start to run
12828: --
12829: PROCEDURE begin_log_preupg_action
12830: IS
12831: PRAGMA AUTONOMOUS_TRANSACTION;

Line 12838: -- only log upgrade entries into registry$log if db is opened for read write

12834: IF tracing_on_xxx THEN
12835: dbms_output.put_line('XXX in begin_log_preupg_action');
12836: END IF;
12837:
12838: -- only log upgrade entries into registry$log if db is opened for read write
12839: IF is_db_readonly = FALSE THEN
12840: IF tracing_on_xxx THEN
12841: dbms_output.put_line('XXX readOnlyMode is 0') ;
12842: END IF;

Line 12846: 'insert into sys.registry$log (cid, namespace, operation, optime) ' ||

12842: END IF;
12843:
12844: BEGIN
12845: sqlString :=
12846: 'insert into sys.registry$log (cid, namespace, operation, optime) ' ||
12847: ' values (''PREUPG_BGN'', ' ||
12848: ' SYS_CONTEXT(''REGISTRY$CTX'', ''NAMESPACE''), -1, SYSTIMESTAMP)';
12849: EXECUTE IMMEDIATE sqlString;
12850: COMMIT;

Line 12848: ' SYS_CONTEXT(''REGISTRY$CTX'', ''NAMESPACE''), -1, SYSTIMESTAMP)';

12844: BEGIN
12845: sqlString :=
12846: 'insert into sys.registry$log (cid, namespace, operation, optime) ' ||
12847: ' values (''PREUPG_BGN'', ' ||
12848: ' SYS_CONTEXT(''REGISTRY$CTX'', ''NAMESPACE''), -1, SYSTIMESTAMP)';
12849: EXECUTE IMMEDIATE sqlString;
12850: COMMIT;
12851: END;
12852: END IF;

Line 12857: -- add an entry to registry$log to indicate preupgrade tool had been run

12853: END begin_log_preupg_action;
12854:
12855:
12856: --
12857: -- add an entry to registry$log to indicate preupgrade tool had been run
12858: --
12859: PROCEDURE end_log_preupg_action
12860: IS
12861: PRAGMA AUTONOMOUS_TRANSACTION;

Line 12871: -- only log upgrade entries into registry$log if db is opened for read write

12867: IF tracing_on_xxx THEN
12868: dbms_output.put_line('XXX in end_log_preupg_action');
12869: END IF;
12870:
12871: -- only log upgrade entries into registry$log if db is opened for read write
12872: IF is_db_readonly = FALSE THEN
12873: IF tracing_on_xxx THEN
12874: dbms_output.put_line('XXX readOnlyMode is 0') ;
12875: END IF;

Line 12879: 'insert into sys.registry$log (cid, namespace, operation, optime) ' ||

12875: END IF;
12876:
12877: BEGIN
12878: sqlString :=
12879: 'insert into sys.registry$log (cid, namespace, operation, optime) ' ||
12880: ' values (''PREUPG_END'', ' ||
12881: ' SYS_CONTEXT(''REGISTRY$CTX'', ''NAMESPACE''), -1, SYSTIMESTAMP)';
12882: EXECUTE IMMEDIATE sqlString;
12883: COMMIT;

Line 12881: ' SYS_CONTEXT(''REGISTRY$CTX'', ''NAMESPACE''), -1, SYSTIMESTAMP)';

12877: BEGIN
12878: sqlString :=
12879: 'insert into sys.registry$log (cid, namespace, operation, optime) ' ||
12880: ' values (''PREUPG_END'', ' ||
12881: ' SYS_CONTEXT(''REGISTRY$CTX'', ''NAMESPACE''), -1, SYSTIMESTAMP)';
12882: EXECUTE IMMEDIATE sqlString;
12883: COMMIT;
12884: END;
12885: END IF;

Line 13273: -- if db is NOT opened in read only mode, then log in registry$log that

13269: dbms_output.put_line('***************************************************************************');
13270: DisplayLinePL('***************************************************************************');
13271:
13272: --
13273: -- if db is NOT opened in read only mode, then log in registry$log that
13274: -- preupgrade tool has been run
13275: --
13276: IF is_db_readonly = FALSE
13277: THEN