[Home] [Help]
2:
3: g_config_handle UTL_FILE.FILE_TYPE := NULL;
4: g_version_category VARCHAR2(10) := NULL;
5:
6: g_dbID v$database.DBID%TYPE := NULL;
7: g_db_version v$instance.version%TYPE := NULL;
8:
9: g_is_cdb VARCHAR2(4) := 'NO';
10:
80: PROCEDURE CHECK_IS_CDB IS
81: BEGIN
82: IF g_version_category = VERSION_12gR1 THEN
83: BEGIN
84: execute immediate 'SELECT UPPER(CDB) FROM V$DATABASE' into g_is_cdb;
85: EXCEPTION
86: WHEN OTHERS THEN
87: null;
88: END;
437: -- current_scn, intrinsic change (not rate!)
438: IF (l_db_version > '10.0.0.0.0') THEN
439: l_sql_text :=
440: 'SELECT d.current_scn, svalue ' ||
441: 'FROM v$database d, ' ||
442: '(SELECT sum(s.value) svalue from v$sysstat s WHERE s.name in (''calls to kcmgas'', ''redo writes''))';
443: EXECUTE IMMEDIATE l_sql_text INTO l_current_scn, l_scn_calls;
444: ELSE
445: l_sql_text :=
513: 'WHERE scn_per_sec = max_scn_per_sec and rownum = 1';
514: EXECUTE IMMEDIATE l_sql_text INTO l_max_jump, l_growth_24hrs, l_max_jump_time;
515: END IF;
516: -- db creation time
517: SELECT to_char(created,'YYYY-MM-DD HH24:MI:SS') INTO l_created FROM v$database;
518:
519: -- reject threshold (may not exist, catch that)
520: BEGIN
521: SELECT value INTO l_reject_thresh FROM v$parameter WHERE name='_external_scn_rejection_threshold_hours';
815: ' os_storage_entity '
816: */
817: ' ''NA'' ' ||
818: ' FROM v$controlfile cf, ' ||
819: ' v$database db ' );
820:
821: END collect_db_controlfiles;
822:
823:
1112: BEGIN
1113: IF g_version_category = VERSION_817 OR
1114: g_version_category = VERSION_9i THEN
1115: write_metric('ha_info',
1116: 'SELECT dbid, log_mode FROM v$database');
1117: END IF;
1118:
1119: IF g_version_category = VERSION_9iR2 THEN
1120: write_metric('ha_info',
1117: END IF;
1118:
1119: IF g_version_category = VERSION_9iR2 THEN
1120: write_metric('ha_info',
1121: 'SELECT dbid, log_mode, force_logging, database_role FROM v$database');
1122: END IF;
1123:
1124: IF g_version_category = VERSION_10gR1
1125: OR g_version_category = VERSION_10gR2
1127: OR g_version_category = VERSION_11gR2
1128: OR g_version_category = VERSION_12gR1
1129: OR g_version_category = HIGHER_SUPPORTED_VERSION THEN
1130: write_metric('ha_info',
1131: 'SELECT dbid, log_mode, force_logging, database_role, flashback_on, supplemental_log_data_min FROM v$database');
1132: END IF;
1133: END collect_ha_info;
1134:
1135:
1274: ' c.version' ||
1275: l_banner_bitrelstr_clause ||
1276: l_supplemental_log ||
1277: l_dv_status ||
1278: ' FROM gv$database a, ' ||
1279: ' gv$version b, ' ||
1280: ' gv$instance c, ' ||
1281: ' global_name e,' ||
1282: ' gv$nls_parameters nlsp1 , ' ||
1340: 'then -1 ' || -- Not Configured
1341: 'else -2 ' || -- Not Installed
1342: 'end ' ||
1343: 'end ' ||
1344: 'FROM gv$database a, ' ||
1345: 'gv$version b, ' ||
1346: 'gv$instance c, ' ||
1347: 'CDB_PROPERTIES e, ' ||
1348: 'gv$nls_parameters nlsp1, ' ||
2144: OR g_version_category = VERSION_12gR1
2145: OR g_version_category = HIGHER_SUPPORTED_VERSION THEN
2146: write_metric('high_water_mark_stats',
2147: 'SELECT s.DBID, s.NAME, s.VERSION, s.HIGHWATER, s.LAST_VALUE '||
2148: ' FROM DBA_HIGH_WATER_MARK_STATISTICS s, V$DATABASE d '||
2149: ' where s.version in ( select max(version) from dba_high_water_mark_statistics ) ' ||
2150: ' and s.dbid = d.dbid');
2151: END IF;
2152: END collect_high_water_mark_stats;
2160: BEGIN
2161: write_metric('cdb_high_water_mark_stats',
2162: 'WITH pdbs AS (SELECT DISTINCT con_id, name pdb FROM gv$containers where con_id != 2) ' ||
2163: 'SELECT p.pdb, s.DBID, s.NAME, s.VERSION, s.HIGHWATER, s.LAST_VALUE ' ||
2164: 'FROM CDB_HIGH_WATER_MARK_STATISTICS s, V$DATABASE d, pdbs p ' ||
2165: 'WHERE s.version in ( SELECT max(version) FROM dba_high_water_mark_statistics ) ' ||
2166: 'AND s.dbid = d.dbid ' ||
2167: 'AND s.con_id = p.con_id');
2168: END collect_cdb_hwm_stats;
2603: /*
2604: get the destination file name
2605: */
2606: FUNCTION get_dest_file_name(p_ext IN VARCHAR2 DEFAULT '.ll') RETURN VARCHAR2 IS
2607: l_db_name v$database.name%TYPE;
2608: l_par v$instance.PARALLEL%TYPE;
2609: BEGIN
2610: SELECT name into l_db_name FROM v$database ;
2611: /*
2606: FUNCTION get_dest_file_name(p_ext IN VARCHAR2 DEFAULT '.ll') RETURN VARCHAR2 IS
2607: l_db_name v$database.name%TYPE;
2608: l_par v$instance.PARALLEL%TYPE;
2609: BEGIN
2610: SELECT name into l_db_name FROM v$database ;
2611: /*
2612: Check if the database is running in RAC mode.
2613: If so, name the file as
2614: */
2746: procedure collect_config_metrics(directory_location IN VARCHAR2,
2747: raise_exp BOOLEAN DEFAULT FALSE) IS
2748: BEGIN
2749: BEGIN
2750: select dbid into g_dbID from v$database;
2751: select version into g_db_version from v$instance;
2752:
2753: g_version_category := get_version_category();
2754: IF g_version_category != NOT_SUPPORTED_VERSION THEN
2794: procedure collect_stats_metrics(directory_location IN VARCHAR2,
2795: raise_exp BOOLEAN DEFAULT FALSE) IS
2796: BEGIN
2797: BEGIN
2798: select dbid into g_dbID from v$database;
2799: select version into g_db_version from v$instance;
2800:
2801: g_version_category := get_version_category();
2802: IF g_version_category != NOT_SUPPORTED_VERSION THEN
2901: procedure write_db_ccr_file(directory_location IN VARCHAR2,
2902: raise_exp BOOLEAN DEFAULT FALSE) IS
2903: BEGIN
2904: BEGIN
2905: select dbid into g_dbID from v$database;
2906: select version into g_db_version from v$instance;
2907:
2908: g_version_category := get_version_category();
2909: IF g_version_category != NOT_SUPPORTED_VERSION THEN