oracle ktsj,Oracle数据字典一致性鉴别

最新推荐文章于 2021-05-28 12:27:13 发布

weixin_39841825

最新推荐文章于 2021-05-28 12:27:13 发布

阅读量667

点赞数

文章标签： oracle ktsj

数据字典(dd)一致性鉴别

dd损坏通常包括：

1. Data Dictionary Inconsistency, missing rows in tables:

- Tab$/Ind$ with no entries in OBJ$

- Undo$/Tab$/Ind$ with no entries in SEG$

- Seg$ with no entries in TAB$/IND$/OBJ$

tab$和ind$的条目在OBJ$中不存在；Undo$/Tab$/Ind$的条目在SEG$中不存在；Seg$的条目在TAB$/IND$/OBJ$中不存在

2. Missing data dictionary objects

DD对象丢失

3. Corrupted data dictionary objects (table, index, or table-index inconsistency)

DD对象损坏

4. Invalid entries in data dictionary tables.

DD表中存在无效对象

1. Identifying Objects with Data Dictionary Inconsistency

首先需要安装hcheck包，参见Note136697.1

In order to detect data dictionary inconsistency we need to run hcheck.full procedure, see Note 136697.1.

a. Connect as SYS schema in sqlplus

b. Create package hOut as described in Note 101468.1 先创建hOut包，该包主要用于控制hcheck系列程序的输出，见附件hout.sql

c. Create package hcheck in SYS schema as described in Note 136697.1 attachment.

d. set serveroutput on

c. execute hcheck.full

The script will report various dictionary related issues that may or may not be a problem.

Any problems reported should be reviewed by an experienced support analyst as some

reported "problems" may be normal and expected.

Example of HCHECK.FULL output:

Problem: Orphaned IND$ (no SEG$) - See Note 65987.1 (Bug:624613/3655873)

ORPHAN IND$: OBJ=200449 DOBJ=200449 TS=0 RFILE/BLOCK=0 0 BO#=200446 SegType=

^- May be OK. Needs manual check

ORPHAN IND$: OBJ=39442 DOBJ=39442 TS=14 RFILE/BLOCK=2 49 BO#=39438 SegType=

Problem: Orphaned TAB$ (no SEG$)

ORPHAN TAB$: OBJ=1817074 DOBJ=0 TS=0 RFILE/BLOCK=0 0 BOBJ#= SegType=

^- May be OK. Needs manual check

ORPHAN TAB$: OBJ=2149126 DOBJ=2149126 TS=19 RFILE/BLOCK=31 44291 BOBJ#= SegType=

Problem: Orphaned SEG$ Entry

ORPHAN SEG$: SegType=INDEX TS=20 RFILE/BLOCK=33 28435

Based on the hcheck.full output you will have to identify the objects that show a dd inconsistency, and verify the reported inconsistency.

Select name,type# from obj$ where obj#=; /* 1=INDEX, 2=TABLE, 3=CLUSTER, 21=LOB, 25=IOT

Select object_name,owner,object_type from dba_objects where object_id=;

Some of the problems, mainly the one marked as 'May be OK. Needs manual check ' could be a false alarm.

注意有些alarm未必是真的存在问题。

Check the type of the object.

Lob Index on temporary table or IOT do not have a segment, than the problem message is a false alarm.

例如：临时表的LOB索引或者IOT表的索引不存在段，但是hcheck会抛出一个alarm。

附：

1.hout.sql

***Checked for relevance on 27-MAR-2013***

REM ======================================================================

REM hout.sql Version 1.1 29 Dec 2000

REM

REM Purpose:

REM To provide an output package for the h*.sql series of scripts.

REM All h*.sql scripts use this package to output their results

REM This allows one package to control where output is sent

REM to.

REM Eg: This package can be coded to output to DBMS_OUTPUT

REM or to use the UTL_FILE calls if required.

REM

REM This version of the script can write to both DBMS_OUTPUT and

REM to the users trace file.

REM

REM Usage:

REM See Note:101466.1 for details of using this and other h* packages

REM

REM Depends on:

REM dbms_output , dbms_system

REM

REM Notes:

REM Must be installed in SYS schema

REM For Oracle 7.3, 8.0, 8.1, 9.0, 9.2, 10.1, 10.2, 11.1 and 11.2

REM server versions

REM

REM CAUTION

REM The sample program in this article is provided for educational

REM purposes only and is NOT supported by Oracle Support Services.

REM It has been tested internally, however, and works as documented.

REM We do not guarantee that it will work for you, so be sure to test

REM it in your environment before relying on it.

REM

REM ======================================================================

REM

create or replace package hOut as

-- Output options - change these to default as required

-- You can override them at run time if required.

TO_DBMS_OUTPUT boolean := TRUE; -- Send output to DBMS_OUTPUT

TO_USER_TRACE boolean := TRUE; -- Send output to user trace file

IGNORE_ERRORS boolean := TRUE; -- Ignore DBMS_OUTPUT errors if

-- also writing to the trace file

-- Output methods

procedure put_line(txt varchar2);

procedure put(txt varchar2);

procedure new_line;

procedure wrap(txt varchar2, linelen number default 78);

procedure rule_off;

end hOut;

show errors

create or replace package body hOut as

-- 7.3 has problems with ksdwrt as it uses the wrong length info

-- putting nonsense on the end of lines.

-- As a workaround we copy the text to a TMP varchar, append a chr(0)

-- then reset the length back so we have an hidden chr(0) at the end

-- of the string.

tmp varchar2(2001);

APP_EXCEPTION EXCEPTION;

pragma exception_init(APP_EXCEPTION, -20000);

procedure put_line(txt varchar2) is

begin

tmp:=txt||chr(0);

tmp:=txt;

if TO_DBMS_OUTPUT then

begin

dbms_output.put_line(txt);

exception

when APP_EXCEPTION then

-- If DBMS_OUTPUT is full then carry on if we are writing to

-- the trace file and ignoring errors, otherwise error now

if TO_USER_TRACE and IGNORE_ERRORS then

begin

dbms_output.put_line('[TRUNCATED]');

exception

when APP_EXCEPTION then

null;

end;

else

raise;

end if;

end;

end if;

if TO_USER_TRACE then

dbms_system.ksdwrt(1,tmp);

end if;

end;

procedure put(txt varchar2) is

begin

tmp:=txt||chr(0);

tmp:=txt;

if TO_DBMS_OUTPUT then

begin

dbms_output.put(txt);

exception

when APP_EXCEPTION then

-- If DBMS_OUTPUT is full then carry on if we are writing to

-- the trace file and ignoring errors, otherwise error now

if TO_USER_TRACE and IGNORE_ERRORS then

begin

dbms_output.put('[TRUNCATED]');

exception

when APP_EXCEPTION then

null;

end;

else

raise;

end if;

end;

end if;

if TO_USER_TRACE then

dbms_system.ksdwrt(1,tmp);

end if;

end;

procedure new_line is

begin

if TO_DBMS_OUTPUT then

begin

dbms_output.new_line;

exception

when APP_EXCEPTION then

if TO_USER_TRACE and IGNORE_ERRORS then

null;

else

raise;

end if;

end;

end if;

if TO_USER_TRACE then

dbms_system.ksdwrt(1,' ');

end if;

end;

procedure wrap(txt varchar2, linelen number default 78) is

p integer:=1;

len integer;

pos integer;

chunk varchar2(2000);

xchunk varchar2(2000);

llen number:=linelen;

BEGIN

if (llen>2000) then

llen:=2000;

end if;

if (llen<=1) then

llen:=78;

end if;

len:=length(txt);

while (p<=len) loop

chunk:=substr(txt,p,llen);

pos:=instr(chunk,chr(10),-1);

if pos>0 then

-- We have a CR in the text - use it

put_line(substr(chunk,1,pos-1));

p:=p+pos;

else

-- No CR in the text so we will look for a split character

xchunk:=translate(chunk,' ,()=',',,,,,');

pos:=instr(xchunk,',',-1);

if pos>0 and len>llen then

put_line(substr(chunk,1,pos));

p:=p+pos;

else

put(chunk);

p:=p+llen;

end if;

end loop;

new_line;

END;

procedure rule_off is

begin

put_line('=========================================================');

end;

begin

dbms_output.enable(100000);

end hout;

REM ====================

2.hcheck使用方法

SQL> set serveroutput on size unlimited

SQL> spool outputfile

SQL> execute hcheck.full

SQL> spool off

3.安装hcheck

先安装hOut，再安装hcheck2.sql(for 8i��不能运行于9I数据库)或hcheck3.sql(for 9i+)

4.hcheck3.sql

--------------------------------------------------------------------------

-- hcheck.sql Version 3.50 Tue Mar 26 14:20:38 CEST 2013

-- Purpose:

-- To provide a single package which looks for common data dictionary

-- problems.

-- Note that this version has not been checked with locally managed

-- tablespaces and may give spurious output if these are in use.

-- This script is for use mainly under the guidance of Oracle Support.

-- Usage:

-- SQL> set serverout on size unlimited

-- SQL> exec hcheck.full [(parameters)]

-- Where parameters are

-- Verbose In Boolean - Verbose Output

-- RunAll In Boolean - Run All procedures despite of Release

-- VerChk In Number - Check against 1st 'VerChk' release numbers

-- Output is to the hOut package to allow output to be redirected

-- as required

-- Depends on:

-- hOut

-- Notes:

-- Must be installed in SYS schema

-- This package is intended for use in Oracle releases 9i onwards

-- This package will NOT work in 8i or earlier.

-- In all cases any output reporting "problems" should be

-- parsed by an experienced Oracle Support analyst to confirm

-- if any action is required.

-- CAUTION

-- The sample program in this article is provided for educational

-- purposes only and is NOT supported by Oracle Support Services.

-- It has been tested internally, however, and works as documented.

-- We do not guarantee that it will work for you, so be sure to test

-- it in your environment before relying on it.

--------------------------------------------------------------------------

Create Or Replace Package hcheck Is

Type sFuncNam Is Table Of Varchar2(32) Index By Binary_integer ;

Type sFuncRel Is Table Of Varchar2(32) Index By Binary_integer ;

sFn sFuncNam ; /* Function Names */

sFr sFuncRel ; /* Version Control: Fixed Release per function */

-- Procedure Definitions

Procedure SynLastDDLTim

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 1 */

Procedure LobNotInObj

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 2 */

Procedure MissingOIDOnObjCol

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 3 */

Procedure SourceNotInObj

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 4 */

Procedure IndIndparMismatch

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 5 */

Procedure InvCorrAudit

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 6 */

Procedure OversizedFiles

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 7 */

Procedure TinyFiles

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 8 */

Procedure PoorDefaultStorage

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 9 */

Procedure PoorStorage

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 10 */

Procedure MissTabSubPart

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 11 */

Procedure PartSubPartMismatch

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 12 */

Procedure TabPartCountMismatch

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 13 */

Procedure OrphanedTabComPart

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 14 */

Procedure ZeroTabSubPart

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 15 */

Procedure MissingSum$

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 16 */

Procedure MissingDir$

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 17 */

Procedure DuplicateDataobj

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 18 */

Procedure ObjSynMissing

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 19 */

Procedure ObjSeqMissing

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 20 */

Procedure OrphanedUndo

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 22 */

Procedure OrphanedIndex

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 21 */

Procedure OrphanedIndexPartition

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 23 */

Procedure OrphanedIndexSubPartition

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 24 */

Procedure OrphanedTable

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 25 */

Procedure OrphanedTablePartition

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 26 */

Procedure OrphanedTableSubPartition

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 27 */

Procedure MissingPartCol

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 28 */

Procedure OrphanedSeg$

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 29 */

Procedure OrphanedIndPartObj#

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 30 */

Procedure DuplicateBlockUse

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 31 */

Procedure HighObjectIds

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 32 */

Procedure PQsequence

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 33 */

Procedure TruncatedCluster

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 34 */

Procedure FetUet

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 35 */

Procedure Uet0Check

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 36 */

Procedure ExtentlessSeg

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 37 */

Procedure SeglessUET

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 38 */

Procedure BadInd$

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 39 */

Procedure BadTab$

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 40 */

Procedure BadIcolDepCnt

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 41 */

Procedure WarnIcolDep

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 42 */

Procedure OnlineRebuild$

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 43 */

Procedure DropForceType

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 44 */

Procedure TrgAfterUpgrade

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 45 */

Procedure FailedInitJVMRun

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 46 */

Procedure TypeReusedAfterDrop

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 47 */

Procedure Idgen1$TTS

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 48 */

Procedure DroppedFuncIdx

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 49 */

Procedure BadOwner

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 50 */

Procedure UpgCheckc0801070

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 51 */

Procedure BadPublicObjects

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 52 */

Procedure BadSegFreelist

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 53 */

Procedure BadCol#

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 54 */

Procedure BadDepends

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 55 */

Procedure CheckDual

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 56 */

Procedure ObjectNames

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 57 */

Procedure BadCboHiLo

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 58 */

Procedure ChkIotTs

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 59 */

Procedure NoSegmentIndex

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 60 */

Procedure BadNextObject

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 61 */

Procedure OrphanIndopt

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 62 */

Procedure UpgFlgBitTmp

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 63 */

Procedure RenCharView

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 64 */

Procedure Upg9iTab$

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 65 */

Procedure Upg9iTsInd

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 66 */

Procedure Upg10gInd$

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 67 */

Procedure DroppedROTS

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 68 */

Procedure ChrLenSmtcs

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 69 */

Procedure FilBlkZero

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 70 */

Procedure DbmsSchemaCopy

(nF In Number Default 0, VerChk In Number Default 5,

Verbose In Boolean Default FALSE) ; /* 71 */

bRun Boolean ;

nFunc Number := 71 ; /* should be equal-to, not one-greater-than, the */

/* highest expected number of procedures to be run */

-- Function CatV2nCatV ( s In Varchar2, n in Number default 5 ) Return Number ;

-- Procedure ChecknCatVnFR ( nCatV In Number, nFR In Number ) ;

-- Main

Procedure Full (Verbose In Boolean Default FALSE,

RunAll In Boolean Default FALSE,

VerChk In Number Default 5) ;

End hcheck;

Create Or Replace Package Body hcheck Is

Ver Varchar2(10) := '9i+/hc3.50';

Warn Number :=0 ;

Fatal Number :=0 ;

CatV Varchar2(10) ;

nCatV Number :=0 ;

Verbose Boolean ;

nFR Number :=0 ; /* Fixed Release */

Function InitsFr Return sFuncRel Is

AllReleases Varchar2(32) := '99.99.99.99.99' ;

Begin

-- Highest Relevant Release For Functions

-- If check against all releases, specify '99.99.99.99.99'

sFr (0) := AllReleases ; /* 0 */

sFr (1) := '10.1.0.2.0' ; /* 1 */

sFr (2) := '10.0.0.2.0' ; /* 2 */

sFr (3) := AllReleases ; /* 3 */

sFr (4) := '10.2.0.1.0' ; /* 4 */

sFr (5) := '11.2.0.1.0' ; /* 5 */

sFr (6) := '11.2.0.1.0' ; /* 6 */

sFr (7) := AllReleases ; /* 7 */

sFr (8) := '9.0.1.0.0' ; /* 8 */

sFr (9) := AllReleases ; /* 9 */

sFr(10) := AllReleases ; /* 10 */

sFr(11) := '9.0.1.0.0' ; /* 11 */

sFr(12) := '11.2.0.1.0' ; /* 12 */

sFr(13) := AllReleases ; /* 13 */

sFr(14) := '9.0.1.0.0' ; /* 13 */

sFr(15) := '9.2.0.1.0' ; /* 15 */

sFr(16) := AllReleases ; /* 16 */

sFr(17) := AllReleases ; /* 17 */

sFr(18) := AllReleases ; /* 18 */

sFr(19) := AllReleases ; /* 19 */

sFr(20) := AllReleases ; /* 20 */

sFr(21) := AllReleases ; /* 21 */

sFr(22) := AllReleases ; /* 22 */

sFr(23) := AllReleases ; /* 23 */

sFr(24) := AllReleases ; /* 24 */

sFr(25) := AllReleases ; /* 25 */

sFr(26) := AllReleases ; /* 26 */

sFr(27) := AllReleases ; /* 27 */

sFr(28) := AllReleases ; /* 28 */

sFr(29) := AllReleases ; /* 29 */

sFr(30) := '11.1.0.6.0' ; /* 30 */

sFr(31) := AllReleases ; /* 31 */

sFr(32) := '8.1.6.0.0' ; /* 32 */

sFr(33) := '8.0.6.0.0' ; /* 33 */

sFr(34) := '8.1.7.0.0' ; /* 34 */

sFr(35) := AllReleases ; /* 35 */

sFr(36) := AllReleases ; /* 36 */

sFr(37) := AllReleases ; /* 37 */

sFr(38) := AllReleases ; /* 38 */

sFr(39) := AllReleases ; /* 39 */

sFr(40) := AllReleases ; /* 40 */

sFr(41) := '11.1.0.7.0' ; /* 41 */

sFr(42) := '11.1.0.7.0' ; /* 42 */

sFr(43) := AllReleases ; /* 43 */

sFr(44) := '10.1.0.2.0' ; /* 44 */

sFr(45) := AllReleases ; /* 45 */

sFr(46) := AllReleases ; /* 46 */

sFr(47) := '9.0.1.0.0' ; /* 47 */

sFr(48) := '9.0.1.0.0' ; /* 48 */

sFr(49) := '9.2.0.1.0' ; /* 49 */

sFr(50) := '9.0.1.0.0' ; /* 50 */

sFr(51) := AllReleases ; /* 51 */

sFr(52) := AllReleases ; /* 52 */

sFr(53) := AllReleases ; /* 53 */

sFr(54) := '10.1.0.2.0' ; /* 54 */

sFr(55) := AllReleases ; /* 55 */

sFr(56) := AllReleases ; /* 56 */

sFr(57) := AllReleases ; /* 57 */

sFr(58) := AllReleases ; /* 58 */

sFr(59) := AllReleases ; /* 59 */

sFr(60) := AllReleases ; /* 60 */

sFr(61) := AllReleases ; /* 61 */

sFr(62) := '9.2.0.8.0' ; /* 62 */

sFr(63) := '10.1.0.1.0' ; /* 63 */

sFr(64) := '10.1.0.1.0' ; /* 64 */

sFr(65) := '9.2.0.4.0' ; /* 65 */

sFr(66) := '9.2.0.5.0' ; /* 66 */

sFr(67) := '10.2.0.0.0' ; /* 67 */

sFr(68) := AllReleases ; /* 68 */

sFr(69) := '11.1.0.6.0' ; /* 69 */

sFr(70) := AllReleases ; /* 70 */

sFr(71) := AllReleases ; /* 70 */

Return sFr ;

End ;

Function Owner (uid Number) Return Varchar2 Is

r Varchar2(30) := Null ;

Begin

Select name Into r

From user$

where user# = uid ;

return r ;

Exception

When NO_DATA_FOUND Then

Return ( '*UnknownOwnID='||uid||'*' ) ;

End ;

Function ObjName (objid Number) Return Varchar2 Is

r Varchar2(30) := Null ;

own Number ;

Begin

Select name, owner# Into r, own

From obj$

Where Obj# = objid ;

return r ;

Exception

When NO_DATA_FOUND Then

Return ( '*UnknownObjID='||objid||'*' ) ;

End ;

Function IsLastPartition( o number ) Return Boolean Is

n Number := 0 ;

Begin

Select partcnt Into n From partobj$ where obj#=o ;

If ( n>1 ) Then

Return(FALSE) ;

Else

Return(TRUE) ;

End If ;

End;

Function ObjectIsTemporary( o Number ) Return Boolean

-- Return TRUE if object is a TEMPORARY object

-- Return NULL if object does not exist

-- Return FALSE if object is not temporary

Cursor cIsTemp Is

Select Bitand(nvl(flags,0), 2) IsTemp From obj$ Where obj#=o

;

ret Boolean := FALSE ;

begin

For R in cIsTemp Loop -- For loop just to keep cursor closed

If ( R.IsTemp=2 ) Then

ret := TRUE ;

End If;

End Loop ;

return ret ;

End;

Procedure DictAt( ts number, fi number, bl number ) is

Cursor cDictAt is

select typ, ts#,file#,block#,count('x') CNT

from (

select 'UNDO$' typ, u.ts#, u.file#, u.block# from undo$ u

where decode(u.status$,1,null,u.status$) is not null

UNION ALL

select 'TAB$' typ, a.ts#,a.file#,a.block# from tab$ a

UNION ALL

select 'CLU$' typ, b.ts#,b.file#,b.block# from clu$ b

UNION ALL

select 'TABPART$' typ, c.ts#,c.file#,c.block# from tabpart$ c

UNION ALL

select 'TABSUBPART$' typ, d.ts#,d.file#,d.block# from tabsubpart$ d

UNION ALL

select 'IND$' typ, e.ts#,e.file#,e.block# from ind$ e

UNION ALL

select 'INDPART$' typ, f.ts#,f.file#,f.block# from indpart$ f

UNION ALL

select 'INDSUBPART$' typ, g.ts#,g.file#,g.block# from indsubpart$ g

UNION ALL

select 'LOB$' typ, h.ts#,h.file#,h.block# from lob$ h

UNION ALL

select 'LOBFRAG$' typ, i.ts#,i.file#,i.block# from lobfrag$ i

-- UNION ALL

-- select 'RECYCLEBIN$' typ, j.ts#,j.file#,j.block# from recyclebin$ j

)

where ts#= TS and file# = FI and block#= BL

group by typ, ts#,file#,block#

;

Begin

For R in cDictAt

Loop

hout.put_line('^ '||R.typ||' has '||R.cnt||' rows');

End Loop;

End;

function IndexIsNosegment( o number ) return boolean is

Cursor cX is

select bitand(flags,4096) noseg from ind$ where obj#=o;

ret boolean:=null;

begin

For C in cX

loop

if C.noseg=4096 then

ret:=true;

else

ret:=false;

end if;

end loop;

return ret; /* true/false or NULL if not found */

end;

Procedure CheckIndPart( o number ) is

Cursor Cchk is

select i.obj#, i.dataobj#, i.ts#, i.file#, i.block#

from indpart$ i

where i.bo#=o

and (i.file#!=0 OR i.block#!=0);

begin

For R in Cchk Loop

hout.put_line(' ^- PROBLEM: Child INDPART$ with FILE/BLK (bug 4683380)');

hout.put_line(' ^- ( OBJ='||R.obj#|| ' DOBJ='||r.dataobj#||

' TS='||r.TS#||

' RFILE/BLOCK='||r.file#||' '||r.block#||')' );

Fatal:=Fatal+1;

end loop;

end;

Procedure ChecknCatVnFR ( nCatV In Number,

nFR In Number,

bRun In Out Boolean) Is

str1 Varchar2(10) := To_Char(nCatV) ;

str2 Varchar2(10) := To_Char(nFR) ;

Begin

Case

When ( nCatV = 0 ) Then

str1 := '*Any Rel*' ;

Else

Null ;

End Case ;

Case

When ( nFR = 9999999999 ) Then

str2 := '*All Rel*' ;

Else

Null ;

End Case ;

If ( nCatV > nFR ) Then

hout.put_line(Rpad(nCatv,10,' ')||' > '||Lpad(nFR,11,' ')||' : n/a');

bRun := FALSE ;

return ;

Else

hout.put_line(Rpad(str1,10,' ')||' <='||Lpad(str2,11,' ')||' : Ok') ;

bRun := TRUE ;

End If ;

End ;

Procedure strtok (tok In Out Varchar2, s In Out Varchar2, ct In Varchar2) Is

i Pls_integer ;

p Pls_integer ;

len Pls_integer ;

token_start Pls_integer ;

intoken Boolean := FALSE ;

Begin

-- dbms_output.put_line ( 'strtok string: '||s ) ;

If ( s Is Not NULL ) Then

len := length( s ) ;

i := 1 ;

While ( i <= len ) Loop

p := instr( ct, substr(s,i,1) );

If ( ( i = len ) Or ( p > 0 ) ) Then

If ( intoken ) Then

If ( p > 0 ) Then

tok := substr( s, token_start, i - token_start ) ;

s := substr( s, i+1 ) ;

Else

tok := substr( s, token_start, i - token_start + 1 ) ;

s := '' ;

End If ;

Exit When TRUE ;

End If ;

Elsif ( Not intoken ) Then

intoken := true ;

token_start := i ;

End If;

tok := s ;

i := i + 1 ;

End Loop;

End if;

End;

Function CatV2nCatV ( s In Varchar2, n in Number default 5 ) Return Number As

type tok is table of Number index by binary_integer ;

tk tok ;

scp varchar2(16) ;

i number := 1 ;

scv Varchar2(16) := Null ;

Begin

scp := s ;

for i in 1..n loop

tk(i) := Null ;

strtok( tk(i), scp, '.' );

scv := scv || Lpad(tk(i),2,'0') ;

end loop ;

return To_Number(scv) ;

end;

Procedure SynLastDDLTim

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select Distinct o.obj#, o.owner#, o.name

From obj$ o, idl_ub1$ i

Where type# = 5

And ctime != mtime

And i.obj# = o.obj# /* Has IDL information */

;

nFr Number ;

ps1 Varchar2(10) := 'HCKW-0001' ;

ps1a Varchar2(65) :=

'Synonym''s LAST_DDL_TIME != CREATED' ;

bug1 Varchar2(80) :=

'Ref : Bug:2371453' ;

aff1 Varchar2(80) := 'Affects: Vers >=8.1.7.2 and BELOW 10.1 - '||

'Specifically: 8.1.7.4 9.0.1.3 9.2.0.1' ;

fix1 Varchar2(80) :=

'Fixed : 8.1.7.5 9.0.1.4 9.2.0.2 10.1.0.2' ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note: 2371453.8 - CREATE OR REPLACE SYNONYM can lead to inconsistent';

not2 Varchar2(80) :=

' dictionary (old IDL data)' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

if (not2 Is Not Null) Then hout.put_line(not2); not2:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line(' OBJ#='||c1.OBJ#||' Name='||Owner(c1.owner#)||'.'||

c1.name);

Warn := Warn + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End ;

Procedure LobNotInObj

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

nFr Number ;

Cursor sCur1 Is

Select l.obj#, l.lobj#

From lob$ l, obj$ o

Where l.lobj# = o.obj#(+)

And o.obj# is null

;

ps1 Varchar2(10) := 'HCKE-0001' ;

ps1a Varchar2(65) := 'LOB$.LOBJ# not found in OBJ$' ;

bug1 Varchar2(80) :=

'Ref : Bug:2405258' ;

aff1 Varchar2(80) :=

'Affects: Vers >=8 and BELOW 10.1 - Specifically: 9.2.0.1' ;

fix1 Varchar2(80) :=

'Fixed : 9.2.0.2 10.1.0.2' ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note: 2405258.8 - Dictionary corruption / OERI(15265) from MOVE LOB' ;

not2 Varchar2(80) :=

' to existing segment name' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 In sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

if (not2 Is Not Null) Then hout.put_line(not2); not2:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line(' LOB$.LOBJ# has no OBJ$ entry for LOBJ#='||c1.lobj#||

' (OBJ#='||c1.obj#||')');

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End ;

Procedure MissingOIDOnObjCol

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

nFr Number ;

Cursor sCur1 Is

Select o.obj# , o.type#, o.owner#, o.name, c.col#, c.intcol#,

c.name cname, t.property

From obj$ o, col$ c, coltype$ ct, oid$ oi, tab$ t

Where o.obj# = ct.obj#

And ct.obj# = c.obj#

And ct.col# = c.col#

And ct.intcol# = c.intcol#

And oi.oid$(+) = ct.toid

And o.obj# = t.obj#(+)

And oi.oid$ is null

;

ps1 Varchar2(10) := 'HCKE-0002' ;

ps1a Varchar2(65) := 'Object type column with missing OID$' ;

bug1 Varchar2(80) :=

'Ref : Bug:2728624' ;

aff1 Varchar2(80) :=

'Affects: Closed as not a Bug (92)' ;

fix1 Varchar2(80) :=

'Fixed : See Note.229583.1 for patching steps' ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note.229583.1 - Bug:2728624 - Confirmation and Patching Notes' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 In sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line(' OBJ#='||c1.obj#||' Name='||Owner(c1.owner#)||'.'

||c1.name||' IntCol#='||c1.intcol#||'='||c1.cname

||' TabProp='||c1.property);

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End ;

Procedure SourceNotInObj

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

nFr Number ;

Cursor sCur1 Is

Select Count('x') cnt, Count(Distinct s.obj#) nobj

From source$ s, obj$ o

Where s.obj# = o.obj#(+)

And o.obj# is null

Having Count('x') > 0

;

ps1 Varchar2(10) := 'HCKE-0003' ;

ps1a Varchar2(65) := 'SOURCE$ for OBJ# not in OBJ$' ;

bug1 Varchar2(80) :=

'Ref : Bug:3532977' ;

aff1 Varchar2(80) :=

'Affects: Vers BELOW 10.2 Specifically: 9.2.0.4 10.1.0.4' ;

fix1 Varchar2(80) :=

'Fixed : 9.2.0.8 10.1.0.5 10.2.0.1' ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 In sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('SOURCE$ has '||c1.cnt||

' rows for '||c1.nobj||' OBJ# values not in OBJ$' ) ;

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End ;

Procedure IndIndparMismatch

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

nFr Number ;

Cursor sCur1 Is

Select io.obj# io, io.name ionam, ipo.obj# ipo, ipo.name iponam

From obj$ io, indpart$ ip, obj$ ipo

Where ipo.type# = 20 /* IND PART */

And ip.obj# = ipo.obj#

And io.obj# (+) = ip.bo#

And nvl(io.name,'"') != ipo.name

;

ps1 Varchar2(10) := 'HCKE-0004' ;

ps1a Varchar2(65) := 'OBJ$.NAME mismatch for INDEX v INDEX PARTITION' ;

bug1 Varchar2(80) :=

'Ref : Bug:3753873' ;

aff1 Varchar2(80) :=

'Affects: Vers BELOW 11.2 - Specifically: All 9.2 rels '||

'(9.2.0.4 through 9.2.0.8)' ;

aff2 Varchar2(80) :=

' 10.1.0.5 10.2.0.1 10.2.0.2 10.2.0.3 10.2.0.4 11.1.0.7' ;

fix1 Varchar2(80) :=

'Fixed : 11.2.0.1.0' ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note:3753873.8 - Minor dictionary corruption from DROP COLUMN' ;

not2 Varchar2(80) :=

' of partitioned table with LOB' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 In sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (aff2 Is Not Null) Then hout.put_line(aff2); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

if (not2 Is Not Null) Then hout.put_line(not2); not2:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line(' Ind Part OBJ$.OBJ# '||c1.ipo||' '||c1.iponam||

'!='||c1.ionam||' OBJ#='||c1.io);

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End ;

Procedure InvCorrAudit

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

nFr Number ;

Cursor sCur1 Is

Select decode(aud.user#,

0, 'ANY CLIENT',

1, Null ,

client.name) username ,

proxy.name proxyname,

prv.name privilege,

decode(aud.success,

1, 'BY SESSION',

2, 'BY ACCESS' ,

'NOT SET') success ,

decode(aud.failure,

1, 'BY SESSION',

2, 'BY ACCESS' ,

'NOT SET') failure

From sys.user$ client ,

sys.user$ proxy ,

system_privilege_map prv ,

sys.audit$ aud

Where aud.option# = -prv.privilege

and aud.user# = client.user#

-- and aud.user# != 1 /* PUBLIC */

and aud.user# = 0 /* SYS */

and aud.proxy# = proxy.user# (+)

and aud.proxy# is null

;

ps1 Varchar2(10) := 'HCKE-0005' ;

ps1a Varchar2(65) := 'Invalid/Corrupted AUDIT$ entries' ;

bug1 Varchar2(80) :=

'Ref : Bug:6310840' ;

aff1 Varchar2(80) :=

'Affects: Vers BELOW 11.2 - Specifically: 11.1.0.6' ;

fix1 Varchar2(80) :=

'Fixed : 11.1.0.7 11.2.0.1' ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note.455565.1: Corrupted entries in DBA_PRIV_AUDIT_OPTS' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

variant Varchar2(30) := Null ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 In sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

If (c1.username = 'ANY CLIENT')

Then

variant := 'Corrupted -' ;

Else

variant := 'Invalid -' ;

End If ;

hout.put_line(variant||' USER#='''||c1.username||''' OPTION='''||

c1.privilege||''' SUCCESS='''||c1.success||''' FAILURE='''||

c1.failure||'''');

Fatal := Fatal + 1 ;

End Loop;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure OversizedFiles

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

nFr Number ;

Cursor sCur1 Is

Select f.ts# TS, f.relfile# RFILE, f.file# AFILE, v.name NAME, f.blocks

From ts$ ts, file$ f, v$datafile v

Where ts.ts# = f.ts#

And v.file# = f.file#

And f.blocks > 4194303 -- (4M -1 blocks)

And bitand(ts.flags,256) != 256

Order By f.ts#, f.relfile#

;

ps1 Varchar2(10) := 'HCKE-0006' ;

ps1a Varchar2(65) := 'Oversized datafile (blocks>4194303)' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 In sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line(' OVERSIZED FILE ('||c1.blocks||' blocks) TS='||c1.TS||

' RFILE='||c1.RFILE||

' ABS='||c1.AFILE||' Name='||c1.NAME);

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End ;

Procedure TinyFiles

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

nFr Number ;

Cursor sCur1 Is

select file#, ts#, blocks

from file$

where status$ = 2

and blocks <= 1

;

ps1 Varchar2(10) := 'HCKE-0007' ;

ps1a Varchar2(65) := 'Tiny File size in FILE$' ;

bug1 Varchar2(80) :=

'Ref : Bug:1646512' ;

aff1 Varchar2(80) :=

'Affects: Vers BELOW 9.0 - Specifically: 8.1.7.3' ;

fix1 Varchar2(80) :=

'Fixed : 8.1.7.4 9.0.1.0' ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 In sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line(' FILE$ FILE#='||c1.file#||' has BLOCKS='||c1.blocks);

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End ;

Procedure PoorDefaultStorage

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

nFr Number ;

Cursor sCur1 Is

select tablespace_name, initial_extent, next_extent, min_extents,

pct_increase, max_extents

from dba_tablespaces

where (initial_extent < 1024*1024

contents='TEMPORARY')

and next_extent < 65536

and min_extlen < 65536

and pct_increase

and max_extents > 3000

;

ps1 Varchar2(10) := 'HCKW-0002' ;

ps1a Varchar2(65) := 'Poor Default Storage Clauses For Tablespace' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note:50380.1 - ALERT: Using UNLIMITED Extent Format' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 In sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line(chr(10)||ps1||': '||ps1a);

hout.put_line(' '||rpad('Tablespace',30)||rpad('Init',10)||

rpad('Next',10)||rpad('Min',10)||rpad('Pct',4)||

'MaxExtents');

ps1:=null;

End If ;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line(' '

||rpad(c1.tablespace_name,30)

||rpad(c1.initial_extent,10)

||rpad(c1.next_extent,10)

||rpad(c1.min_extents,10)

||rpad(c1.pct_increase,4)

||c1.max_extents );

Warn := Warn + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End ;

Procedure PoorStorage

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

nFr Number ;

Cursor sCur1 Is

Select owner ,

segment_name,

segment_type,

next_extent ,

extents ,

pct_increase,

max_extents

From dba_segments

Where ( initial_extent < 65535

And next_extent < 65536

And pct_increase

And max_extents > 3000

And extents > 500

) Or extents > 3000

;

ps1 Varchar2(10) := 'HCKW-0003' ;

ps1a Varchar2(65) := 'Poor Storage Clauses For Object(s)' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note:50380.1 - ALERT: Using UNLIMITED Extent Format' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 In sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line(' '||rpad('Segment',50)||rpad('Next',10)||

rpad('Exts',7)||rpad('Pct',4)||

'MaxExtents' ) ;

End If;

hout.put_line(' '||

rpad(c1.segment_type||' '

||c1.owner||'.'

||c1.segment_name,50)

||rpad(c1.next_extent,10)

||rpad(c1.extents,7)

||rpad(c1.pct_increase,4)

||c1.max_extents );

Warn := Warn + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End ;

Procedure MissTabSubPart

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

nFr Number ;

Cursor sCur1 Is

Select o.obj# part_obj# ,

o.owner# ,

o.name ,

o.subname ,

p.subpartcnt ,

p.bo# table_obj#

From obj$ o ,

tabcompart$ p

Where o.type# = 19 /* PARTITION */

and o.obj# = p.obj# /* Has subpartitions */

and p.subpartcnt = 0 /* Has No entries in tabsubpart$ */

;

Cursor sCur2 Is

Select o.obj# part_obj# ,

o.owner# ,

o.name ,

o.subname ,

p.subpartcnt ,

p.bo# index_obj#

from obj$ o ,

indcompart$ p

where o.type# = 20 /* INDEX PARTITION */

and o.obj# = p.obj# /* Has subpartitions */

and p.subpartcnt = 0 /* Has No entries in indsubpart$ */

;

ps1 Varchar2(10) := 'HCKE-0008' ;

ps1a Varchar2(65) := 'Missing TABSUBPART$ entry/entries' ;

bug1 Varchar2(80) :=

'Ref : Bug:1360714' ;

aff1 Varchar2(80) :=

'Affects: Vers >=8.1.5 and BELOW 9.0 - Specifically: 8.1.7.1' ;

fix1 Varchar2(80) :=

'Fixed : 8.1.7.2 9.0.1.0' ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

sMsg Boolean := FALSE ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 In sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line(

' TABLE '||Owner(c1.owner#)||'.'||c1.name||

' Partition '||c1.subname||

' PartObj#='||c1.part_obj#||' TabObj#='||c1.table_obj#

) ;

If ( IsLastPartition ( c1.table_obj# ) ) Then

hout.put_line(' ^^ PARTOBJ$.PARTCNT<=1 - non standard corruption') ;

End If ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

Fatal := Fatal + 1 ;

End Loop ;

For c2 In sCur2 Loop

If (ps1 Is Not Null) Then

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line(

' INDEX '||Owner(c2.owner#)||'.'||c2.name||

' Partition '||c2.subname||

' PartObj#='||c2.part_obj#||' IndObj#='||c2.index_obj#);

If ( IsLastPartition ( c2.index_obj# ) ) Then

hout.put_line(' ^^ PARTOBJ$.PARTCNT<=1 - non standard corruption') ;

End If;

Fatal := Fatal+1 ;

sMsg := TRUE ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

If ( sMsg ) Then

hout.put_line('There are probably orphaned SEG$ entry/s with this') ;

End If ;

End ;

Procedure PartSubPartMismatch

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

nFr Number ;

Cursor sCur1 Is

Select po.obj# obj# ,

u.name owner,

o.name name,

Decode(o.type#, 1, 'INDEX', 'TABLE') type ,

Decode(po.parttype,

1, 'RANGE' ,

2, 'HASH' ,

3, 'SYSTEM',

4, 'LIST' ,

'Unknown') part ,

Decode(Mod(po.spare2, 256),

0, 'NONE' ,

2, 'HASH' ,

3, 'SYSTEM',

4, 'LIST' ,

'Unknown') subpart

From partobj$ po ,

obj$ o ,

user$ u

Where po.obj# = o.obj#

And o.owner# = u.user#

And po.spare2 != 0

And o.type# = 1 -- Index

And Decode(po.parttype,

1, 'RANGE' ,

2, 'HASH' ,

3, 'SYSTEM',

4, 'LIST' ,

'Unknown') !=

Decode(mod(po.spare2, 256),

0, 'NONE' ,

2, 'HASH' ,

3, 'SYSTEM',

4, 'LIST' ,

'Unknown')

;

ps1 Varchar2(10) := 'HCKW-0004' ;

ps1a Varchar2(65) := 'TABPART/TABSUBPART method mismatch' ;

bug1 Varchar2(80) :=

'Ref : Bug:7509714' ;

aff1 Varchar2(80) :=

'Affects: Vers BELOW 11.2 - Specifically: 10.2.0.4 10.2.0.5' ;

fix1 Varchar2(80) :=

'Fixed : 11.2.0.1' ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note:1499.1 - OERR: ORA-1499 table/Index Cross Reference Failure' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0 ) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 In sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line(

rpad(' INDEX '||c1.owner||'.'||c1.name,62,' ')||

' (OBJ '||c1.obj#||')') ;

Warn := Warn + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End ;

Procedure TabPartCountMismatch

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

nFr Number ;

Cursor sCur1 Is

Select o.obj# ,

o.owner# ,

o.name ,

t.property ,

p.partcnt ,

Bitand(p.spare2,255) comp

From obj$ o,

tab$ t,

partobj$ p

Where o.type# = 2 /* table */

And Bitand(t.property,32) = 32 /* partitioned table */

And o.obj# = t.obj#

And o.obj# = p.obj#(+)

And o.dataobj# is null

;

Cursor sCur2 ( pobj In Number) Is

Select o.obj# ,

o.name ,

o.subname ,

o.type# ,

o.owner#

From obj$ o ,

tabpart$ p

Where o.obj# = p.obj#

And p.bo# = pobj

;

Cursor sCur3 ( obj In Number ) Is

Select Count('x') Count From tabcompart$ Where bo#=obj

;

ps1 Varchar2(10) := 'HCKE-0009' ;

ps1a Varchar2(65) := 'OBJ$-PARTOBJ$-

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

nCnt Number := Null ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 In sCur1 Loop

-- No Partitions

If ( c1.partcnt Is Null ) Then

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line(

' OBJ$ has no PARTOBJ$ OBJ#='||c1.obj#||' NAME='||c1.name) ;

Fatal := Fatal + 1 ;

Else

-- Not Composite

If ( c1.comp=0 ) Then

Select Count('x') Into nCnt From tabpart$ Where bo#=c1.obj# ;

-- Interval Partitioned Tables have partcnt = 1048575

If ( c1.partcnt != nCnt And c1.partcnt != 1048575 ) Then

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null;

End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null;

End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null;

End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null;

End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null;

End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line(

' PARTOBJ$ PARTCNT!=num TABPART$ rows OBJ#='||c1.obj#||

' NAME='||c1.name||' PARTCNT='||c1.partcnt||' CNT='||nCnt

) ;

Fatal := Fatal + 1 ;

End If ;

-- Check OBJ$ for the tabpart$ rows match up

For c2 In sCur2 (c1.obj#) Loop

If ( c2.name != c1.name Or

c2.owner# != c1.owner# Or

c2.type# != 19 ) Then

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null;

End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null;

End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null;

End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null;

End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null;

End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line(

' TABPART$-OBJ$ mismatch (Bug:1273906)'||

' OBJ#='||c2.obj#||

' #'||c2.owner#||'.'||c2.name||' '||c2.subname) ;

If ( c2.name != c1.name) Then

hout.put_line(

' - Table Name ('||c1.name||') != '||

' Partition Name ('||c2.name||')' );

End If ;

If ( c2.owner# != c1.owner# ) Then

hout.put_line(

' - Table Owner# ('||c1.owner#||') != '||

' Partition Onwer# ('||c2.owner#||')' );

End If ;

If ( c2.type# != 19 ) Then

hout.put_line(

' - Partition Type# ('||c2.type#||')!=19' );

End If ;

Fatal := Fatal + 1 ;

End If ;

End Loop ;

-- Hash Composite

ElsIf ( c1.comp=2 ) Then

For c3 in sCur3 ( c1.obj# ) Loop

If ( c1.partcnt != c3.Count And c1.partcnt != 1048575 ) Then

If (ps1 Is Not Null) Then hout.put_line(ps1); ps1:=null; End If;

CursorRun := TRUE ;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null;

End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null;

End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null;

End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null;

End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null;

End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line(

' PARTOBJ$ PARTCNT!=num TABCOMPART$ rows OBJ#='||

c1.OBJ#||

' NAME='||c1.name||' PARTCNT='||c1.partcnt||' CNT='||

c3.Count);

Fatal := Fatal + 1 ;

End If ;

End Loop ;

End If ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End ;

Procedure OrphanedTabComPart

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select t.obj# , t.bo#, b.name, p.name pname, p.subname, b.owner#

From tabcompart$ t, obj$ b, obj$ p

Where b.obj#(+) = t.bo#

And p.obj#(+) = t.obj#

And p.obj#+b.obj# Is Null

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0010' ;

ps1a Varchar2(65) := 'Orphaned TABCOMPART$ from OBJ$' ;

bug1 Varchar2(80) :=

'Ref : Bug:1528062' ;

aff1 Varchar2(80) :=

'Affects: Vers >=8.1 and BELOW 8.1.7.1 Specifically: 8.1.7.0' ;

fix1 Varchar2(80) :=

'Fixed : 8.1.7.1 9.0.1.0' ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note.1528062.8 - SPLIT PARTITION on composite range-hash partition' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line(' ORPHAN TABCOMPART$: OBJ='||c1.obj#||

' OBJ#Name='||c1.subname||' ('||c1.pname||')'||

' BO#='||c1.bo#||

' BO#name='||Owner(c1.owner#)||'.'||c1.name);

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure ZeroTabSubPart

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

noTable EXCEPTION ;

PRAGMA EXCEPTION_INIT(noTable, -942) ;

Cursor sCur1 Is

Select sp.obj#, sp.ts#, sp.pobj#, b.name, b.subname, b.owner#

From indsubpart$ sp, obj$ b

Where sp.file# = 0

And sp.block# = 0

And b.obj#(+) = sp.pobj#

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0011' ;

ps1a Varchar2(65) := 'INDSUBPART$ has file# = 0' ;

bug1 Varchar2(80) :=

'Ref : Bug:1614155 (If Also Orphan SEG$)' ;

aff1 Varchar2(80) :=

'Affects: Vers >=8.1 and BELOW 9.2 Specifically: 8.1.7.2 9.0.1.0' ;

fix1 Varchar2(80) :=

'Fixed : 8.1.7.3 9.0.1.1 9.2.0.1' ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note.1837529.8: OERI:KFTR2BZ_1/OERI:25012 from CREATE ' ;

not2 Varchar2(80) :=

' sub-partitioned local INDEX ONLINE' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

def_obj number := 0 ;

def_count number := 0 ;

def_exists number := 1 ;

sqlstr varchar2(80) := 'Select Count(''x'') From deferred_stg$' ;

sqlstr1 varchar2(80) := 'Select obj# From deferred_stg$ Where obj# = :obj' ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

Begin

Execute Immediate sqlstr Into def_count ;

Exception

When noTable Then

def_exists := 0 ;

End ;

For c1 in sCur1 Loop

If ( def_exists = 0 ) Then

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

if (not2 Is Not Null) Then hout.put_line(not2); not2:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line(' ORPHAN INDSUBPART$: OBJ#='||c1.obj#||

' POBJ#='||c1.pobj#||

' Index='||Owner(c1.Owner#)||'.'||c1.name||

' Partn='||c1.subname);

Fatal := Fatal + 1 ;

Else

Begin

Execute Immediate sqlstr1 Into def_obj Using c1.obj# ;

Exception

When NO_DATA_FOUND Then

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null;

End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null;

End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null;

End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null;

End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null;

End If;

if (not2 Is Not Null) Then hout.put_line(not2); not2:=null;

End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line(' ORPHAN INDSUBPART$: OBJ#='||c1.obj#||

' POBJ#='||c1.pobj#||

' Index='||Owner(c1.Owner#)||'.'||c1.name||

' Partn='||c1.subname);

Fatal := Fatal + 1 ;

End ;

End If ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure MissingSum$

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select t.obj#,o.owner#,o.name

From tab$ t, obj$ o, sum$ s

Where bitand(t.flags,262144) = 262144 /* Container table */

And o.obj# = t.obj#

And s.containerobj#(+) = t.obj#

And s.containerobj# Is Null

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0012' ;

ps1a Varchar2(65) := 'SUM$ entry missing for container table' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line(' TAB$ OBJ#='||c1.OBJ#||' '||Owner(c1.owner#)||'.'||

c1.name);

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure MissingDir$

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

select o.obj# o_obj, o.owner# o_owner, o.name o_name, d.obj# d_obj,

oa.grantee# oa_grantee, oa.privilege# oa_priv, u.name u_name

from obj$ o, dir$ d, objauth$ oa, user$ u

where o.obj# = d.obj# (+)

and o.obj# = oa.obj# (+)

and o.owner# = u.user#

and o.type# = 23

and d.obj# is null

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0013' ;

ps1a Varchar2(65) := 'DIR$ entry missing for directory objects' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line(' OBJ$ OBJ#='||c1.o_obj||' Owner='||c1.u_name||'.'||

c1.o_name||' - Grantee('||c1.oa_grantee||') - Priv ('||

c1.oa_priv||')');

Fatal:=Fatal+1;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure DuplicateDataobj

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select * from

(

Select /*+ NO_MERGE */

many.dataobj#,

o.obj#,

o.owner#,

o.name,

o.subname,

o.type#,

t.property

From (

Select dataobj#

From obj$

Where dataobj# is not null

Group By dataobj#

Having Count('x') > 1

) many, obj$ o, tab$ t

Where many.dataobj# = o.dataobj#(+)

And o.type# (+) != 3 /* Not a cluster */

And t.obj# (+) = o.obj#

)

Where Bitand(property, 1024)!=1024 /* Not a cluster table */

And Bitand(property, 64) !=64 /* Not an IOT */

-- Or property is null /* IOT Part's fall here */

Order By dataobj#, obj#

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0014' ;

ps1a Varchar2(65) := 'Dup. dataobj#'||

Chr(10)||

'May be valid under the following:' ;

ps1b Varchar2(80) := '* Using TTS' ;

ps1c Varchar2(80) := '* Obj''s belong to different TS''s'||Chr(10) ;

bug1 Varchar2(80) :=

'Ref : Bug:2597763 (If Dup SubPart found)' ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

aff1 Varchar2(80) :=

'Affects: Vers BELOW 10.1' ;

fix1 Varchar2(80) :=

'Fixed : 9.2.0.7 10.1.0.2' ;

not1 Varchar2(80) :=

'Note.2597763.8: SPLIT of a COMPOSITE PARTITION (Dup dataobj#)' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

sub boolean := FALSE ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

hout.put_line (' '||ps1b) ;

hout.put_line (' '||ps1c) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('DATAOBJ#='||c1.DATAOBJ#||' OBJ#='||c1.obj#||

' Name='||Owner(c1.owner#)||'.'||c1.name||' '||c1.subname||

' Type#='||c1.type#) ;

If (c1.type#=34 /*table subpart*/) Then

sub := TRUE ;

End If;

Fatal:=Fatal+1;

End Loop ;

If ( sub ) Then

hout.put_line('Subpartition duplicates (type# 34) found') ;

End If;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure ObjSynMissing

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select o.obj#, o.owner#, o.name

From obj$ o, syn$ s

Where o.type# = 5

And o.obj# = s.obj#(+)

And o.linkname Is Null /* Not a remote object */

And s.obj# Is Null

;

nFr Number ;

ps1 Varchar2(10) := 'HCKW-0005' ;

ps1a Varchar2(65) := 'SYN$ entry missing for OBJ$ type#=5' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('OBJ#='||c1.OBJ#||' Name='||Owner(c1.owner#)||'.'||

c1.name);

Warn := Warn + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure ObjSeqMissing

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select o.obj#, o.owner#, o.name

From obj$ o, seq$ s

Where o.type# = 6

And o.obj# = s.obj#(+)

And o.linkname is null /* Not remote */

And s.obj# is null

;

nFr Number ;

ps1 Varchar2(10) := 'HCKW-0006' ;

ps1a Varchar2(65) := 'SEQ$ entry missing for OBJ$ type#=6' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('OBJ#='||c1.OBJ#||' Name='||Owner(c1.owner#)||'.'||

c1.name);

Warn := Warn + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure OrphanedUndo

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

select u.us# u_us,

u.name u_name,

u.ts# u_ts,

nvl(s.ts#,0) s_ts,

u.file# u_file,

nvl(s.file#,0) s_file,

u.block# u_block,

nvl(s.block#,0) s_block,

u.status$ u_status,

nvl(s.type#,0) s_type

from undo$ u,

seg$ s

where u.ts# = s.ts# (+)

and u.file# = s.file# (+)

and u.block# = s.block# (+)

and u.status$ > 1

and nvl(s.type#,0) != 1

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0015' ;

ps1a Varchar2(65) := 'Orphaned Undo$ (no SEG$)' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note.270386.1 - ORA-600 [ktssdrp1] / [ktsiseginfo1] '||

'/ [4042]: undo$ seg$' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If ((c1.s_ts != c1.u_ts) Or

(c1.s_file != c1.u_file) Or

(c1.s_block != c1.u_block))

Then

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('ORPHAN UNDO$: US#='||c1.u_us||

' NAME='||c1.u_name||

' RFILE/BLOCK='||c1.u_file||' '||c1.u_block||

' STATUS$='||c1.u_status);

Fatal := Fatal + 1 ;

End If ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure OrphanedIndex

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

noTable EXCEPTION ;

PRAGMA EXCEPTION_INIT(noTable, -942) ;

Cursor sCur1 Is

Select i.obj#, i.dataobj#, i.ts#, i.file#, i.block#, i.bo#, s.type#

From seg$ s, ind$ i

Where i.ts# = s.ts#(+)

And i.file# = s.file#(+)

And i.block# = s.block#(+)

And Bitand(i.flags,4096) != 4096 /* Exclude NOSEGMENT index */

And Nvl(s.type#,0) != 6

And i.dataobj# Is Not Null /* ie: A Physical object */

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0016' ;

ps1a Varchar2(65) := 'Orphaned IND$ (no SEG$)' ;

bug1 Varchar2(80) :=

'Ref : Bug:3655873/Bug:3082770 (Ongoing) '||

'- Tue Jun 14 14:11:24 CEST 2011' ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

def_obj number := 0 ;

def_count number := 0 ;

def_exists number := 1 ;

sqlstr varchar2(80) := 'Select Count(''x'') From deferred_stg$' ;

sqlstr1 varchar2(80) := 'Select obj# From deferred_stg$ Where obj# = :obj' ;

ind_flags number ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

Begin

Execute Immediate sqlstr Into def_count ;

Exception

When noTable Then

def_exists := 0 ;

End ;

For c1 in sCur1 Loop

Begin

If ( ObjectIsTemporary(c1.obj#)) Then

Null ; -- this is ok

Else

Select o.flags Into ind_flags

From obj$ o

Where obj# = c1.bo#

;

If ( ind_flags != 2 ) Then /* 0x02 -> Global Temp */

If ( def_exists = 0 ) Then

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1);

bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1);

aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1);

fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1);

tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1);

not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('ORPHAN IND$: OBJ='||c1.obj#||

' DOBJ='||c1.dataobj#||

' TS='||c1.TS#||

' RFILE/BLOCK='||c1.file#||' '||c1.block#||

' BO#='||c1.bo#||' SegType='||c1.type#);

If ( c1.TS#=0 And c1.file#=0 And c1.block#=0 ) Then

hout.put_line('^- May be OK. Needs manual check');

End If ;

Fatal:=Fatal+1;

Else

Begin

Execute Immediate sqlstr1 Into def_obj Using c1.obj# ;

Exception

When NO_DATA_FOUND Then

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1);

bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1);

aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1);

fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1);

tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1);

not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('ORPHAN IND$: OBJ='||c1.obj#||

' DOBJ='||c1.dataobj#||

' TS='||c1.TS#||

' RFILE/BLOCK='||c1.file#||' '||c1.block#||

' BO#='||c1.bo#||' SegType='||c1.type#);

If ( c1.TS#=0 And c1.file#=0 And c1.block#=0 ) Then

hout.put_line('^- May be OK. Needs manual check');

End If ;

Fatal := Fatal + 1 ;

End ;

End If ;

Exception

When NO_DATA_FOUND Then

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1);

bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1);

aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1);

fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1);

tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1);

not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

-- CursorRun := TRUE ;

hout.put_line('ORPHAN IND$: OBJ='||c1.obj#||

' DOBJ='||c1.dataobj#||

' TS='||c1.TS#||

' RFILE/BLOCK='||c1.file#||' '||c1.block#||

' BO#='||c1.bo#||' SegType='||c1.type#);

If ( c1.TS#=0 And c1.file#=0 And c1.block#=0) Then

hout.put_line('^- May be OK. Needs manual check');

End If;

Fatal := Fatal + 1 ;

End ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure OrphanedIndexPartition

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

noTable EXCEPTION ;

PRAGMA EXCEPTION_INIT(noTable, -942) ;

Cursor sCur1 Is

select i.obj#, i.ts#, i.file#, i.block#, i.bo#, s.type#

from seg$ s, indpart$ i

where i.ts#=s.ts#(+)

and i.file#=s.file#(+)

and i.block#=s.block#(+)

and i.dataobj# is not null /* ie: A Physical object */

and nvl(s.type#,0)!=6

and not (i.ts#=0 and i.file#=0 and i.block#=0) /* TEMP */

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0017' ;

ps1a Varchar2(65) := 'Orphaned INDPART$ (no SEG$)' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

def_obj number := 0 ;

def_count number := 0 ;

def_exists number := 1 ;

sqlstr varchar2(80) := 'Select Count(''x'') From deferred_stg$' ;

sqlstr1 varchar2(80) := 'Select obj# From deferred_stg$ Where obj# = :obj' ;

noseg Boolean := FALSE ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

Begin

Execute Immediate sqlstr Into def_count ;

Exception

When noTable Then

def_exists := 0 ;

End ;

For c1 in sCur1 Loop

noseg := IndexIsNosegment(c1.bo#) ;

If (def_exists = 0) Then

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('ORPHAN INDPART$: OBJ='||c1.obj#||

' TS='||c1.TS#||

' RFILE/BLOCK='||c1.file#||' '||c1.block#||

' BO#='||c1.bo#||' SegType='||c1.type#);

Fatal := Fatal + 1 ;

Else

If (noseg Is Null OR noseg = FALSE) Then

Begin

Execute Immediate sqlstr1 into def_obj Using c1.obj# ;

Exception

When NO_DATA_FOUND Then

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null;

End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null;

End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null;

End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null;

End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null;

End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('ORPHAN INDPART$: OBJ='||c1.obj#||

' TS='||c1.TS#||

' RFILE/BLOCK='||c1.file#||' '||c1.block#||

' BO#='||c1.bo#||' SegType='||c1.type#);

Fatal := Fatal + 1 ;

End ;

End If ;

If (noseg Is Null) Then

hout.put_line('^- INDPART$ (BO#) has no IND$ entry');

End If ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure OrphanedIndexSubPartition

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

noTable EXCEPTION ;

PRAGMA EXCEPTION_INIT(noTable, -942) ;

Cursor sCur1 Is

select i.obj#, i.ts#, i.file#, i.block#, i.pobj#, s.type#

from seg$ s, indsubpart$ i

where i.ts#=s.ts#(+)

and i.file#=s.file#(+)

and i.block#=s.block#(+)

and i.dataobj# is not null /* ie: A Physical object */

and not (i.ts#=0 and i.file#=0 and i.block#=0) /* TEMP */

and nvl(s.type#,0)!=6

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0018' ;

ps1a Varchar2(65) := 'Orphaned INDSUBPART$ (no SEG$)' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

def_obj number := 0 ;

def_count number := 0 ;

def_exists number := 1 ;

sqlstr varchar2(80) := 'Select Count(''x'') From deferred_stg$' ;

sqlstr1 varchar2(80) := 'Select obj# From deferred_stg$ Where obj# = :obj' ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

Begin

Execute Immediate sqlstr Into def_count ;

Exception

When noTable Then

def_exists := 0 ;

End ;

For c1 in sCur1 Loop

If (def_exists = 0) Then

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('ORPHAN INDSUBPART$: OBJ='||c1.obj#||

' TS='||c1.TS#||

' RFILE/BLOCK='||c1.file#||' '||c1.block#||

' POBJ#='||c1.pobj#||' SegType='||c1.type#);

Fatal := Fatal + 1 ;

Else

Begin

Execute Immediate sqlstr1 Into def_obj Using c1.obj# ;

Exception

When NO_DATA_FOUND Then

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null;

End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null;

End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null;

End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null;

End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null;

End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('ORPHAN INDSUBPART$: OBJ='||c1.obj#||

' TS='||c1.TS#||

' RFILE/BLOCK='||c1.file#||' '||c1.block#||

' POBJ#='||c1.pobj#||' SegType='||c1.type#);

Fatal := Fatal + 1 ;

End ;

End If ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure OrphanedTable

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

noTable EXCEPTION ;

PRAGMA EXCEPTION_INIT(noTable, -942) ;

Cursor sCur1 Is

select i.obj#, i.dataobj#, i.ts#, i.file#, i.block#, i.bobj#, s.type#,

bitand(i.property,64) iot

from seg$ s, tab$ i

where i.ts# = s.ts#(+)

and i.file# = s.file#(+)

and i.block# = s.block#(+)

and nvl(s.type#,0) != 5

and bitand(i.property,64) != 64 /*(So that we exclude iot's) */

and i.dataobj# is not null /* ie: A Physical object */

/* and not (i.ts#=0 and i.file#=0 and i.block#=0) /* TEMP */

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0019' ;

ps1a Varchar2(65) := 'Orphaned TAB$ (no SEG$)' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

def_obj number := 0 ;

def_count number := 0 ;

def_exists number := 1 ;

sqlstr varchar2(80) := 'Select Count(''x'') From deferred_stg$' ;

sqlstr1 varchar2(80) := 'Select obj# From deferred_stg$ Where obj# = :obj' ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

Begin

Execute Immediate sqlstr Into def_count ;

Exception

When noTable Then

def_exists := 0 ;

End ;

For c1 in sCur1 Loop

If (ObjectIsTemporary(c1.obj#)) Then

Null ; -- this is ok

Else

If ( c1.iot=64 And c1.dataobj#=0 And c1.ts#=0 and c1.block#=0) Then

Null ; -- this is a truncated IOT (See 4701060)

Else

If (def_exists=0) Then

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null;

End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null;

End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null;

End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null;

End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null;

End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('ORPHAN TAB$: OBJ='||c1.obj#||

' DOBJ='||c1.dataobj#||

' TS='||c1.TS#||

' RFILE/BLOCK='||c1.file#||' '||c1.block#||

' BOBJ#='||c1.bobj#||' SegType='||c1.type#);

If (c1.TS#=0 and c1.file#=0 and c1.block#=0) Then

hout.put_line('^- May be OK. Needs manual check');

End If ;

Fatal := Fatal + 1 ;

Else

Begin

Execute Immediate sqlstr1 Into def_obj Using c1.obj# ;

Exception

When NO_DATA_FOUND Then

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null;

End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null;

End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null;

End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null;

End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null;

End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('ORPHAN TAB$: OBJ='||c1.obj#||

' DOBJ='||c1.dataobj#||

' TS='||c1.TS#||

' RFILE/BLOCK='||c1.file#||' '||c1.block#||

' BOBJ#='||c1.bobj#||' SegType='||c1.type#);

If (c1.TS#=0 and c1.file#=0 and c1.block#=0) Then

hout.put_line('^- May be OK. Needs manual check');

End If ;

Fatal := Fatal + 1 ;

End ;

End If ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure OrphanedTablePartition

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

noTable EXCEPTION ;

PRAGMA EXCEPTION_INIT(noTable, -942) ;

Cursor sCur1 Is

select i.obj#, i.ts#, i.file#, i.block#, i.bo#, s.type#

from seg$ s, tabpart$ i, tab$ t

where i.ts#=s.ts#(+)

and i.file#=s.file#(+)

and i.block#=s.block#(+)

and i.dataobj# is not null /* ie: A Physical object */

and i.bo# = t.obj#

and not (i.ts#=0 and i.file#=0 and i.block#=0) /* TEMP */

and nvl(s.type#,0)!=5

and bitand(t.property,64)!=64 /*(So that we exclude iot's) */

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0020' ;

ps1a Varchar2(65) := 'Orphaned TABPART$ (no SEG$)' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

def_obj number := 0 ;

def_count number := 0 ;

def_exists number := 1 ;

sqlstr varchar2(80) := 'Select Count(''x'') From deferred_stg$' ;

sqlstr1 varchar2(80) := 'Select obj# From deferred_stg$ Where obj# = :obj' ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

Begin

Execute Immediate sqlstr Into def_count ;

Exception

When noTable Then

def_exists := 0 ;

End ;

For c1 in sCur1 Loop

If (def_exists = 0) Then

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('ORPHAN TABPART$: OBJ='||c1.obj#||

' TS='||c1.TS#||

' RFILE/BLOCK='||c1.file#||' '||c1.block#||

' BO#='||c1.bo#||' SegType='||c1.type#);

If (c1.TS#=0 and c1.file#=0 and c1.block#=0) Then

hout.put_line('^- May be OK. Needs manual check');

End If ;

Fatal:=Fatal+1;

Else

Begin

Execute Immediate sqlstr1 Into def_obj Using c1.obj# ;

Exception

When NO_DATA_FOUND Then

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null;

End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null;

End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null;

End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null;

End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null;

End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('ORPHAN TABPART$: OBJ='||c1.obj#||

' TS='||c1.TS#||

' RFILE/BLOCK='||c1.file#||' '||c1.block#||

' BO#='||c1.bo#||' SegType='||c1.type#);

If (c1.TS#=0 and c1.file#=0 and c1.block#=0) Then

hout.put_line('^- May be OK. Needs manual check');

End If ;

Fatal:=Fatal+1;

End ;

End If ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure OrphanedTableSubPartition

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

noTable EXCEPTION ;

PRAGMA EXCEPTION_INIT(noTable, -942) ;

Cursor sCur1 Is

select tsp.obj#, tsp.ts#, tsp.file#, tsp.block#, tsp.pobj#, s.type#

from obj$ o, tabcompart$ tcp, tabsubpart$ tsp, seg$ s

where o.obj# = tcp.obj#

and tcp.obj# = tsp.pobj#

and tsp.ts# = s.ts# (+)

and tsp.file# = s.file# (+)

and tsp.block# = s.block# (+)

and s.file# is null

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0021' ;

ps1a Varchar2(65) := 'Orphaned TABSUBPART$ (no SEG$)' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

def_obj number := 0 ;

def_count number := 0 ;

def_exists number := 1 ;

sqlstr varchar2(80) := 'Select Count(''x'') From deferred_stg$' ;

sqlstr1 varchar2(80) := 'Select obj# From deferred_stg$ Where obj# = :obj' ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

Begin

Execute Immediate sqlstr Into def_count ;

Exception

When noTable Then

def_exists := 0 ;

End ;

For c1 in sCur1 Loop

If (def_exists = 0) Then

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('ORPHAN TABSUBPART$: OBJ='||c1.obj#||

' TS='||c1.TS#||

' RFILE/BLOCK='||c1.file#||' '||c1.block#||

' POBJ#='||c1.pobj#||' SegType='||c1.type#);

Fatal := Fatal + 1 ;

Else

Begin

Execute Immediate sqlstr1 Into def_obj Using c1.obj# ;

Exception

When NO_DATA_FOUND Then

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null;

End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null;

End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null;

End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null;

End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null;

End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('ORPHAN TABSUBPART$: OBJ='||c1.obj#||

' TS='||c1.TS#||

' RFILE/BLOCK='||c1.file#||' '||c1.block#||

' POBJ#='||c1.pobj#||' SegType='||c1.type#);

Fatal := Fatal + 1 ;

End ;

End If ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure MissingPartCol

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select tp.bo#, tp.obj#, tp.ts#, tp.file#, tp.block#, o.type#

From tabpart$ tp, partcol$ pc, obj$ o

Where tp.bo# = pc.obj# (+)

And tp.obj# = o.obj#

And pc.obj# Is Null

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0022' ;

ps1a Varchar2(65) := 'Missing TabPart Column (no PARTCOL$ info)' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Drop Table -> ORA-600 [kkpodDictPcol1], [1403], [0]' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('MISSING PARTCOL$: OBJ='||c1.bo#||

' DOBJ='||c1.obj#||

' TS='||c1.ts#||

' RFILE/BLOCK='||c1.file#||' '||c1.block#||

' SegType='||c1.type#);

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure OrphanedSeg$

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select 'TYPE2 UNDO' typ, s.ts#, s.file#, s.block#

From seg$ s, undo$ u

Where s.ts# = u.ts#(+)

And s.file# = u.file#(+)

And s.block# = u.block#(+)

And s.type# = 10

-- And u.file# Is Null

And Decode(u.status$,1,null,u.status$) Is Null

UNION ALL

Select 'UNDO' typ, s.ts#, s.file#, s.block#

From seg$ s, undo$ i

Where s.ts# = i.ts#(+)

And s.file# = i.file#(+)

And s.block# = i.block#(+)

And s.type# = 1

-- And i.file# Is Null

And Decode(i.status$,1,null,i.status$) Is Null

UNION ALL

Select 'DATA' typ, s.ts#, s.file#, s.block#

From seg$ s,

( Select a.ts#,a.file#,a.block# From tab$ a

UNION ALL

Select b.ts#,b.file#,b.block# From clu$ b

UNION ALL

Select c.ts#,c.file#,c.block# From tabpart$ c

UNION ALL

Select d.ts#,d.file#,d.block# From tabsubpart$ d

) i

Where s.ts# = i.ts#(+)

And s.file# = i.file#(+)

And s.block# = i.block#(+)

And s.type# = 5

And i.file# Is Null

UNION ALL

Select 'INDEX' typ, s.ts#, s.file#, s.block#

From seg$ s,

( Select a.ts#,a.file#,a.block# From ind$ a

UNION ALL

Select b.ts#,b.file#,b.block# From indpart$ b

UNION ALL

Select d.ts#,d.file#,d.block# From indsubpart$ d

) i

Where s.ts# = i.ts#(+)

And s.file# = i.file#(+)

And s.block# = i.block#(+)

And s.type# = 6

And i.file# Is Null

UNION ALL

Select 'LOB' typ, s.ts#, s.file#, s.block#

From seg$ s, lob$ i --, sys_objects so

Where s.ts# = i.ts#(+)

And s.file# = i.file#(+)

And s.block# = i.block#(+)

And s.type# = 8

And i.file# Is Null

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0023' ;

ps1a Varchar2(65) := 'Orphaned SEG$ Entry' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

so_type Number ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If ( c1.typ = 'LOB' ) Then

Begin

Select so.object_type_id Into so_type

From sys_objects so

Where so.ts_number = c1.ts#

And so.header_file = c1.file#

And so.header_block = c1.block# ;

If ( so_type Not In (40, 41) ) Then /* Object Found */

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null;

End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null;

End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null;

End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null;

End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null;

End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('ORPHAN SEG$: SegType='||c1.typ||

' TS='||c1.TS#||

' RFILE/BLOCK='||c1.file#||' '||c1.block#);

Fatal := Fatal + 1 ;

End If ;

Exception

When NO_DATA_FOUND Then

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null;

End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null;

End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null;

End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null;

End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null;

End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('ORPHAN SEG$: SegType='||c1.typ||

' TS='||c1.TS#||

' RFILE/BLOCK='||c1.file#||' '||c1.block#);

Fatal := Fatal + 1 ;

End ;

End If ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure OrphanedIndPartObj#

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select i.obj#, i.ts#, i.file#, i.block#, i.bo#

From obj$ o, indpart$ i

Where o.obj#(+) = i.obj#

And o.obj# Is Null

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0024' ;

ps1a Varchar2(65) := 'Orphaned Index Partition Obj# (no OBJ$)' ;

bug1 Varchar2(80) :=

'Ref : Bug:5040222' ;

aff1 Varchar2(80) :=

'Affects: Vers BELOW 11.1 Specifically: 10.1.0.5 10.2.0.2' ;

fix1 Varchar2(80) :=

'Fixed : 10.2.0.3 11.1.0.6' ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note.5040222.8: OERI[4823] from drop partition table after' ;

not2 Varchar2(80) :=

' merge with update indexes' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

if (not2 Is Not Null) Then hout.put_line(not2); not2:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('ORPHAN INDPART$: OBJ#='||c1.obj#||' - no OBJ$ row');

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure DuplicateBlockUse

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select ts#,file#,block#,count('x') CNT, min(typ) mintyp

From

(

Select 'UNDO$' typ, u.ts#, u.file#, u.block# from undo$ u

Where Decode(u.status$,1,null,u.status$) Is Not Null

UNION ALL

Select 'TAB$', a.ts#,a.file#,a.block# From tab$ a

UNION ALL

Select 'CLU$', b.ts#,b.file#,b.block# From clu$ b

UNION ALL

Select 'TABPART$', c.ts#,c.file#,c.block# From tabpart$ c

UNION ALL

Select 'TABSUBPART$', d.ts#,d.file#,d.block# From tabsubpart$ d

UNION ALL

Select 'IND$', a.ts#,a.file#,a.block# From ind$ a

UNION ALL

Select 'INDPART$', b.ts#,b.file#,b.block# From indpart$ b

UNION ALL

Select 'INDSUBPART$', d.ts#,d.file#,d.block# From indsubpart$ d

UNION ALL

Select 'LOB$' , i.ts#, i.file#, i.block# From lob$ i

UNION ALL

Select 'LOBFRAG$' , i.ts#, i.file#, i.block# From lobfrag$ i

-- UNION ALL

-- select 'RECYCLEBIN$' , i.ts#, i.file#, i.block# From recyclebin$ i

)

Where block# != 0

Group By ts#, file#, block#

Having Count('x') > 1

And Min(typ) != 'CLU$' /* CLUSTER can have multiple entries */

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0025' ;

ps1a Varchar2(65) := 'Block has multiple dictionary entries' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('MULTI DICT REF: TS='||c1.TS#||

' RFILE/BLOCK='||c1.file#||' '||c1.block#||

' cnt='||c1.cnt);

DictAt(c1.ts#, c1.file#, c1.block#);

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure HighObjectIds

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select max(obj#) maxobj, max(dataobj#) maxdobj From obj$

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0026' ;

ps1a Varchar2(65) := 'High Objects IDS exist' ;

bug1 Varchar2(80) :=

'Ref : Bug:970640' ;

aff1 Varchar2(80) :=

'Affects: Vers >=8.1.5 and BELOW 8.1.6' ;

fix1 Varchar2(80) :=

'Fixed : 8.1.6.0' ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note.76746.1: Script to check DB Corr due to Bug.970640' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (c1.maxobj>2000000000) or (c1.maxdobj>2000000000) Then

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('HIGH OBJECT NUMBERS EXIST: max(OBJ)='||c1.maxobj||

' max(dataobj#)='||c1.maxdobj);

Fatal := Fatal + 1 ;

End If ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure PQsequence

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select max_value, cycle_flag, last_number

From DBA_SEQUENCES

Where sequence_owner = 'SYS'

And sequence_name = 'ORA_TQ_BASE$'

And cycle_flag != 'Y'

And last_number > 1000000

;

nFr Number ;

ps1 Varchar2(10) := 'HCKW-0007' ;

ps1a Varchar2(65) := 'Parallel Query internal sequence exhaustion' ;

bug1 Varchar2(80) :=

'Ref : Bug:725220' ;

aff1 Varchar2(80) :=

'Affects: Vers BELOW 8.0.6' ;

fix1 Varchar2(80) :=

'Fixed : 8.0.6.0' ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note.66450.1: PQ internal sequence exceeds 4294967' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('ORA_TQ_BASE$ is not CYCLIC - '||

To_char(c1.max_value-c1.last_number)||' values left');

Warn := Warn + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure TruncatedCluster

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

select /*+ ORDERED */

t.obj#, u.name owner, o.name, t.dataobj# td, c.dataobj# cd

from clu$ c, tab$ t, obj$ o, user$ u

where t.ts# = c.ts#

and t.file# = c.file#

and t.block# = c.block#

and t.dataobj# != c.dataobj#

and t.obj# = o. obj#

and o.owner# = u.user#

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0027' ;

ps1a Varchar2(65) := 'Clustered Tables with bad DATAOBJ#' ;

bug1 Varchar2(80) :=

'Ref : Bug:1283521' ;

aff1 Varchar2(80) :=

'Affects: Vers >=8.0 and BELOW 8.1.7' ;

fix1 Varchar2(80) :=

'Fixed : 8.1.7.0' ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note.109134.1: Bad Cluster DATAOBJ# - Confirmation and Patching' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('Bad TAB$ entry: TAB OBJ='||c1.obj#||

' NAME='||c1.owner||'.'||c1.name||

' Tab DOBJ='||c1.td||' != '||c1.cd) ;

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure FetUet

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select ts#

From ts$

Where online$ != 3 /* Not INVALID */

And bitmapped = 0 /* Dictionary Managed */

;

Cursor sCur2 (ts In Number) Is

Select relfile#, blocks

From file$

Where ts# = ts

And status$ != 1

;

Cursor sCur3 (ts In Number, fil In Number, len In Number) Is

Select block#, length, 'FET$' typ

From fet$

Where ts# = ts

And file# = fil

UNION ALL

select block#, length, 'UET$' typ

from uet$

where ts# = ts

And file# = fil

Order By 1

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0028' ;

ps1a Varchar2(65) := 'FET$ UET$ Corruption ' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

BlkExpected Number ;

prev sCur3%Rowtype;

relfile Number ;

blocks1 Number ;

blocks2 Number ;

len Number ;

typ Varchar2(4) ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

For c2 in sCur2 (c1.ts#) Loop

BlkExpected := 2 ;

prev.typ := Null ; prev.block# := Null ; prev.length := Null ;

For c3 in sCur3 (c1.ts#, c2.relfile#, c2.blocks) Loop

If ( c3.block# != BlkExpected ) Then

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a||'TS# = '||c1.ts#||

' - rFil = '||c2.relfile#) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null;

End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null;

End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null;

End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null;

End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null;

End If;

hout.put(chr(10)); V := FALSE ;

End If ;

Case

When ( c3.block# = BlkExpected ) Then

Null ;

When ( c3.block# < BlkExpected ) Then

hout.put_line('OVERLAP: TS#='||c1.ts#||' RFILE='||c2.relfile#||

' ('||prev.typ||' '||prev.block#||' '||prev.length||

') overlaps ('||

c3.typ||' '||c3.block#||' '||c3.length||')');

Fatal := Fatal + 1 ;

When ( c3.block# > BlkExpected ) Then

hout.put_line('GAP : TS#='||c1.ts#||' RFILE='||c2.relfile#||

' ('||prev.typ||' '||prev.block#||' '||prev.length||

') overlaps ('||

c3.typ||' '||c3.block#||' '||c3.length||')');

Fatal := Fatal + 1 ;

End Case ;

prev := c3 ;

BlkExpected := c3.block# + c3.length ;

End Loop ;

If ( BlkExpected-1 != c2.blocks ) Then

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a||'TS# = '||c1.ts#||

' - rFil = '||c2.relfile#) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null;

End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null;

End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null;

End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null;

End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null;

End If;

hout.put(chr(10)); V := FALSE ;

End If ;

-- c1.ts#, c2.relfile#, c2.blocks

If (BlkExpected-1>len) then

hout.put_line(' EXTENT past end of file: TS#='||c1.ts#||' RFILE='

||c2.relfile#||' ('||prev.typ||' '||prev.block#||' '||

prev.length||') goes past end of file ('||c2.blocks||

' blocks)');

Else

hout.put_line(' EXTENT too short: TS#='||c1.ts#||' RFILE='||

c2.relfile#||' ('||prev.typ||' '||prev.block#||' '||prev.length||

') does not reach end of file ('||c2.blocks||' blocks)');

End If ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure Uet0Check

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select ts#, segfile#, segblock#, file#, block#

From uet$

Where ext# = 0

And (file# != segfile# Or block# != segblock#)

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0029' ;

ps1a Varchar2(65) := 'EXTENT 0 not at start of segment' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('TS#='||c1.ts#||

' '||c1.segfile#||','||c1.segblock#||' != '||

c1.file#||','||c1.block#);

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure ExtentlessSeg

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select s.ts#, s.file#, s.block#, s.type#

From seg$ s, uet$ u

Where s.ts# = u.ts#(+)

And s.file# = u.segfile#(+)

And s.block# = u.segblock#(+)

And bitand(NVL(s.spare1,0), 1) = 0 /* Not locally managed */

And u.ext#(+) = 0

And u.ts# Is Null /* no UET$ entry */

Order By s.ts#, s.file#, s.block#

;

nFr Number ;

ps1 Varchar2(10) := 'HCKW-0008' ;

ps1a Varchar2(65) := 'SEG$ entry has no UET$ entries (Dictionary managed)' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

tmp1 Varchar2(16) := Null ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

tmp1 := Null ;

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

If ( c1.type# = 9 ) Then

tmp1 := ' (May Be Ok)' ;

End If ;

hout.put_line('SEG$ has no UET$ entry: TS#='||c1.TS#||' RFILE#='||

c1.file#||' BLK#='||c1.block#||' TYPE#='||c1.type#||tmp1);

Warn := Warn + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure SeglessUET

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select u.ts#, u.segfile#, u.segblock#, Count('x') cnt, Min(ext#) minext#

From seg$ s, uet$ u

Where s.ts#(+) = u.ts#

And s.file#(+) = u.segfile#

And s.block#(+) = u.segblock#

And s.ts# Is Null /* no SEG$ entry */

Group By u.ts#, u.segfile#, u.segblock#

;

nFr Number ;

ps1 Varchar2(10) := 'HCKW-0009' ;

ps1a Varchar2(65) := 'UET$ entry has no SEG$ entries (Dictionary managed)' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('UET$ has no SEG$ entry: TS#='||c1.TS#||' SegFILE#='||

c1.segfile#||' SegBLK#='||c1.segblock#||' Count='||

c1.cnt||' MinExt#='||c1.minext#);

Warn := Warn + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure BadInd$

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

select o.obj# OBJ#, u.name OWNER, o.name NAME

from user$ u, obj$ o, ind$ i

where u.user# = o.owner#

and o.type# = 1 /* INDEX */

and o.obj# = i.obj#(+)

and i.obj# is null

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0030' ;

ps1a Varchar2(65) := 'OBJ$ INDEX entry has no IND$ entry' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('INDEX has no IND$ entry: Obj='||c1.obj#||' '||

c1.owner||'.'||c1.name);

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure BadTab$

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select o.obj# OBJ#, u.name OWNER, o.name NAME

From user$ u, obj$ o, tab$ i

Where u.user# = o.owner#

And o.name != 'DR$DBO'

And o.type# = 2 /* TABLE */

And o.obj# = i.obj#(+)

And i.obj# Is Null

And o.linkname Is Null

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0031' ;

ps1a Varchar2(65) := 'OBJ$ TABLE entry has no TAB$ entry' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('TABLE has no TAB$ entry: Obj='||c1.obj#||' '||

c1.owner||'.'||c1.name);

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure BadIcolDepCnt

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

select i.obj# , nvl(i.spare1,i.intcols) expect, ic.cnt got

from ind$ i,

(select obj#, count(*) cnt from icoldep$ group by obj# ) ic

where ic.obj#=i.obj#

and ic.cnt!=nvl(i.spare1,i.intcols)

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0032' ;

ps1a Varchar2(65) := 'ICOLDEP$ count!=IND$ expected num dependencies' ;

bug1 Varchar2(80) :=

'Ref : Bug:5217913' ;

aff1 Varchar2(80) :=

'Affects: All Vers >= 9.2.0.4 <= 10.2.0.5' ;

fix1 Varchar2(80) :=

'Fixed : 11.1.0.7' ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('OBJ#='||c1.OBJ#||' '||ObjName(c1.obj#)||

' IND$ expects '||c1.expect||' ICOLDEP$ has '||c1.got);

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure WarnIcolDep

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

select adt.obj#,adt.icobj#, adt.intcol#,adt.name

from

( select c.obj#, ic.obj# icobj#, c.intcol#, c.name

from col$ c , icoldep$ ic

where c.type#=121 /*index on ADT*/

and c.obj#=ic.bo#

and c.intcol#=ic.intcol#

) adt,

(select c.obj#, c.intcol#, c.name , ic.obj# icobj#

from col$ c , icoldep$ ic

where bitand(c.property,33)=33 /* index on ADT attribute */

and c.obj#=ic.bo#

and c.intcol#=ic.intcol#

) adtattr

where adt.obj#=adtattr.obj# /* same table */

and adt.icobj#=adtattr.icobj# /* same index */

and adt.intcol#+1 = adtattr.intcol# /* likely same ADT/attr */

order by 1,2

;

nFr Number ;

ps1 Varchar2(10) := 'HCKW-0010' ;

ps1a Varchar2(65) := 'ICOLDEP$ may reference ADT and its attributes' ;

bug1 Varchar2(80) :=

'Ref : Bug:5217913' ;

aff1 Varchar2(80) :=

'Affects: All Vers >= 9.2.0.4 <= 10.2.0.5' ;

fix1 Varchar2(80) :=

'Fixed : 11.1.0.7' ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('Index OBJ#='||c1.ICOBJ#||' '||ObjName(c1.icobj#)||

' intcol#='||c1.intcol#||'='||c1.name);

Warn := Warn + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure OnlineRebuild$

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select o.obj# OBJ#, u.name OWNER, o.name NAME,

o.dataobj# O_ID, i.dataobj# I_ID

From user$ u, obj$ o, ind$ i

Where u.user# = o.owner#

And o.type# = 1 /* INDEX */

And o.obj# = i.obj#

And o.dataobj# != i.dataobj#

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0033' ;

ps1a Varchar2(65) := 'OBJ$.DATAOBJ# != IND.DATAOBJ#' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note.125149.1: ALTER INDEX .. REBUILD ONLINE can corrupt index' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line(c1.owner||'.'||c1.name||' OBJ$.DATAOBJ#='||c1.o_id||

'IND$.DATAOBJ#='||c1.i_id);

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure DropForceType

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select u.name owner, o.name name , a.name attr

From user$ u, obj$ o, type$ t, attribute$ a, type$ att

Where u.user# = o.owner#

And o.oid$ = t.toid

And o.type# != 10 -- must not be invalid

And Bitand(t.properties, 2048) = 0 -- not system-generated

And t.toid = a.toid

And t.version# = a.version#

And a.attr_toid = att.toid(+)

And a.attr_version# = att.version#(+)

And att.toid Is Null

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0034' ;

ps1a Varchar2(65) := 'Bad ATTRIBUTE$.ATTR_TOID entries' ;

bug1 Varchar2(80) :=

'Ref : Bug:1584155' ;

aff1 Varchar2(80) :=

'Affects: Vers >=8 and BELOW 10.1 Specifically: 8.1.7.4 9.2.0.2' ;

fix1 Varchar2(80) :=

'Fixed : 8.1.7.5 9.2.0.3 10.1.0.2' ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note.1584155.8: DROP FORCE/RECREATE TYPE with DEPENDENCIES corrupts';

not2 Varchar2(80) :=

' dictionary information' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

if (not2 Is Not Null) Then hout.put_line(not2); not2:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line(c1.owner||'.'||c1.name||' ATTR_NAME='||c1.attr);

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure TrgAfterUpgrade

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

select Count('x') cnt from trigger$

where sys_evts Is Null or nttrigcol Is Null

Having Count('x') > 0

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0035' ;

ps1a Varchar2(65) := 'TRIGGER$ has NULL entries - Count = ' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a||c1.cnt) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure FailedInitJVMRun

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select obj#, type#, name

From obj$

Where type#=0

And name!='_NEXT_OBJECT'

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0036' ;

ps1a Varchar2(65) := 'Bad OBJ$ entry with TYPE#=0' ;

bug1 Varchar2(80) :=

'Ref : Bug:1365707' ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('OBJ$ OBJ#='||c1.OBJ#||' TYPE#=0 NAME='||c1.name);

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure TypeReusedAfterDrop

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select o.obj#, owner#, name

From obj$ o, view$ v

Where o.type# = 4

And v.obj# = o.obj#

And Bitand(v.property,1) = 0

And o.oid$ Is Not Null

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0037' ;

ps1a Varchar2(65) := 'OBJ$.OID$ set for a VIEW' ;

bug1 Varchar2(80) :=

'Ref : Bug:1842429' ;

aff1 Varchar2(80) :=

'Affects: Vers >=8 and BELOW 9.0.1' ;

fix1 Varchar2(80) :=

'Fixed : 9.0.1.0' ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note.1842429.8: Dictionary corruption / ORA-600 [kkdodoid1] ' ;

not2 Varchar2(80) :=

' possible after DROP TYPE' ;

not3 Varchar2(80) :=

'@ Support Only: Note.157540.1: Bug:1842429 / OERI [kkdodoid1] ' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

if (not2 Is Not Null) Then hout.put_line(not2); not2:=null; End If;

if (not3 Is Not Null) Then hout.put_line(not3); not3:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('OBJ$ OBJ#='||c1.OBJ#||' Owner='||Owner(c1.owner#)||

' NAME='||c1.name);

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure Idgen1$TTS

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

select increment$ from seq$ s , obj$ o

where o.name='IDGEN1$' and owner#=0

and s.obj#=o.obj#

and increment$>50

;

nFr Number ;

ps1 Varchar2(10) := 'HCKW-0011' ;

ps1a Varchar2(65) := 'Sequence IDGEN1$ (INCREMENT_BY) too high' ;

bug1 Varchar2(80) :=

'Ref : Bug:1375026' ;

aff1 Varchar2(80) :=

'Affects: Vers >=8 and BELOW 9.0 Specifically: 8.1.7.1' ;

fix1 Varchar2(80) :=

'Fixed : 8.1.7.2 9.0.1.0' ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note.1375026.8: ORA-600 [13302] possible after a transportable' ;

not2 Varchar2(80) :=

' tablespace has been plugged in ' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

if (not2 Is Not Null) Then hout.put_line(not2); not2:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure DroppedFuncIdx

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

select distinct u.name owner, o.name tab

from user$ u, obj$ o, col$ c

where o.type# = 2

and c.col# = 0

and Bitand(32768,c.property) = 32768

and o.obj# = c.obj#

and u.user# = o.owner#

and u.user# != 0

;

nFr Number ;

ps1 Varchar2(10) := 'HCKW-0012' ;

ps1a Varchar2(65) := 'Table with Dropped Func Index' ;

bug1 Varchar2(80) :=

'Ref : Bug:1805146' ;

aff1 Varchar2(80) :=

'Affects: Vers >=8.1 and BELOW 9.2 Specifically: 8.1.7.2 9.0.1.2' ;

fix1 Varchar2(80) :=

'Fixed : 8.1.7.3 9.0.1.3 9.2.0.1' ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note.148740.1: ALERT: Export Of Table With Dropped Functional' ;

not2 Varchar2(80) :=

' Index May Cause IMP-20 On Import ' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

if (not2 Is Not Null) Then hout.put_line(not2); not2:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('Table='||c1.owner||'.'||c1.tab);

Warn := Warn + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure BadOwner

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select obj#, type#, owner#, name

From obj$

Where owner# not in (Select user# From user$)

And type# != 10

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0038' ;

ps1a Varchar2(65) := 'OBJ$.OWNER# not in USER$' ;

bug1 Varchar2(80) :=

'Ref : Bug:1359472' ;

aff1 Varchar2(80) :=

'Affects: Vers BELOW 9.0 Specifically: 8.1.7.1' ;

fix1 Varchar2(80) :=

'Fixed : 8.1.7.2 9.0.1.0' ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'@Support Only: Note.333181.1: OBJ$.OWNER# not in USER$. Drop' ;

not2 Varchar2(80) :=

' tablespace returns ORA-1549' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

if (not2 Is Not Null) Then hout.put_line(not2); not2:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('OBJ$ OBJ#='||c1.OBJ#||' TYPE='||c1.type#||' NAME='||

c1.name||' Owner#='||c1.OWNER#);

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure UpgCheckc0801070

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select option#, Count('x')

From STMT_AUDIT_OPTION_MAP

Where option# = 229

And name = 'ON COMMIT REFRESH'

Group By option#

Having Count('x') > 0

;

nFr Number ;

ps1 Varchar2(10) := 'HCKW-0013' ;

ps1a Varchar2(65) := 'option# in STMT_AUDIT_OPTION_MAP(ON COMMIT REFRESH)' ;

bug1 Varchar2(80) :=

'Ref : Bug:6636804' ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('-- Please run the following:') ;

hout.put_line('SQL> update STMT_AUDIT_OPTION_MAP set option#=234') ;

hout.put_line(' where name =''ON COMMIT REFRESH'' ;') ;

hout.put_line('SQL> commit ;') ;

Fatal:=Fatal+1;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure BadPublicObjects

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select obj#,name,type#

From obj$

Where owner#=1

And type# not in (5,10)

;

nFr Number ;

ps1 Varchar2(10) := 'HCKW-0014' ;

ps1a Varchar2(65) := 'Objects owned by PUBLIC' ;

bug1 Varchar2(80) :=

'Ref : Bug:1762570' ;

aff1 Varchar2(80) :=

'Affects: Vers >=7' ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note.1762570.8: It is possible to create objects OWNED by PUBLIC' ;

not2 Varchar2(80) :=

' This may cause ORA-600[15261] / ORA-4050 / ORA-4043' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

if (not2 Is Not Null) Then hout.put_line(not2); not2:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('OBJ$ OBJ#='||c1.OBJ#||' TYPE='||c1.type#||

' NAME='||c1.name);

Warn := Warn + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure BadSegFreelist

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select s.ts#, s.file#, s.block#, type#, s.lists, s.groups,

bitand(l.property, 2048) bitp2048

From seg$ s, lob$ l

Where s.ts# = l.ts#(+)

And s.file# = l.file#(+)

And s.block# = l.block#(+)

And ( s.lists = 1 Or s.groups = 1 )

-- And bitand(nvl(l.property(+),0), 2048) != 2048

;

-- OLD:

-- Select ts#,file#,block#,type#,lists,groups

-- From seg$

-- Where lists=1 Or groups=1

-- ;

nFr Number ;

ps1 Varchar2(10) := 'HCKW-0015' ;

ps1a Varchar2(65) := 'SEG$ bad LISTS/GROUPS (==1)' ;

ps1b Varchar2(80) := 'May be Ok for LOBSEGMENT/SECUREFILE' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If ( c1.bitp2048 != 2048 ) Then

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

if ( nCatV > 1100000000 ) Then

hout.put_line (ps1b) ;

End If ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('Bad SEG$ lists/groups : TS#='||c1.TS#||' RFILE#='||

c1.file#||' BLK#='||c1.block#||' TYPE#='||c1.type#||

' Lists='||c1.lists||' Groups='||c1.groups) ;

Warn := Warn + 1 ;

End If ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure BadCol#

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select o.obj# , Max(intcol#) maxi, Max(col#) maxc

From sys.col$ o

Group By o.obj#

Having Max(intcol#)>1000 Or max(col#)>999

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0039' ;

ps1a Varchar2(65) := 'COL$ (INTCOL#/COL#) too high' ;

bug1 Varchar2(80) :=

'Ref : Bug:2212987' ;

aff1 Varchar2(80) :=

'Affects: Vers BELOW 10.1 Specifically: 9.2.0.6' ;

fix1 Varchar2(80) :=

'Fixed : 9.2.0.8 10.1.0.2' ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note.2212987.8: Dictionary corruption can occur '||

'as function index allowed' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('OBJ#='||c1.obj#||' max(intcol#)'||c1.maxi||

' max(col#)='||c1.maxc);

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

--------------------------------------------------------------------------------

Procedure BadDepends

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select o.obj# dobj ,

p.obj# pobj ,

d.p_timestamp p_timestamp ,

p.stime p_stime ,

o.type# o_type ,

p.type# p_type

From sys.obj$ o ,

sys.dependency$ d ,

sys.obj$ p

Where p_obj# = p.obj# (+)

And d_obj# = o.obj#

And o.status = 1 /*dependent is valid*/

And o.subname is null /*!Old TYPE version*/

And bitand(d.property, 1) = 1 /*Hard dependency*/

And p.status = 1 /*parent is valid*/

And p.stime !=d.p_timestamp /*parent timestamp not match*/

Order By 2,1

;

nFr Number ;

ps1 Varchar2(10) := 'HCKW-0016' ;

ps1a Varchar2(65) := 'Dependency$ p_timestamp mismatch for VALID objects' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

to_chk Varchar2 (4) ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

If ( (c1.o_type = 5) and (c1.p_type = 29) ) Then

to_chk := '[W]' ;

Else

to_chk := '[E]' ;

End If ;

hout.put_line(to_chk||' - P_OBJ#='||c1.pobj||' D_OBJ#='||c1.dobj);

Warn := Warn + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure CheckDual

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select dummy From dual

;

nFr Number ;

ps1 Varchar2(10) := 'HCKW-0017' ;

ps1a Varchar2(65) := 'DUAL has more than one row' ;

ps1b Varchar2(80) := 'DUAL does not contain ''X''' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

n Number := 0 ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

n := n + 1 ;

If ( n > 1 ) Then

If (ps1a Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1a:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

Warn := Warn + 1 ;

End If ;

If ( Nvl(c1.dummy,'Z') != 'X' ) Then

If (ps1b Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1b) ;

ps1b:=null;

End If;

Warn := Warn + 1 ;

End If ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure ObjectNames

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

select username, object_type,

Substr(owner||'.'||object_name,1,62) Name

from dba_objects, dba_users

where object_name = username

and (owner=username Or owner='PUBLIC')

;

nFr Number ;

ps1 Varchar2(10) := 'HCKW-0018' ;

ps1a Varchar2(65) := 'OBJECT name clashes with SCHEMA name' ;

bug1 Varchar2(80) :=

'Ref : Bug:2894111' ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('Schema='||c1.username||' Object='||c1.name||' ('||

c1.object_type||')');

Warn := Warn + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure BadCboHiLo

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

select obj#,intcol#,lowval,hival from hist_head$ where lowval>hival

;

nFr Number ;

ps1 Varchar2(10) := 'HCKW-0019' ;

ps1a Varchar2(65) := 'HIST_HEAD$.LOWVAL > HIVAL' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('OBJ# '||c1.obj#||' INTCOL#='||c1.intcol#);

Warn := Warn + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure ChkIotTs

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select o.owner#, o.obj# , o.name , t.ts#, t.file#, t.block#

From sys.obj$ o, sys.tab$ t

Where Bitand(t.property,64) = 64 /* Marked as an IOT */

And ts# != 0

And o.obj# = t.obj#

;

nFr Number ;

ps1 Varchar2(10) := 'HCKW-0020' ;

ps1a Varchar2(65) := 'IOT Tab$ has TS#!=0' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('OBJ#='||c1.obj#||' ('||Owner(c1.owner#)||'.'||

c1.name||') '||' TS#='||c1.ts#||' f='||c1.file#||' b='||c1.block#) ;

Warn := Warn + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure NoSegmentIndex

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

select i.obj#, i.dataobj#, i.ts#, i.file#, i.block#, i.bo#, s.type#

from seg$ s, ind$ i

where i.ts# = s.ts#(+)

and i.file# = s.file#(+)

and i.block# = s.block#(+)

and Bitand(i.flags,4096) = 4096 /* Exclude NOSEGMENT index */

;

nFr Number ;

ps1 Varchar2(10) := 'HCKW-0021' ;

ps1a Varchar2(65) := 'NOSEGMENT IND$ exists' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) :=

'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If ( nF = 0) Then

sFr := InitsFr ;

End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

If (ps1 Is Not Null) Then

CursorRun := TRUE ;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=null;

End If;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('NOSEGMENT IND$: OBJ='||c1.obj#||

' DOBJ='||c1.dataobj#||

' TS='||c1.TS#||

' RFILE/BLOCK='||c1.file#||' '||c1.block#||

' BO#='||c1.bo#||' SegType='||c1.type#);

If (c1.type# Is Not Null) Then

hout.put_line('^- PROBLEM: NOSEGMENT Index has a segment attached');

End If ;

Warn := Warn + 1 ;

if (c1.TS#!=0 or c1.file#!=0 or c1.block#!=0) then

hout.put_line('^- Index has ts#/file#/block# set') ;

end if ;

CheckIndPart (c1.obj#) ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure BadNextObject

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select no.dataobj#, mx.maxobj#

From obj$ no , (select max(obj#) maxobj# from obj$) mx

Where no.type#=0 And no.name='_NEXT_OBJECT'

and mx.maxobj#>no.dataobj#

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0040' ;

ps1a Varchar2(65) := 'OBJ$ _NEXT_OBJECT entry too low' ;

bug1 Varchar2(80) := 'Ref : Bug:10104492' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If (nF = 0) Then sFr := InitsFr ; End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

CursorRun:=TRUE;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('OBJ$ _NEXT_OBJECT DATAOBJ#='||c1.dataOBJ#||

' MAX OBJ#='||c1.maxobj#);

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure OrphanIndopt

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select i.obj#, i.bind#, Count(*) cnt

From sys.indop$ i

Where i.property != 4

Group By i.obj#, i.bind#

Having Count(*) > 1

;

nFr Number ;

ps1 Varchar2(10) := 'HCKE-0041' ;

ps1a Varchar2(65) := 'Binding w/ multiple dictionary entries' ;

bug1 Varchar2(80) :=

'Ref : Bug:2161360' ;

aff1 Varchar2(80) := 'Affects: Vers BELOW 10.1 - '||

'Specifically: 9.2.0.1' ;

fix1 Varchar2(80) :=

'Fixed : 10.1.0.2' ;

tag1 Varchar2(80) := 'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note:2161360.8 - DROP of OPERATOR corrupts dictionary';

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If (nF = 0) Then sFr := InitsFr ; End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

CursorRun:=TRUE;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('OBJ# '||c1.obj#||' - BIND# '||c1.bind#||

'('||c1.cnt||')'

);

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure UpgFlgBitTmp

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select s.user#, s.ts#, s.file#, s.block#

From seg$ s

Where Bitand(s.spare1,513) = 513

;

nFr Number ;

ps1 Varchar2(80) := 'HCKE-0042' ;

ps1a Varchar2(80) := 'Segment Known != Temporary after upgrade' ;

bug1 Varchar2(80) :=

'Ref : Bug.2569255' ;

aff1 Varchar2(80) := 'Affects: Vers >=9.0 and BELOW 10.1 - '||

'Specifically: 9.2.0.2' ;

fix1 Varchar2(80) :=

'Fixed : 9.2.0.3 10.1.0.2' ;

tag1 Varchar2(80) := 'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note:2569255.8 - OERI:KCBGTCR_5 dropping segment upgrade from 8i' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If (nF = 0) Then sFr := InitsFr ; End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

CursorRun:=TRUE;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('USER#: '||c1.user#||' - TS# '||c1.ts#||' ('||c1.file#||

'/'||c1.block#||')'

);

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure RenCharView

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select u.name uname, o.name oname

From obj$ o, user$ u

Where o.type#= 4

And o.spare1 = 0

And o.owner# = u.user#

;

nFr Number ;

ps1 Varchar2(80) := 'HCKW-0022' ;

ps1a Varchar2(80) := 'Renamed VIEW w/ CHAR columns' ;

bug1 Varchar2(80) :=

'Ref : Bug:2909084' ;

aff1 Varchar2(80) := 'Affects: Vers >=8 and BELOW 10.1 - '||

'Specifically: 8.1.7.4 9.2.0.3' ;

fix1 Varchar2(80) :=

'Fixed: 8.1.7.5 9.2.0.4 10.1.0.2' ;

tag1 Varchar2(80) := 'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note: 2909084.8 - RENAME of a VIEW with CHAR column / wrong results' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If (nF = 0) Then sFr := InitsFr ; End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

CursorRun:=TRUE;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('VIEW: '||c1.uname||'.'||c1.oname);

Warn := Warn + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure Upg9iTab$

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select To_char(spare6), Count('x') nTot

From tab$

Where To_char(spare6) = '00-000-00'

Group By To_char(spare6)

;

nFr Number ;

ps1 Varchar2(80) := 'HCKW-0023' ;

ps1a Varchar2(80) := 'TAB$ contains corrupt data after upgrade to 9i' ;

bug1 Varchar2(80) :=

'Ref : Bug:3091612' ;

aff1 Varchar2(80) := 'Affects: Vers >=9.0 and BELOW 10.1 - '||

'Specifically: 9.2.0.4' ;

fix1 Varchar2(80) :=

'Fixed: 9.2.0.5 10.1.0.2' ;

tag1 Varchar2(80) := 'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note: 3091612.8 - TAB$.SPARE6: corrupt data after upgrade to 9i' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If (nF = 0) Then sFr := InitsFr ; End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

CursorRun:=TRUE;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('Total number of entries wrong: '||c1.nTot);

Warn := Warn + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure Upg9iTsInd

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select i.obj#, i.ts#, i.file#, i.block#, i.bo#

From ind$ i

Where ts# != 0

And bo# In (Select obj#

From tab$

Where Bitand(property, 12582912) != 0)

-- global temporary table (0x00400000)

-- session-specific temporary table (0x00800000)

;

nFr Number ;

ps1 Varchar2(80) := 'HCKW-0024' ;

ps1a Varchar2(80) := 'Corrupt IND$ data for Global Temp Table Idx' ;

bug1 Varchar2(80) :=

'Ref : Bug:3238525' ;

aff1 Varchar2(80) := 'Affects: Vers >=9.2 and BELOW 10.1'||

'Specifically: 9.2.0.3 9.2.0.5' ;

fix1 Varchar2(80) :=

'Fixed: 9.2.0.6 10.1.0.2' ;

tag1 Varchar2(80) := 'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note: 3238525.8 - Corrupt IND$ data after upgrade' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If (nF = 0) Then sFr := InitsFr ; End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

CursorRun:=TRUE;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('OBJ#='||c1.obj#||

' TS#='||c1.ts#||' '||c1.file#||' '||c1.block#);

Warn := Warn + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure Upg10gInd$

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select To_char(spare6), Count('x') nTot

From ind$

Where To_char(spare6) = '00-000-00'

Group By To_char(spare6)

;

nFr Number ;

ps1 Varchar2(80) := 'HCKW-0025' ;

ps1a Varchar2(80) := 'IND$ contains corrupt data after upgrade to 10g' ;

bug1 Varchar2(80) :=

'Ref : Bug:4134141' ;

aff1 Varchar2(80) := 'Affects: Vers >=10.1 and BELOW 10.2'||

'Specifically: 10.1.0.4' ;

fix1 Varchar2(80) :=

'Fixed: 10.1.0.5 10.2.0.1' ;

tag1 Varchar2(80) := 'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note: 842957.1 - EXPDP Fails With ORA-1801 During Schema Export' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If (nF = 0) Then sFr := InitsFr ; End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

CursorRun:=TRUE;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('Total number of entries wrong: '||c1.nTot);

Warn := Warn + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure DroppedROTS

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select t.ts#, t.name, f.file#

From ts$ t, file$ f

Where t.ts# = f.ts# (+)

And t.online$ = 4

And f.file# Is Null

;

nFr Number ;

ps1 Varchar2(80) := 'HCKE-0043' ;

ps1a Varchar2(80) :=

'Dictionary inconsistency for dropped RO tablespace' ;

bug1 Varchar2(80) :=

'Ref : Bug:3455402' ;

aff1 Varchar2(80) := 'Affects: Vers BELOW 10.2 - '||

'Specifically: 9.2.0.4 9.2.0.5' ;

fix1 Varchar2(80) :=

'Fixed: 9.2.0.6 10.1.0.4 10.2.0.1' ;

tag1 Varchar2(80) := 'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note: 3455402.8 - Corr: Concurrent DROP / ALTER TS READ ONLY' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If (nF = 0) Then sFr := InitsFr ; End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

CursorRun:=TRUE;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('TS='||c1.ts#||'('||c1.name||')');

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure ChrLenSmtcs

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

Select obj#, name, property, spare3, length

From col$

Where Bitand(property,8388608)!=0

And type#=23

;

nFr Number ;

ps1 Varchar2(80) := 'HCKW-0026' ;

ps1a Varchar2(80) := 'NLS_LENGTH_SEMANTICS / RAW after upgrade' ;

bug1 Varchar2(80) :=

'Ref : Bug:4638550' ;

aff1 Varchar2(80) := 'Affects: Vers BELOW 11.1 - '||

'Specifically: 10.2.0.2' ;

fix1 Varchar2(80) :=

'Fixed: 10.2.0.3 11.1.0.6' ;

tag1 Varchar2(80) := 'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) :=

'Note: 4638550.8 - OERI[dmlsrvColLenChk_2:dty] on upgrade from 9.2' ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If (nF = 0) Then sFr := InitsFr ; End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

CursorRun:=TRUE;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('OBJ#='||c1.obj#);

Warn := Warn + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure FilBlkZero

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

noTable EXCEPTION ;

PRAGMA EXCEPTION_INIT(noTable, -942) ;

Cursor sCur1 Is

Select t_i.typ, t_i.ts#, t_i.file#, t_i.block#, t_i.obj#

From

(

Select 'TABLE' typ, t.ts#, t.file#, t.block#, t.obj# from tab$ t

Union All

Select 'INDEX' typ, i.ts#, i.file#, i.block#, i.obj# from ind$ i

) t_i ,

ts$ t ,

obj$ o

Where t_i.ts#=t.ts#

And t.name not in ('SYSTEM','SYSAUX')

And t_i.file# = 0

And t_i.block# = 0

And t_i.obj# = o.obj#

And o.flags != 2 /* 0x02 -> Global Temp */

;

nFr Number ;

ps1 Varchar2(80) := 'HCKE-0044' ;

ps1a Varchar2(80) := 'Object has zeroed file/block Information' ;

bug1 Varchar2(80) := Null ;

aff1 Varchar2(80) := Null ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) := 'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

def_obj number := 0 ;

def_count number := 0 ;

def_exists number := 1 ;

sqlstr varchar2(80) := 'Select Count(''x'') From deferred_stg$' ;

sqlstr1 varchar2(80) := 'Select obj# From deferred_stg$ Where obj# = :obj' ;

Begin

If (nF = 0) Then sFr := InitsFr ; End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

Begin

Execute Immediate sqlstr Into def_count ;

Exception

When noTable Then

def_exists := 0 ;

End ;

For c1 in sCur1 Loop

If ( def_exists = 0 ) Then

CursorRun:=TRUE;

If (ps1 Is Not Null) Then

CursorRun:=TRUE;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=Null;

End If ;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line(c1.typ||' - OBJ#='||c1.obj#||' TS#='||c1.ts#);

Fatal := Fatal + 1 ;

Else

Begin

Execute Immediate sqlstr1 Into def_obj Using c1.obj# ;

Exception

When NO_DATA_FOUND Then

If (ps1 Is Not Null) Then

CursorRun:=TRUE;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

ps1:=Null;

End If ;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null;

End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null;

End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null;

End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null;

End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null;

End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line(c1.typ||' - OBJ#='||c1.obj#||' TS#='||c1.ts#);

Fatal := Fatal + 1 ;

End ;

End If ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

Procedure DbmsSchemaCopy

(nF In Number Default 0,

VerChk In Number Default 5,

Verbose In Boolean Default FALSE)

Cursor sCur1 Is

select o.obj#, u.name owner, o.name object

from obj$ o, user$ u

where o.owner# = u.user#

and o.type# in (4,5,6,7,8,9,11)

and o.subname='CLONE_USE'

;

nFr Number ;

ps1 Varchar2(80) := 'HCKE-0045' ;

ps1a Varchar2(80) := '"DBMS_SCHEMA_COPY" - Failed Execution' ;

bug1 Varchar2(80) :=

'Ref : Bug:13383874' ;

aff1 Varchar2(80) := 'Affects: 10gR2' ||

'Specifically: (unresolved: 33)' ;

fix1 Varchar2(80) := Null ;

tag1 Varchar2(80) := 'CORR/DIC HCHECK '||ps1 ;

not1 Varchar2(80) := Null ;

CursorRun Boolean := FALSE ; V Boolean := Verbose ;

Begin

If (nF = 0) Then sFr := InitsFr ; End If ;

nFr := hcheck.CatV2nCatV ( sFr(nF), VerChk );

ChecknCatVnFR (nCatV, nFR, bRun) ;

If ( bRun = FALSE ) Then return ; End If ;

For c1 in sCur1 Loop

CursorRun:=TRUE;

hout.put_line (chr(10)||ps1||': '||ps1a) ;

If ( V ) Then

if (bug1 Is Not Null) Then hout.put_line(bug1); bug1:=null; End If;

if (aff1 Is Not Null) Then hout.put_line(aff1); aff1:=null; End If;

if (fix1 Is Not Null) Then hout.put_line(fix1); fix1:=null; End If;

if (tag1 Is Not Null) Then hout.put_line(tag1); tag1:=null; End If;

if (not1 Is Not Null) Then hout.put_line(not1); not1:=null; End If;

hout.put(chr(10)); V := FALSE ;

End If ;

hout.put_line('OBJ#='||c1.obj#||' - '||c1.owner||'.'||c1.object);

Fatal := Fatal + 1 ;

End Loop ;

If ( CursorRun ) Then hout.put(chr(10)) ; End If ;

End;

-- Main

Procedure Full (Verbose In Boolean Default FALSE,

RunAll In Boolean Default FALSE,

VerChk In Number Default 5) Is

FnIdx Number := 0 ;

nvc Number ;

stmt Varchar2(80) := Null ;

sV Varchar2 (6) := 'FALSE' ;

Begin

Fatal := 0 ; /* Number Of Fatal Errors */

Warn := 0 ; /* Number Of Warnings */

-- List Of Procedure Names

sFn (1) := 'SynLastDDLTim' ; /* 1 */

sFn (2) := 'LobNotInObj' ; /* 2 */

sFn (3) := 'MissingOIDOnObjCol' ; /* 3 */

sFn (4) := 'SourceNotInObj' ; /* 4 */

sFn (5) := 'IndIndparMismatch' ; /* 5 */

sFn (6) := 'InvCorrAudit' ; /* 6 */

sFn (7) := 'OversizedFiles' ; /* 7 */

sFn (8) := 'TinyFiles' ; /* 8 */

sFn (9) := 'PoorDefaultStorage' ; /* 9 */

sFn(10) := 'PoorStorage' ; /* 10 */

sFn(11) := 'MissTabSubPart' ; /* 11 */

sFn(12) := 'PartSubPartMismatch' ; /* 12 */

sFn(13) := 'TabPartCountMismatch' ; /* 13 */

sFn(14) := 'OrphanedTabComPart' ; /* 14 */

sFn(15) := 'ZeroTabSubPart' ; /* 15 */

sFn(16) := 'MissingSum$' ; /* 16 */

sFn(17) := 'MissingDir$' ; /* 17 */

sFn(18) := 'DuplicateDataobj' ; /* 18 */

sFn(19) := 'ObjSynMissing' ; /* 19 */

sFn(20) := 'ObjSeqMissing' ; /* 20 */

sFn(21) := 'OrphanedUndo' ; /* 22 */

sFn(22) := 'OrphanedIndex' ; /* 21 */

sFn(23) := 'OrphanedIndexPartition' ; /* 23 */

sFn(24) := 'OrphanedIndexSubPartition' ; /* 24 */

sFn(25) := 'OrphanedTable' ; /* 25 */

sFn(26) := 'OrphanedTablePartition' ; /* 26 */

sFn(27) := 'OrphanedTableSubPartition' ; /* 27 */

sFn(28) := 'MissingPartCol' ; /* 28 */

sFn(29) := 'OrphanedSeg$' ; /* 29 */

sFn(30) := 'OrphanedIndPartObj#' ; /* 30 */

sFn(31) := 'DuplicateBlockUse' ; /* 31 */

sFn(32) := 'HighObjectIds' ; /* 32 */

sFn(33) := 'PQsequence' ; /* 33 */

sFn(34) := 'TruncatedCluster' ; /* 34 */

sFn(35) := 'FetUet' ; /* 35 */

sFn(36) := 'Uet0Check' ; /* 36 */

sFn(37) := 'ExtentlessSeg' ; /* 37 */

sFn(38) := 'SeglessUET' ; /* 38 */

sFn(39) := 'BadInd$' ; /* 39 */

sFn(40) := 'BadTab$' ; /* 40 */

sFn(41) := 'BadIcolDepCnt' ; /* 41 */

sFn(42) := 'WarnIcolDep' ; /* 42 */

sFn(43) := 'OnlineRebuild$' ; /* 43 */

sFn(44) := 'DropForceType' ; /* 44 */

sFn(45) := 'TrgAfterUpgrade' ; /* 45 */

sFn(46) := 'FailedInitJVMRun' ; /* 46 */

sFn(47) := 'TypeReusedAfterDrop' ; /* 47 */

sFn(48) := 'Idgen1$TTS' ; /* 48 */

sFn(49) := 'DroppedFuncIdx' ; /* 49 */

sFn(50) := 'BadOwner' ; /* 50 */

sFn(51) := 'UpgCheckc0801070' ; /* 51 */

sFn(52) := 'BadPublicObjects' ; /* 52 */

sFn(53) := 'BadSegFreelist' ; /* 53 */

sFn(54) := 'BadCol#' ; /* 54 */

sFn(55) := 'BadDepends' ; /* 55 */

sFn(56) := 'CheckDual' ; /* 56 */

sFn(57) := 'ObjectNames' ; /* 57 */

sFn(58) := 'BadCboHiLo' ; /* 58 */

sFn(59) := 'ChkIotTs' ; /* 59 */

sFn(60) := 'NoSegmentIndex' ; /* 60 */

sFn(61) := 'BadNextObject' ; /* 61 */

sFn(62) := 'OrphanIndopt' ; /* 62 */

sFn(63) := 'UpgFlgBitTmp' ; /* 63 */

sFn(64) := 'RenCharView' ; /* 64 */

sFn(65) := 'Upg9iTab$' ; /* 65 */

sFn(66) := 'Upg9iTsInd' ; /* 66 */

sFn(67) := 'Upg10gInd$' ; /* 67 */

sFn(68) := 'DroppedROTS' ; /* 68 */

sFn(69) := 'ChrLenSmtcs' ; /* 69 */

sFn(70) := 'FilBlkZero' ; /* 70 */

sFn(71) := 'DbmsSchemaCopy' ; /* 71 */

sFr := InitsFr ;

-- number of fields in the release to check against

-- can never be > 5 or < 1

nvc := VerChk ;

If ( VerChk > 5 Or VerChk < 1 ) Then

nvc := 5 ;

End If ;

-- Get Catalog Version (Both String and Number)

If ( RunAll ) Then

CatV := '0.0.0.0.0' ;

nCatV := 0 ;

Else

Select version Into CatV From dba_registry Where comp_id='CATALOG' ;

nCatV := hcheck.CatV2nCatV ( CatV, nvc ) ;

End If ;

hout.put_line('H.Check Version '||Ver);

hout.put_line('---------------------------------------') ;

hout.put_line('Catalog Version '||Lpad(CatV,10,' ')||' '||

Lpad( '('||To_char(nCatV)||')', 12, ' ')

) ;

hout.put_line('---------------------------------------') ;

If ( Verbose ) Then

hout.put_line('Running in Verbose mode ...') ;

sV := 'TRUE' ;

End If ;

hout.put(chr(10));

hout.put_line(' Catalog '||

' Fixed ') ;

hout.put_line('Procedure Name Version '||

' Vs Release Run') ;

hout.put_line('------------------------------ ... ----------'||

' -- ---------- ---') ;

-- Call All Defined Procedures

For FnIdx in 1..nFunc Loop

stmt := 'Begin hcheck.'||

sFn(FnIdx)||' '||'('||

FnIdx||', '||

nvc||', '||

sV||

')'||' ; End ;' ;

hout.put(Rpad('.- '||sFn(FnIdx), 30, ' ')||' ... ') ;

Execute Immediate stmt ;

End Loop ;

hout.put_line(chr(10)||'Found '||Fatal||' potential problem(s) and '||

warn||' warning(s)');

hout.new_line;

If (Fatal>0 or Warn>0) Then

hout.put_line('Contact Oracle Support with the output');

hout.put_line('to check if the above needs attention or not');

End If;

End ;

End hcheck ;

set serveroutput on size 1000000

exec hcheck.Full ;

5.hcheck2.sql

REM

REM ======================================================================

REM hcheck8i.sql Version 2.00 Tue Mar 1 11:13:40 CET 2011

REM

REM Purpose:

REM To provide a single package which looks for common data dictionary

REM problems.

REM Note that this version has not been checked with locally managed

REM tablespaces and may give spurious output if these are in use.

REM This script is for use mainly under the guidance of Oracle Support.

REM

REM Usage:

REM set serverout on

REM execute hcheck.full;

REM

REM Output is to the hOut package to allow output to be redirected

REM as required

REM

REM See <101466.1> for details of using this and other h* packages101466.1>

REM

REM Depends on:

REM hOut

REM

REM Notes:

REM Must be installed in SYS schema

REM This package is intended for use in Oracle 8.1 through 11.1

REM This package will NOT work in 8.0 or earlier.

REM In all cases any output reporting "problems" should be

REM passed by an experienced Oracle Support analyst to confirm

REM if any action is required.

REM

REM CAUTION

REM The sample program in this article is provided for educational

REM purposes only and is NOT supported by Oracle Support Services.

REM It has been tested internally, however, and works as documented.

REM We do not guarantee that it will work for you, so be sure to test

REM it in your environment before relying on it.

REM

REM ======================================================================

REM

create or replace package hcheck as

procedure Full;

end hcheck;

show errors

create or replace package body hcheck as

Ver VARCHAR2(10) := '8i-11/2.00';

Warn NUMBER :=0;

Fatal NUMBER :=0;

Function Owner( uid number ) return varchar2 is

r varchar2(30):=null;

begin

select name into r from user$ where user#=uid;

return(r);

exception

when no_data_found then

return('*UnknownOwnerID='||uid||'*');

end;

Function ObjName( objid number ) return varchar2 is

r varchar2(40):=null;

own number;

begin

select name , owner# into r,own from obj$ where obj#=objid;

return(owner(own)||'.'||r);

exception

when no_data_found then

return('*UnknownObjID='||objid||'*');

end;

procedure OversizedFiles is

Cursor cBigFile is

select f.ts# TS, f.relfile# RFILE, f.file# AFILE, v.name NAME, f.blocks

from ts$ ts, file$ f, v$datafile v

where ts.ts# = f.ts#

and v.file# = f.file#

and f.blocks > 4194303

and bitand(ts.flags,256) != 256

order by f.ts#, f.relfile#

;

tag varchar2(80):=chr(10)||

'Problem: Oversized File - See Note:107591.1 (Bug:568232 , Bug:925105)';

begin

For R in cBigFile

Loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' OVERSIZED FILE ('||r.blocks||' blocks) TS='||R.TS||

' RFILE='||r.RFILE||

' ABS='||r.AFILE||' Name='||r.NAME);

Fatal:=Fatal+1;

End Loop;

end;

function ObjectIsTemporary( o number ) return boolean

-- Return TRUE if object is a TEMPORARY object

-- Return NULL if object does not exist

-- Return FALSE if object is not temporary

Cursor cIsTemp is

select bitand(nvl(flags,0), 2) IsTemp from obj$ where obj#=o

;

ret boolean:=NULL;

begin

FOR R in cIsTemp LOOP -- For loop just to keep cursor closed

if R.IsTemp=2 then ret:=TRUE; else ret:=FALSE; end if;

END LOOP;

return RET;

end;

procedure OrphanedIndex is

noTable EXCEPTION ;

PRAGMA EXCEPTION_INIT(noTable, -942) ;

Cursor cOrphanInd is

select i.obj#, i.dataobj#, i.ts#, i.file#, i.block#, i.bo#, s.type#

from seg$ s, ind$ i

where i.ts#=s.ts#(+)

and i.file#=s.file#(+)

and i.block#=s.block#(+)

and i.dataobj# is not null /* ie: A Physical object */

-- and not (i.file#=0 and i.block#=0) /* Covered by IF in loop */

and bitand(i.flags,4096)!=4096 /* Exclude NOSEGMENT index */

and nvl(s.type#,0)!=6

;

def_obj number := 0 ;

def_count number := 0 ;

def_exists number := 1 ;

sqlstr varchar2(80) := 'Select Count(''x'') From deferred_stg$' ;

sqlstr1 varchar2(80) := 'Select obj# From deferred_stg$ Where obj# = :obj' ;

tag varchar2(80):=chr(10)||

'Problem: Orphaned IND$ (no SEG$) - See Note:65987.1 (Bug:624613/3655873)';

ind_flags number ;

Begin

Execute Immediate sqlstr Into def_count ;

Exception

When noTable Then

def_exists := 0 ;

End ;

For R in cOrphanInd

Loop

Begin

if (ObjectIsTemporary(R.obj#)) then

null; -- This is ok

else

select o.flags

into ind_flags

from obj$ o

where obj#=R.bo# ;

if (ind_flags != 2) /* 0x02 -> Global Temp */

then

if (def_exists = 0) then

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' ORPHAN IND$: OBJ='||R.obj#||

' DOBJ='||r.dataobj#||

' TS='||r.TS#||

' RFILE/BLOCK='||r.file#||' '||r.block#||

' BO#='||r.bo#||' SegType='||R.type#);

if (r.TS#=0 and r.file#=0 and r.block#=0) then

hout.put_line(' ^- May be OK. Needs manual check');

end if ;

Fatal:=Fatal+1;

else

Begin

Execute Immediate sqlstr1 Into def_obj Using R.obj# ;

Exception

When NO_DATA_FOUND Then

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' ORPHAN IND$: OBJ='||R.obj#||

' DOBJ='||r.dataobj#||

' TS='||r.TS#||

' RFILE/BLOCK='||r.file#||' '||r.block#||

' BO#='||r.bo#||' SegType='||R.type#);

if (r.TS#=0 and r.file#=0 and r.block#=0) then

hout.put_line(' ^- May be OK. Needs manual check');

end if ;

Fatal:=Fatal+1;

End ;

end if;

Exception

When NO_DATA_FOUND

then

hout.put_line(' ORPHAN IND$: OBJ='||R.obj#||

' DOBJ='||r.dataobj#||

' TS='||r.TS#||

' RFILE/BLOCK='||r.file#||' '||r.block#||

' BO#='||r.bo#||' SegType='||R.type#);

if (r.TS#=0 and r.file#=0 and r.block#=0)

then

hout.put_line(' ^- May be OK. Needs manual check');

end if;

Fatal:=Fatal+1;

End ;

End Loop;

End;

function IndexIsNosegment( o number ) return boolean is

Cursor cX is

select bitand(flags,4096) noseg from ind$ where obj#=o;

ret boolean:=null;

begin

For C in cX

loop

if C.noseg=4096 then

ret:=true;

else

ret:=false;

end if;

end loop;

return ret; /* true/false or NULL if not found */

end;

procedure OrphanedUndo is

Cursor cOrphanUndo is

select u.us# u_us,

u.name u_name,

u.ts# u_ts,

nvl(s.ts#,0) s_ts,

u.file# u_file,

nvl(s.file#,0) s_file,

u.block# u_block,

nvl(s.block#,0) s_block,

u.status$ u_status,

nvl(s.type#,0) s_type

from undo$ u,

seg$ s

where u.ts# = s.ts# (+)

and u.file# = s.file# (+)

and u.block# = s.block# (+)

and u.status$ > 1

and nvl(s.type#,0) != 1

;

tag varchar2(80):=chr(10)||'Problem: Orphaned Undo$ (no SEG$) - See '||

'Note:270386.1';

begin

For R in cOrphanUndo

Loop

If ((R.s_ts != R.u_ts) Or

(R.s_file != R.u_file) Or

(R.s_block != R.u_block))

Then

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' ORPHAN UNDO$: US#='||R.u_us||

' NAME='||R.u_name||

' RFILE/BLOCK='||R.u_file||' '||R.u_block||

' STATUS$='||R.u_status);

Fatal:=Fatal+1;

End if ;

End Loop;

End;

procedure OrphanedIndexPartition is

noTable EXCEPTION ;

PRAGMA EXCEPTION_INIT(noTable, -942) ;

def_obj number := 0 ;

def_count number := 0 ;

def_exists number := 1 ;

Cursor cOrphanInd is

select i.obj#, i.ts#, i.file#, i.block#, i.bo#, s.type#

from seg$ s, indpart$ i

where i.ts#=s.ts#(+)

and i.file#=s.file#(+)

and i.block#=s.block#(+)

and i.dataobj# is not null /* ie: A Physical object */

and not (i.ts#=0 and i.file#=0 and i.block#=0) /* TEMP */

and nvl(s.type#,0)!=6

;

sqlstr varchar2(80) := 'Select Count(''x'') From deferred_stg$' ;

sqlstr1 varchar2(80) := 'Select obj# From deferred_stg$ Where obj# = :obj' ;

tag varchar2(80):=chr(10)||

'Problem: Orphaned Index Partition (no SEG$) - '||

'See Note:65987.1 (Bug:624613)';

noseg boolean:=null;

begin

Begin

Execute Immediate sqlstr Into def_count ;

Exception

When noTable Then

def_exists := 0 ;

End ;

For R in cOrphanInd

Loop

noseg:=IndexIsNosegment(R.bo#);

if (def_exists = 0) then

begin

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' ORPHAN INDPART$: OBJ='||R.obj#||

' TS='||r.TS#||

' RFILE/BLOCK='||r.file#||' '||r.block#||

' BO#='||r.bo#||' SegType='||R.type#);

Fatal:=Fatal+1;

end ;

else

if (noseg is null OR noseg = false) then

begin

execute immediate sqlstr1 into def_obj Using R.obj# ;

exception when NO_DATA_FOUND then

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' ORPHAN INDPART$: OBJ='||R.obj#||

' TS='||r.TS#||

' RFILE/BLOCK='||r.file#||' '||r.block#||

' BO#='||r.bo#||' SegType='||R.type#);

Fatal:=Fatal+1;

end ;

end if;

if noseg is null then

hout.put_line(' ^- INDPART$ . BO# has no IND$ entry ??');

end if;

End Loop;

End;

procedure OrphanedIndexSubPartition is

noTable EXCEPTION ;

PRAGMA EXCEPTION_INIT(noTable, -942) ;

def_obj number := 0 ;

def_count number := 0 ;

def_exists number := 1 ;

Cursor cOrphanInd is

select i.obj#, i.ts#, i.file#, i.block#, i.pobj#, s.type#

from seg$ s, indsubpart$ i

where i.ts#=s.ts#(+)

and i.file#=s.file#(+)

and i.block#=s.block#(+)

and i.dataobj# is not null /* ie: A Physical object */

and not (i.ts#=0 and i.file#=0 and i.block#=0) /* TEMP */

and nvl(s.type#,0)!=6

;

sqlstr varchar2(80) := 'Select Count(''x'') From deferred_stg$' ;

sqlstr1 varchar2(80) := 'Select obj# From deferred_stg$ Where obj# = :obj' ;

tag varchar2(80):=chr(10)||

'Problem: Orphaned Index SubPartition (no SEG$) - '||

'See xxxxx';

Begin

Execute Immediate sqlstr Into def_count ;

Exception

When noTable Then

def_exists := 0 ;

End ;

For R in cOrphanInd Loop

Begin

if (def_exists = 0) then

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' ORPHAN INDSUBPART$: OBJ='||R.obj#||

' TS='||r.TS#||

' RFILE/BLOCK='||r.file#||' '||r.block#||

' POBJ#='||r.pobj#||' SegType='||R.type#);

-- Fatal:=Fatal+1;

else

Begin

execute immediate sqlstr1 into def_obj Using R.obj# ;

exception when NO_DATA_FOUND then

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' ORPHAN INDSUBPART$: OBJ='||R.obj#||

' TS='||r.TS#||

' RFILE/BLOCK='||r.file#||' '||r.block#||

' POBJ#='||r.pobj#||' SegType='||R.type#);

-- Fatal:=Fatal+1;

End ;

End if ;

End ;

End Loop;

End ;

procedure OrphanedTable is

noTable EXCEPTION ;

PRAGMA EXCEPTION_INIT(noTable, -942) ;

def_obj number := 0 ;

def_count number := 0 ;

def_exists number := 1 ;

Cursor cOrphanTab is

select i.obj#, i.dataobj#, i.ts#, i.file#, i.block#, i.bobj#, s.type#,

bitand(i.property,64) iot

from seg$ s, tab$ i

where i.ts#=s.ts#(+)

and i.file#=s.file#(+)

and i.block#=s.block#(+)

and i.dataobj# is not null /* ie: A Physical object */

/* and not (i.ts#=0 and i.file#=0 and i.block#=0) /* TEMP */

and nvl(s.type#,0)!=5

and bitand(i.property,64)!=64 /*(So that we exclude iot's) */

;

sqlstr varchar2(80) := 'Select Count(''x'') From deferred_stg$' ;

sqlstr1 varchar2(80) := 'Select obj# From deferred_stg$ Where obj# = :obj' ;

tag varchar2(80):=chr(10)||

'Problem: Orphaned TAB$ (no SEG$)';

Begin

-- 11gR2 introduces Deferred Segment Creation feature.

-- need to check against sys.deferred_stg$ before reporting segment failure.

Begin

Execute Immediate sqlstr Into def_count ;

Exception

When noTable Then

def_exists := 0 ;

End ;

For R in cOrphanTab

Loop

if (ObjectIsTemporary(R.obj#)) then

null; -- This is ok

else

if (r.iot=64 and r.dataobj#=0 and r.ts#=0 and r.file#=0 and r.block#=0)

then

null; -- this is a truncated IOT - see 4701060

else

if (def_exists = 0) then

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' ORPHAN TAB$: OBJ='||R.obj#||

' DOBJ='||r.dataobj#||

' TS='||r.TS#||

' RFILE/BLOCK='||r.file#||' '||r.block#||

' BOBJ#='||r.bobj#||' SegType='||R.type#);

if (r.TS#=0 and r.file#=0 and r.block#=0) then

hout.put_line(' ^- May be OK. Needs manual check');

end if;

Fatal:=Fatal+1;

else

Begin

Execute Immediate sqlstr1 Into def_obj Using R.obj# ;

Exception

When NO_DATA_FOUND Then

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' ORPHAN TAB$: OBJ='||R.obj#||

' DOBJ='||r.dataobj#||

' TS='||r.TS#||

' RFILE/BLOCK='||r.file#||' '||r.block#||

' BOBJ#='||r.bobj#||' SegType='||R.type#);

if (r.TS#=0 and r.file#=0 and r.block#=0) then

hout.put_line(' ^- May be OK. Needs manual check');

end if;

Fatal:=Fatal+1;

End ;

end if;

End Loop;

End;

procedure OrphanedTablePartition is

noTable EXCEPTION ;

PRAGMA EXCEPTION_INIT(noTable, -942) ;

def_obj number := 0 ;

def_count number := 0 ;

def_exists number := 1 ;

Cursor cOrphanTabPart is

select i.obj#, i.ts#, i.file#, i.block#, i.bo#, s.type#

from seg$ s, tabpart$ i, tab$ t

where i.ts#=s.ts#(+)

and i.file#=s.file#(+)

and i.block#=s.block#(+)

and i.dataobj# is not null /* ie: A Physical object */

and i.bo# = t.obj#

and not (i.ts#=0 and i.file#=0 and i.block#=0) /* TEMP */

and nvl(s.type#,0)!=5

and bitand(t.property,64)!=64 /*(So that we exclude iot's) */

;

sqlstr varchar2(80) := 'Select Count(''x'') From deferred_stg$' ;

sqlstr1 varchar2(80) := 'Select obj# From deferred_stg$ Where obj# = :obj' ;

tag varchar2(80):=chr(10)||

'Problem: Orphaned Table Partition (no SEG$) - (Cause unknown)';

begin

Begin

Execute Immediate sqlstr Into def_count ;

Exception

When noTable Then

def_exists := 0 ;

End ;

For R in cOrphanTabPart

Loop

begin

if (def_exists = 0) then

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' ORPHAN TABPART$: OBJ='||R.obj#||

' TS='||r.TS#||

' RFILE/BLOCK='||r.file#||' '||r.block#||

' BO#='||r.bo#||' SegType='||R.type#);

if (r.TS#=0 and r.file#=0 and r.block#=0) then

hout.put_line(' ^- May be OK. Needs manual check');

end if;

Fatal:=Fatal+1;

else

begin

Execute Immediate sqlstr1 Into def_obj Using R.obj# ;

Exception

When NO_DATA_FOUND Then

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' ORPHAN TABPART$: OBJ='||R.obj#||

' TS='||r.TS#||

' RFILE/BLOCK='||r.file#||' '||r.block#||

' BO#='||r.bo#||' SegType='||R.type#);

if (r.TS#=0 and r.file#=0 and r.block#=0) then

hout.put_line(' ^- May be OK. Needs manual check');

end if;

Fatal:=Fatal+1;

end;

end if ;

end ;

End Loop;

End;

procedure OrphanedTableSubPartition is

noTable EXCEPTION ;

PRAGMA EXCEPTION_INIT(noTable, -942) ;

def_obj number := 0 ;

def_count number := 0 ;

def_exists number := 1 ;

Cursor cOrphanTabSubPart is

select tsp.obj#, tsp.ts#, tsp.file#, tsp.block#, tsp.pobj#, s.type#

from obj$ o, tabcompart$ tcp, tabsubpart$ tsp, seg$ s

where o.obj# = tcp.obj#

and tcp.obj# = tsp.pobj#

and tsp.ts# = s.ts# (+)

and tsp.file# = s.file# (+)

and tsp.block# = s.block# (+)

and s.file# is null

;

sqlstr varchar2(80) := 'Select Count(''x'') From deferred_stg$' ;

sqlstr1 varchar2(80) := 'Select obj# From deferred_stg$ Where obj# = :obj' ;

tag varchar2(80):=chr(10)||

'Problem: Orphaned Table SubPartition (no SEG$) - (Cause unknown)';

begin

Begin

Execute Immediate sqlstr Into def_count ;

Exception

When noTable Then

def_exists := 0 ;

End ;

For R in cOrphanTabSubPart

Loop

begin

if (def_exists = 0) then

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' ORPHAN TABSUBPART$: OBJ='||R.obj#||

' TS='||r.TS#||

' RFILE/BLOCK='||r.file#||' '||r.block#||

' POBJ#='||r.pobj#||' SegType='||R.type#);

Fatal:=Fatal+1;

else

begin

execute immediate sqlstr1 Into def_obj Using R.obj# ;

Exception

When NO_DATA_FOUND Then

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' ORPHAN TABSUBPART$: OBJ='||R.obj#||

' TS='||r.TS#||

' RFILE/BLOCK='||r.file#||' '||r.block#||

' POBJ#='||r.pobj#||' SegType='||R.type#);

Fatal:=Fatal+1;

end ;

end if ;

end ;

End Loop;

End;

procedure OrphanedTabComPart is

Cursor cOrphanTCP is

select t.obj# , t.bo#, b.name, p.name pname, p.subname, b.owner#

from tabcompart$ t, obj$ b, obj$ p

where b.obj#(+)=t.bo#

and p.obj#(+)=t.obj# and p.obj#+b.obj# is null

;

tag varchar2(80):=chr(10)||

'Problem: Orphaned TabComPart$ from OBJ$ - (see Bug:1528062)';

begin

For R in cOrphanTCP

Loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' ORPHAN TABCOMPART$: OBJ='||R.obj#||

' OBJ#Name='||r.subname||' ('||r.pname||')'||

' BO#='||R.bo#||

' BO#name='||Owner(R.owner#)||'.'||R.name);

Fatal:=Fatal+1;

End Loop;

End;

procedure ZeroTabSubPart is

Cursor cZero is

select sp.obj#, sp.ts#, sp.pobj#, b.name, b.subname, b.owner#

from indsubpart$ sp, obj$ b

where sp.file#=0 and sp.block#=0

and b.obj#(+)=sp.pobj#

;

tag varchar2(80):=chr(10)||

'Problem: IndSubPart$ has File#=0'||

'(see Bug:1614155 if also Orphan SEG$)';

begin

For R in cZero

Loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' ORPHAN INDSUBPART$: OBJ#='||R.obj#||

' POBJ#='||R.pobj#||

' Index='||Owner(R.Owner#)||'.'||R.name||

' Partn='||R.subname);

Fatal:=Fatal+1;

End Loop;

End;

procedure MissingPartCol is

-- Drop table will return:

-- ORA-00600: internal error code, arguments: [kkpodDictPcol1], [1403], [0]

Cursor cOrphanColObj is

select tp.bo#, tp.obj#, tp.ts#, tp.file#, tp.block#, o.type#

from tabpart$ tp, partcol$ pc, obj$ o

where tp.bo# = pc.obj# (+)

and tp.obj# = o.obj#

and pc.obj# is null

;

tag varchar2(80):=chr(10)||

'Problem: Missing TabPart Column (no PARTCOL$ info)';

begin

For R in cOrphanColObj

Loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' MISSING PARTCOL$: OBJ='||R.bo#||

' DOBJ='||R.obj#||

' TS='||R.ts#||

' RFILE/BLOCK='||R.file#||' '||R.block#||

' SegType='||R.type#);

Fatal:=Fatal+1;

End Loop;

End;

procedure OrphanedSeg$ is

Cursor cOrphanSeg is

select 'TYPE2 UNDO' typ, s.ts#, s.file#, s.block#

from seg$ s, undo$ u

where s.ts#=u.ts#(+)

and s.file#=u.file#(+)

and s.block#=u.block#(+)

and s.type#=10

-- and u.file# is null

and decode(u.status$,1,null,u.status$) is null

UNION ALL

select 'UNDO' typ, s.ts#, s.file#, s.block#

from seg$ s, undo$ i

where s.ts#=i.ts#(+)

and s.file#=i.file#(+)

and s.block#=i.block#(+)

and s.type#=1

-- and i.file# is null

and decode(i.status$,1,null,i.status$) is null

UNION ALL

select 'DATA' typ, s.ts#, s.file#, s.block#

from seg$ s,

(select a.ts#,a.file#,a.block# from tab$ a

union all

select b.ts#,b.file#,b.block# from clu$ b

union all

select c.ts#,c.file#,c.block# from tabpart$ c

union all

select d.ts#,d.file#,d.block# from tabsubpart$ d

) i

where s.ts#=i.ts#(+)

and s.file#=i.file#(+)

and s.block#=i.block#(+)

and s.type#=5

and i.file# is null

UNION ALL

select 'INDEX' typ, s.ts#, s.file#, s.block#

from seg$ s,

(select a.ts#,a.file#,a.block# from ind$ a

union all

select b.ts#,b.file#,b.block# from indpart$ b

union all

select d.ts#,d.file#,d.block# from indsubpart$ d

) i

where s.ts#=i.ts#(+)

and s.file#=i.file#(+)

and s.block#=i.block#(+)

and s.type#=6

and i.file# is null

UNION ALL

select 'LOB' typ, s.ts#, s.file#, s.block#

from seg$ s, lob$ i --, sys_objects so

where s.ts#=i.ts#(+)

and s.file#=i.file#(+)

and s.block#=i.block#(+)

and s.type#=8

and i.file# is null

;

tag varchar2(80):=chr(10)||

'Problem: Orphaned SEG$ Entry';

so_type number ;

begin

For R in cOrphanSeg

Loop

If (R.typ = 'LOB')

then

Begin

select so.object_type_id into so_type

from sys_objects so

where so.ts_number = R.ts#

and so.header_file = R.file#

and so.header_block = R.block# ;

if ( so_type not in (40, 41) ) /* Object Found */

then

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' ORPHAN SEG$: SegType='||R.typ||

' TS='||r.TS#||

' RFILE/BLOCK='||r.file#||' '||r.block#);

Fatal:=Fatal+1;

End If ;

Exception

When NO_DATA_FOUND /* Object *Not Found */

then

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' ORPHAN SEG$: SegType='||R.typ||

' TS='||r.TS#||

' RFILE/BLOCK='||r.file#||' '||r.block#);

Fatal:=Fatal+1;

End ;

End If ;

End Loop;

End;

procedure DictAt( ts number, fi number, bl number ) is

Cursor cDictAt is

select typ, ts#,file#,block#,count('x') CNT

from (

select 'UNDO$' typ, u.ts#, u.file#, u.block# from undo$ u

where decode(u.status$,1,null,u.status$) is null

UNION ALL

select 'TAB$', a.ts#,a.file#,a.block# from tab$ a

UNION ALL

select 'CLU$', b.ts#,b.file#,b.block# from clu$ b

UNION ALL

select 'TABPART$', c.ts#,c.file#,c.block# from tabpart$ c

UNION ALL

select 'TABSUBPART$', d.ts#,d.file#,d.block# from tabsubpart$ d

UNION ALL

select 'IND$', a.ts#,a.file#,a.block# from ind$ a

UNION ALL

select 'INDPART$', b.ts#,b.file#,b.block# from indpart$ b

UNION ALL

select 'INDSUBPART$', d.ts#,d.file#,d.block# from indsubpart$ d

UNION ALL

select 'LOB$' , i.ts#, i.file#, i.block# from lob$ i

UNION ALL

select 'LOBFRAG$' , i.ts#, i.file#, i.block# from lobfrag$ i

-- UNION ALL

-- select 'RECYCLEBIN$' , i.ts#, i.file#, i.block# from recyclebin$ i

)

where ts#= TS and file# = FI and block#= BL

group by typ, ts#,file#,block#

;

begin

For R in cDictAt

Loop

hout.put_line('^ '||R.typ||' has '||R.cnt||' rows');

End Loop;

End;

procedure DuplicateBlockUse is

Cursor cDuplicateBlock is

select ts#,file#,block#,count('x') CNT, min(typ) mintyp

from (

select 'UNDO$' typ, u.ts#, u.file#, u.block# from undo$ u

where decode(u.status$,1,null,u.status$) is null

UNION ALL

select 'TAB$', a.ts#,a.file#,a.block# from tab$ a

UNION ALL

select 'CLU$', b.ts#,b.file#,b.block# from clu$ b

UNION ALL

select 'TABPART$', c.ts#,c.file#,c.block# from tabpart$ c

UNION ALL

select 'TABSUBPART$', d.ts#,d.file#,d.block# from tabsubpart$ d

UNION ALL

select 'IND$', a.ts#,a.file#,a.block# from ind$ a

UNION ALL

select 'INDPART$', b.ts#,b.file#,b.block# from indpart$ b

UNION ALL

select 'INDSUBPART$', d.ts#,d.file#,d.block# from indsubpart$ d

UNION ALL

select 'LOB$' , i.ts#, i.file#, i.block# from lob$ i

UNION ALL

select 'LOBFRAG$' , i.ts#, i.file#, i.block# from lobfrag$ i

-- UNION ALL

-- select 'RECYCLEBIN$' , i.ts#, i.file#, i.block# from recyclebin$ i

)

where block#!=0

group by ts#,file#,block#

having count('x') > 1

and min(typ)!='CLU$' /* CLUSTER can have multiple entries */

;

tag varchar2(80):=chr(10)||

'Problem: Block has multiple dictionary entries';

begin

For R in cDuplicateBlock

Loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' MULTI DICT REF: TS='||r.TS#||

' RFILE/BLOCK='||r.file#||' '||r.block#||

' cnt='||R.cnt);

DictAt(R.ts#, R.file#, R.block#);

Fatal:=Fatal+1;

End Loop;

End;

procedure OrphanedIndPartObj# is

Cursor cOrphanInd is

select i.obj#, i.ts#, i.file#, i.block#, i.bo#

from obj$ o, indpart$ i

where o.obj#(+)=i.obj# and o.obj# is null

;

tag varchar2(80):=chr(10)||

'Problem: Orphaned Index Partition Obj# (no OBJ$) - '||

'See Bug:5040222';

noseg boolean:=null;

begin

For R in cOrphanInd

Loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' ORPHAN INDPART$: OBJ#='||R.obj#||' - no OBJ$ row');

Fatal:=Fatal+1;

End Loop;

End;

procedure TruncatedCluster is

Cursor cBadCluster is

select /*+ ORDERED */

t.obj#, u.name owner, o.name, t.dataobj# td, c.dataobj# cd

from clu$ c, tab$ t, obj$ o, user$ u

where t.ts# = c.ts#

and t.file# = c.file#

and t.block# = c.block#

and t.dataobj# != c.dataobj#

and t.obj# = o. obj#

and o.owner# = u.user#

;

tag varchar2(80):=chr(10)||

'Problem: Clustered Tables with bad DATAOBJ# - '||

'See Note:109134.1 (Bug:1283521)';

begin

For R in cBadCluster

Loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' Bad TAB$ entry: TAB OBJ='||R.obj#||

' NAME='||r.owner||'.'||r.name||

' Tab DOBJ='||r.td||' != '||r.cd

);

Fatal:=Fatal+1;

End Loop;

End;

procedure HighObjectIds is

Cursor cHighObject is

select max(obj#) maxobj, max(dataobj#) maxdobj from obj$

;

tag varchar2(80):=chr(10)||

'Problem: High Objects IDS exist - See Note:76746.1 (Bug:970640)';

begin

For R in cHighObject

Loop

if (r.maxobj>2000000000) or (r.maxdobj>2000000000) then

hout.put_line(tag);

hout.put_line(' HIGH OBJECT NUMBERS EXIST: max(OBJ)='||r.maxobj||

' max(dataobj#)='||r.maxdobj);

Fatal:=Fatal+1;

end if;

End Loop;

End;

procedure PQsequence is

Cursor cPQ is

SELECT max_value, cycle_flag, last_number

FROM DBA_SEQUENCES

WHERE sequence_owner='SYS' and sequence_name='ORA_TQ_BASE$'

;

tag varchar2(80):=chr(10)||

'Problem: PQ Sequence needs fixing - See Note:66450.1 (Bug:725220)';

begin

For R in cPQ

Loop

if (R.cycle_flag!='Y' and R.last_number>1000000) then

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' ORA_TQ_BASE$ is not CYCLIC - '||

To_char(R.max_value-R.last_number)||' values left');

Fatal:=Fatal+1;

end if;

End Loop;

End;

procedure PoorDefaultStorage is

Cursor cPoorStorage is

select * from dba_tablespaces

where (initial_extent<1024*1024 or contents='TEMPORARY')

and next_extent<65536

and min_extlen<65536

and pct_increase<5

and max_extents>3000

;

tag varchar2(80):=chr(10)||

'Warning: Poor Default Storage Clauses (see Note:50380.1)';

begin

For R in cPoorStorage

Loop

if (tag is not null) then

hout.put_line(tag); tag:=null;

hout.put_line(' '||rpad('Tablespace',30)||rpad('Init',10)||

rpad('Next',10)||rpad('Min',10)||rpad('Pct',4)||

'MaxExtents'

); tag:=null;

end if;

hout.put_line(' '||rpad(R.tablespace_name,30)

||rpad(r.initial_extent,10)

||rpad(r.next_extent,10)

||rpad(r.min_extlen,10)

||rpad(r.pct_increase,4)

||r.max_extents );

Warn:=Warn+1;

End Loop;

End;

procedure PoorStorage is

Cursor cPoorStorage is

select * from dba_segments

where (initial_extent<65535

and next_extent<65536

and pct_increase<5

and max_extents>3000

and extents>500)

or extents>3000

;

tag varchar2(80):=chr(10)||

'Warning: Poor Storage Clauses (see Note:50380.1)';

begin

For R in cPoorStorage

Loop

if (tag is not null) then

hout.put_line(tag);

tag:=null;

hout.put_line(' '||rpad('Segment',50)||rpad('Next',10)||

rpad('Exts',7)||rpad('Pct',4)||

'MaxExtents'

);

end if;

hout.put_line(' '||

rpad(R.segment_type||' '||R.owner||'.'||R.segment_name,50)

||rpad(r.next_extent,10)

||rpad(r.extents,7)

||rpad(r.pct_increase,4)

||r.max_extents );

Warn:=Warn+1;

End Loop;

End;

procedure FetUet(ts number, fil number, len number) is

Cursor cMap(ts number,fil number) is

select block#,length,'FET$' typ

from fet$ where ts#=TS and file#=FIL

UNION ALL

select block#,length,'UET$' typ

from uet$ where ts#=TS and file#=FIL

order by 1

;

BlkExpected number;

prev cMap%Rowtype;

tag varchar2(80):=chr(10)||

'Problem: Fet/Uet corruption in TS#='||TS||' RFile='||FIL;

begin

BlkExpected:=2;

For R in cMap(TS,FIL)

Loop

if (R.block#!=BlkExpected) then

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

if R.block#

hout.put_line(' OVERLAP: TS#='||TS||' RFILE='||FIL||

' ('||prev.typ||' '||prev.block#||' '||prev.length||

') overlaps ('||

R.typ||' '||R.block#||' '||R.length||')');

else

hout.put_line(' GAP: TS#='||TS||' RFILE='||FIL||

' ('||prev.typ||' '||prev.block#||' '||prev.length||

') gap-to ('||

R.typ||' '||R.block#||' '||R.length||')');

end if;

Fatal:=Fatal+1;

end if;

prev:=R;

BlkExpected:=R.block#+R.length;

End Loop;

-- hout.put_line(' Check expect='||BlkExpected||' len='||len);

if ( BlkExpected-1!=len ) then

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

if (BlkExpected-1>len) then

hout.put_line(' EXTENT past end of file: TS#='||TS||' RFILE='||FIL||

' ('||prev.typ||' '||prev.block#||' '||prev.length||

') goes past end of file ('||len||' blocks)');

else

hout.put_line(' EXTENT too short: TS#='||TS||' RFILE='||FIL||

' ('||prev.typ||' '||prev.block#||' '||prev.length||

') does not reach end of file ('||len||' blocks)');

end if;

Fatal:=Fatal+1;

end if;

End;

procedure FetUet(ts number) is

Cursor cFiles(ts number) is

select relfile#,blocks from file$

where ts#=TS and status$!=1 /*!=invalid*/

;

begin

For R in cFiles(ts)

Loop

FetUet(TS,R.relfile#,R.blocks);

End Loop;

End;

-- Each first extent should have SEGFILE,BLOCK = FILE,BLOCK

procedure Uet0Check is

Cursor cUet0OK is

Select * from uet$

where ext# = 0

and (file# != segfile# or block# != segblock# )

;

tag varchar2(80):=chr(10)||

'Problem: Uet extent 0 corrupt';

begin

For R in cUet0OK

Loop

hout.put_line(' EXTENT 0 not at start of segment: TS#='||R.TS#||

' '||R.segfile#||','||R.segblock#||' != '||

R.file#||','||R.block#);

Fatal:=Fatal+1;

End Loop;

end;

procedure ExtentlessSeg is

Cursor cExtentlessSeg is

select s.* from seg$ s, uet$ u

where s.ts#=u.ts#(+)

and s.file#=u.segfile#(+)

and s.block#=u.segblock#(+)

and bitand(NVL(s.spare1,0), 1) = 0 /* Not locally managed */

and u.ext#(+)=0

and u.ts# IS NULL /* no UET$ entry */

order by s.ts#,s.file#,s.block#

;

tag varchar2(80):=chr(10)||

'Problem: SEG$ entry has no UET$ entries (Dictionary managed)';

sawType9 boolean:=FALSE;

begin

For R in cExtentlessSeg

Loop

hout.put_line(' SEG$ has no UET$ entry: TS#='||R.TS#||' RFILE#='||

R.file#||' BLK#='||R.block#||' TYPE#='||r.type#);

if (r.type#=9) then

sawType9:=TRUE;

end if;

Fatal:=Fatal+1;

End Loop;

if SawType9 then

hout.put_line(' NB: TYPE#=9 is special and may be OK' );

end if;

end;

procedure SeglessUET is

Cursor cSeglessUET is

select u.ts#, u.segfile#, u.segblock#, count('x') cnt, min(ext#) minext#

from seg$ s, uet$ u

where s.ts#(+)=u.ts#

and s.file#(+)=u.segfile#

and s.block#(+)=u.segblock#

and s.ts# IS NULL /* no SEG$ entry */

group by u.ts#,u.segfile#,u.segblock#

;

tag varchar2(80):=chr(10)||

'Problem: UET$ entry has no SEG$ entries (Dictionary managed)';

begin

For R in cSeglessUET

Loop

hout.put_line(' UET$ has no SEG$ entry: TS#='||R.TS#||' SegFILE#='||

R.segfile#||' SegBLK#='||R.segblock#||' Count='||

r.cnt||' MinExt#='||R.minext#);

Fatal:=Fatal+1;

End Loop;

end;

procedure FetUet is

Cursor cTS is

select ts# from ts$

where online$!=3 /* !=Invalid*/

and bitmapped=0 /* dictionary managed */

;

begin

For R in cTS

Loop

FetUet(R.TS#);

End Loop;

End;

procedure BadInd$ is

Cursor cBadInd is

select o.obj# OBJ#, u.name OWNER, o.name NAME

from user$ u, obj$ o, ind$ i

where u.user#=o.owner#

and o.type#=1 /* INDEX */

and o.obj#=i.obj#(+)

and i.obj# is null;

tag varchar2(80):=chr(10)||

'Problem: OBJ$ INDEX entry has no IND$ entry';

begin

For R in cBadInd

Loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

if (R.name='I_OBJAUTH1') then

tag:=' (Possibly Bug:273956)';

end if;

hout.put_line(' INDEX has no IND$ entry: Obj='||R.obj#||' '||

R.owner||'.'||R.name||tag);

tag:=null;

Fatal:=Fatal+1;

End Loop;

end;

procedure BadTab$ is

Cursor cBadTab is

select o.obj# OBJ#, u.name OWNER, o.name NAME

from user$ u, obj$ o, tab$ i

where u.user#=o.owner#

and o.type#=2 /* TABLE */

and o.linkname is null

and o.obj#=i.obj#(+)

and i.obj# is null;

tag varchar2(80):=chr(10)||

'Problem: OBJ$ TABLE entry has no TAB$ entry';

begin

For R in cBadTab

Loop

if (R.name!='DR$DBO') then

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' TABLE has no TAB$ entry: Obj='||R.obj#||' '||

R.owner||'.'||R.name);

end if;

Fatal:=Fatal+1;

End Loop;

end;

procedure OnlineRebuild$ is

Cursor cBadInd is

select o.obj# OBJ#, u.name OWNER, o.name NAME, o.dataobj# O_ID,

i.dataobj# I_ID

from user$ u, obj$ o, ind$ i

where u.user#=o.owner#

and o.type#=1 /* INDEX */

and o.obj#=i.obj#

and o.dataobj# != i.dataobj#

;

tag varchar2(80):=chr(10)||

'Problem: OBJ$.DATAOBJ# != IND.DATAOBJ# (See Note:125149.1)';

begin

For R in cBadInd

Loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' '||R.owner||'.'||R.name||' OBJ$.DATAOBJ#='||R.o_id||

'IND$.DATAOBJ#='||R.i_id);

Fatal:=Fatal+1;

End Loop;

end;

procedure bug1584155 is

Cursor cbug1584155 is

select u.name owner, o.name name , a.name attr

from user$ u, obj$ o, type$ t, attribute$ a, type$ att

where u.user#=o.owner#

and o.oid$ = t.toid

and o.type# <> 10 -- must not be invalid

and bitand(t.properties, 2048) = 0 -- not system-generated

and t.toid = a.toid

and t.version# = a.version#

and a.attr_toid = att.toid(+)

and a.attr_version# = att.version#(+)

and att.toid is null

;

tag varchar2(80):=chr(10)||

'Problem: Bad ATTRIBUTE$.ATTR_TOID entries Bug:1584155';

begin

For R in cbug1584155

Loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' '||R.owner||'.'||R.name||' ATTR_NAME='||R.attr);

Fatal:=Fatal+1;

End Loop;

end;

Function IsLastPartition( o number ) return boolean is

n number;

begin

select partcnt into n from partobj$ where obj#=o;

if n>1 then return(false); else return(true); end if;

end;

procedure bug1360714_Composite is

Cursor cbadtab is

select o.obj# part_obj#,

o.owner#, o.name, o.subname, p.subpartcnt, p.bo# table_obj#

from obj$ o, tabcompart$ p

where o.type#=19 /* PARTITION */

and o.obj#=p.obj# /* Has subpartitions */

and p.subpartcnt=0 /* Has No entries in tabsubpart$ */

;

Cursor cbadidx is

select o.obj# part_obj#,

o.owner#, o.name, o.subname, p.subpartcnt, p.bo# index_obj#

from obj$ o, indcompart$ p

where o.type#=20 /* INDEX PARTITION */

and o.obj#=p.obj# /* Has subpartitions */

and p.subpartcnt=0 /* Has No entries in indsubpart$ */

;

tag varchar2(80):=chr(10)||

'Problem: Missing TABSUBPART$ entry/s - possibly Bug:1360714';

showmsg boolean:=false;

Begin

for R in Cbadtab

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' TABLE '||Owner(R.owner#)||'.'||R.name||

' Partition '||R.subname||

' PartObj#='||r.part_obj#||' TabObj#='||R.table_obj#);

if IsLastPartition( R.table_obj# ) then

hout.put_line(' ^^ PARTOBJ$.PARTCNT<=1 - non standard corruption');

end if;

Fatal:=Fatal+1;

end loop;

for I in Cbadidx

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' INDEX '||Owner(I.owner#)||'.'||I.name||

' Partition '||I.subname||

' PartObj#='||I.part_obj#||' IndObj#='||I.index_obj#);

if IsLastPartition( I.index_obj# ) then

hout.put_line(' ^^ PARTOBJ$.PARTCNT<=1 - non standard corruption');

end if;

Fatal:=Fatal+1;

showmsg:=true;

end loop;

if showmsg then

hout.put_line('There are probably orphaned SEG$ entry/s with this');

end if;

End;

procedure bug7509714_Composite is

Cursor cPartSubpart is

select po.obj# obj#, u.name owner, o.name name, decode(o.type#, 1, 'INDEX', 'TABLE') type,

decode(po.parttype, 1, 'RANGE', 2, 'HASH', 3, 'SYSTEM', 4, 'LIST',

'UNKNOWN') part,

decode(mod(po.spare2, 256), 0, 'NONE', 2, 'HASH', 3, 'SYSTEM', 4,

'LIST', 'UNKNOWN') subpart

from partobj$ po, obj$ o, user$ u

where po.obj# = o.obj#

and o.owner# = u.user#

and po.spare2 != 0

and o.type# = 1 -- Index

and decode(po.parttype, 1, 'RANGE', 2, 'HASH', 3, 'SYSTEM', 4, 'LIST',

'UNKNOWN') != decode(mod(po.spare2, 256), 0, 'NONE', 2, 'HASH', 3,

'SYSTEM', 4, 'LIST', 'UNKNOWN') ;

tag varchar2(80):=chr(10)||

'Warning: TABPART/TABSUBPART method mismatch - may hit Bug:7509714';

Begin

for R in cPartSubpart

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(

rpad(' INDEX '||R.owner||'.'||R.name,62,' ') ||

' (OBJ '||R.obj#||')'

) ;

Warn:=Warn+1 ;

End Loop ;

End ;

procedure bug1362374_trigger is

Cursor ctrig is

select count('x') cnt from trigger$

where sys_evts IS NULL

or nttrigcol IS NULL

having count('x') > 0;

tag varchar2(80):=chr(10)||

'Problem: NULL SYS_EVTS/NTTRIGCOL - Bug:1362374 / Note:131528.1';

Begin

for R in CTrig

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' TRIGGER$ has '||R.cnt||' NULL entries');

Fatal:=Fatal+1;

end loop;

End;

procedure TinyFiles is

Cursor ctiny is

select file#, ts#, blocks from file$

where status$=2 and blocks<=1;

tag varchar2(80):=chr(10)||

'Problem: Tiny File size in FILE$ - Bug:1646512 ?';

Begin

for R in CTiny

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' FILE$ FILE#='||R.file#||' has BLOCKS='||R.blocks);

Fatal:=Fatal+1;

end loop;

End;

procedure bug1365707_badobj is

Cursor cBad is

select obj#, type#, name from obj$

where type#=0 and name!='_NEXT_OBJECT';

tag varchar2(80):=chr(10)||

'Problem: Bad OBJ$ entry with TYPE#=0 - see Bug:1365707';

Begin

for R in CBad

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' OBJ$ OBJ#='||R.OBJ#||' TYPE#=0 NAME='||R.name);

Fatal:=Fatal+1;

end loop;

End;

procedure bug1842429_badview is

Cursor cBad is

select o.obj#, owner#, name from obj$ o, view$ v

where o.type#=4

and o.oid$ is not null

and v.obj#=o.obj#

and bitand(v.property,1)=0

;

tag varchar2(80):=chr(10)||

'Problem: OBJ$.OID$ set for a VIEW - see Note:157540.1 / Bug:1842429';

Begin

for R in CBad

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' OBJ$ OBJ#='||R.OBJ#||' Owner='||Owner(R.owner#)||

' NAME='||R.name);

Fatal:=Fatal+1;

end loop;

End;

procedure TabPartCountMismatch is

Cursor cPartObj is

select o.obj#, o.owner#, o.name,

t.property, p.partcnt, bitand(p.spare2,255) comp

from obj$ o, tab$ t, partobj$ p

where o.type#=2 /* table */

and o.dataobj# is null

and o.obj#=t.obj#

and bitand(t.property,32)=32 /* partitioned table */

and o.obj#=p.obj#(+)

;

tag varchar2(80):=chr(10)||'Problem: OBJ$-PARTOBJ$-

cnt number;

Begin

for R in cPartObj

loop

-- no partitions

if R.partcnt is null then

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' OBJ$ has no PARTOBJ$ OBJ#='||R.OBJ#||' NAME='||R.name);

Fatal:=Fatal+1;

else

if (R.comp=0 /*not composite*/) then

select count('x') into cnt from tabpart$ where bo#=R.obj#;

-- partcnt = 1048575 for interval partitioning tables

if ( R.partcnt != cnt and R.partcnt != 1048575 ) then

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' PARTOBJ$ PARTCNT!=num TABPART$ rows OBJ#='||R.OBJ#||

' NAME='||R.name||' PARTCNT='||R.partcnt||' CNT='||cnt);

Fatal:=Fatal+1;

end if;

-- Check OBJ$ for the tabpart$ rows match up

for Pobj in (select o.obj#,o.name,o.subname,o.type# , o.owner#

from obj$ o, tabpart$ p

where o.obj#=p.obj#

and p.bo#=R.obj#)

loop

if Pobj.name!=R.name

OR Pobj.type#!=19

OR Pobj.owner#!=R.owner#

then

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(

' TABPART$-OBJ$ mismatch (Bug:1273906)'||

' OBJ#='||Pobj.obj#||

' #'||Pobj.owner#||'.'||Pobj.name||' '||Pobj.subname);

if Pobj.name!=R.name then

hout.put_line(

' - Table Name ('||R.name||') != '||

' Partition Name ('||Pobj.name||')' );

end if ;

if Pobj.owner#!=R.owner# then

hout.put_line(

' - Table Owner# ('||R.owner#||') != '||

' Partition Onwer# ('||Pobj.owner#||')' );

end if ;

if Pobj.type#!=19 then

hout.put_line(

' - Partition Type# ('||Pobj.type#||')!=19' );

end if ;

Fatal:=Fatal+1;

end if;

end loop;

elsif (R.comp=2 /*hash composite*/) then

select count('x') into cnt from tabcompart$ where bo#=R.obj#;

if ( R.partcnt != cnt and R.partcnt != 1048575 ) then

-- if R.partcnt!=cnt then

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' PARTOBJ$ PARTCNT!=num TABCOMPART$ rows OBJ#='||

R.OBJ#||

' NAME='||R.name||' PARTCNT='||R.partcnt||' CNT='||cnt);

Fatal:=Fatal+1;

end if;

end loop;

End;

procedure MissingSum$ is

Cursor cBad is

select t.obj#,o.owner#,o.name

from tab$ t, obj$ o, sum$ s

where bitand(t.flags,262144)=262144 /* Container table */

and o.obj#=t.obj#

and s.containerobj#(+)=t.obj#

and s.containerobj# is null

;

tag varchar2(80):=chr(10)||

'Problem: SUM$ entry missing for container table';

Begin

for R in cBad

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' TAB$ OBJ#='||R.OBJ#||' '||Owner(R.owner#)||'.'||R.name);

Fatal:=Fatal+1;

end loop;

End;

procedure MissingDir$ is

Cursor cBad is

select o.obj# o_obj, o.owner# o_owner, o.name o_name, d.obj# d_obj,

oa.grantee# oa_grantee, oa.privilege# oa_priv, u.name u_name

from obj$ o, dir$ d, objauth$ oa, user$ u

where o.obj# = d.obj# (+)

and o.obj# = oa.obj# (+)

and o.owner# = u.user#

and o.type# = 23

and d.obj# is null ;

tag varchar2(80):=chr(10)||

'Problem: DIR$ entry missing for Directory Objects';

Begin

for R in cBad

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' OBJ$ OBJ#='||R.o_obj||' Owner='||R.u_name||'.'||

R.o_name||' - Grantee('||R.oa_grantee||') - Priv ('||

R.oa_priv||')');

Fatal:=Fatal+1;

end loop;

End;

procedure BadSegFreelist is

Cursor cBad is

select ts#,file#,block#,type#,lists,groups

from seg$

where lists=1 or groups=1;

tag varchar2(80):=chr(10)||

'Problem: SEG$ bad LISTS/GROUPS (==1) - See Tar:2470806.1';

tag2 varchar2(80):=

'May be Ok for LOBSEGMENT/SECUREFILE in release 11gR1+' ;

-- select SEGMENT_TYPE, SEGMENT_SUBTYPE

-- from sys_dba_segs

-- where tablespace_id = R.TS#

-- and header_file = R.RFILE#

-- and header_block = R.BLK# ;

Begin

for R in cBad

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

if (tag2 is not null) then hout.put_line(tag2); tag2:=null; end if;

hout.put_line(' Bad SEG$ lists/groups : TS#='||R.TS#||' RFILE#='||

R.file#||' BLK#='||R.block#||' TYPE#='||r.type#||

' Lists='||R.lists||' Groups='||R.groups);

Fatal:=Fatal+1;

end loop;

End;

procedure Bug1805146DroppedFuncIdx is

Cursor cBad is

select distinct u.name owner, o.name tab

from user$ u, obj$ o, col$ c

where o.type#=2

and c.col#=0

and bitand(32768,c.property)=32768

and o.obj#=c.obj#

and u.user#=o.owner#

and u.user#!=0;

tag varchar2(80):=chr(10)||

'Problem: Table with Dropped Func Index '||

' - Bug:1805146 / Note:148740.1';

Begin

for R in cBad

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' Table='||R.owner||'.'||R.tab);

Fatal:=Fatal+1;

end loop;

End;

procedure BadPublicObjects is

Cursor cPub is

select obj#,name,type# from obj$

where owner#=1 and type# not in (5,10);

tag varchar2(80):=chr(10)||

'Problem: Objects owned by PUBLIC - Bug:1762570';

Begin

for R in cPub

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' OBJ$ OBJ#='||R.OBJ#||' TYPE='||R.type#||' NAME='||R.name);

Fatal:=Fatal+1;

end loop;

End;

procedure Bug1375026Seq is

Cursor cSeq is

select increment$ from seq$ s , obj$ o

where o.name='IDGEN1$' and owner#=0

and s.obj#=o.obj#

and increment$>50;

tag varchar2(80):=chr(10)||

'Problem: Sequence IDGEN1$ INCREMENT_BY too high - Bug:1375026';

Begin

for R in cSeq

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

Fatal:=Fatal+1;

end loop;

End;

procedure Bug1359472BadOwner is

Cursor cBad is

select obj#, type#, owner#, name from obj$

where owner# not in (select user# from user$)

and type# != 10;

tag varchar2(80):=chr(10)||

'Problem: OBJ$.OWNER# not in USER$ - See Note:333181.1 (Bug:1359472)';

Begin

for R in cBad

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' OBJ$ OBJ#='||R.OBJ#||' TYPE='||R.type#||' NAME='||R.name

||' Owner#='||R.OWNER#);

Fatal:=Fatal+1;

end loop;

End;

procedure Bug6310840audit is

Cursor cBad is

select decode(aud.user#,

0, 'ANY CLIENT',

client.name) username ,

proxy.name proxyname,

prv.name privilege,

decode(aud.success,

1, 'BY SESSION',

2, 'BY ACCESS' ,

'NOT SET') success ,

decode(aud.failure,

1, 'BY SESSION',

2, 'BY ACCESS' ,

'NOT SET') failure

from sys.user$ client ,

sys.user$ proxy ,

system_privilege_map prv ,

sys.audit$ aud

where aud.option# = -prv.privilege

and aud.user# = client.user#

and aud.user# != 1 /* PUBLIC */

and aud.proxy# = proxy.user# (+)

and aud.proxy# is null

;

tag varchar2(80):=chr(10)||

'Problem: INV/CORR audit$ entry - Note:455565.1 (Bug 6351123 / Bug 6310840)';

variant varchar2(30) ;

Begin

for R in cBad

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

if (R.username = 'ANY CLIENT')

then

variant := 'Corrupted -' ;

else

variant := 'Invalid -' ;

end if;

hout.put_line(variant||' USER#='''||R.username||''' OPTION='''||

R.privilege||''' SUCCESS='''||R.success||''' FAILURE='''||

R.failure||'''');

Fatal:=Fatal+1;

end loop;

End;

procedure Bug2371453synonym is

Cursor cBad is

select distinct o.obj#, o.owner#, o.name

from obj$ o , idl_ub1$ i

where type#=5

and ctime!=mtime

and i.obj#=o.obj# /* Has IDL information */

;

tag varchar2(80):=chr(10)||

'Warning: Synonym LAST_DDL_TIME!=CREATED - May hit Bug:2371453';

Begin

for R in cBad

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' OBJ#='||R.OBJ#||' Name='||Owner(R.owner#)||'.'||R.name);

Warn:=Warn+1;

end loop;

End;

procedure ObjSynMissing is

Cursor cBad is

select o.obj#, o.owner#, o.name

from obj$ o , syn$ s

where o.type#=5

and o.obj#=s.obj#(+)

and o.linkname is null /* Not a remote object */

and s.obj# is null

;

tag varchar2(80):=chr(10)||

'Warning: SYN$ entry missing for OBJ$ type#=5';

Begin

for R in cBad

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' OBJ#='||R.OBJ#||' Name='||Owner(R.owner#)||'.'||R.name);

Fatal:=Fatal+1;

end loop;

End;

procedure CheckDual is

Cursor cBad is

select dummy from dual;

tag varchar2(80):=chr(10)||

'Fatal: DUAL is unusual';

n number:=0;

Begin

for R in cBad

loop

n:=n+1;

if (n>1) then

hout.put_line(chr(10)||'DUAL has more than one row');

Fatal:=Fatal+1;

exit;

end if;

if (nvl(R.dummy,'Z')!='X') then

hout.put_line(chr(10)||'DUAL . DUMMY does not contain "X"');

Fatal:=Fatal+1;

end if;

end loop;

End;

procedure Bug2728624badOid is

Cursor cBad is

select o.obj#, o.type#, o.owner#, o.name, c.col#, c.intcol#, c.name cname, t.property, bitand(t.property,4096) bp4096

from obj$ o, col$ c, coltype$ ct, oid$ oi, tab$ t

where o.obj# = ct.obj#

and ct.obj# = c.obj#

and ct.col# = c.col#

and ct.intcol# = c.intcol#

and oi.oid$(+) = ct.toid

and o.obj# = t.obj#(+)

and c.name like 'SYS_NC%'

and oi.oid$ is null ;

tag varchar2(80):=chr(10)||

'Problem: Column type is OBJECT with missing OID$ - Bug:2728624 ?';

Begin

for R in cBad

loop

if (R.bp4096 is Null or R.bp4096=0)

then

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' OBJ#='||R.OBJ#||' Name='||Owner(R.owner#)||'.'||R.name||

' IntCol#('||R.intcol#||')='||R.cname||' TabProp='||R.property);

hout.put_line(' ^ May be Ok ('||R.bp4096||')') ;

Warn:=Warn+1;

else

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' OBJ#='||R.OBJ#||' Name='||Owner(R.owner#)||'.'||R.name||

' IntCol#='||R.intcol#||'='||R.cname||' TabProp='||R.property||' ('||R.bp4096||')');

Fatal:=Fatal+1;

end if ;

end loop;

End;

procedure Bug3532977source is

Cursor cBad is

select count('x') cnt, count(distinct s.obj#) nobj

from source$ s, obj$ o

where s.obj#=o.obj#(+)

and o.obj# is null

having count('x') > 0

;

tag varchar2(80):=chr(10)||

'Problem: SOURCE$ for OBJ# not in OBJ$ - Bug:3532977 ?';

Begin

for R in cBad

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' SOURCE$ has '||R.cnt||

' rows for '||R.nobj||' OBJ# values not in OBJ$');

Fatal:=Fatal+1;

end loop;

End;

procedure Bug2405258lob is

Cursor cBad is

select l.obj#, l.lobj#

from lob$ l, obj$ o

where l.lobj#=o.obj#(+)

and o.obj# is null

;

tag varchar2(80):=chr(10)||

'Problem: LOB$ . LOBJ# not in OBJ$ - Bug:2405258 ?';

Begin

for R in cBad

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' LOB$.LOBJ# has no OBJ$ entry for LOBJ#='||R.lobj#||

' (OBJ#='||R.obj#||')');

Fatal:=Fatal+1;

end loop;

End;

procedure UpgCheckc0801070 is

tag varchar2(80):=chr(10)||

'Problem: option# in STMT_AUDIT_OPTION_MAP(ON COMMIT REFRESH) - '||

'Bug:6636804 ';

bug6636804 number ;

Begin

Select count('x') into bug6636804 from STMT_AUDIT_OPTION_MAP

where option# = 229

and name = 'ON COMMIT REFRESH';

if ( bug6636804 > 0 )

then

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line('-- Please run the following:') ;

hout.put_line('SQL> update STMT_AUDIT_OPTION_MAP set option#=234') ;

hout.put_line(' where name =''ON COMMIT REFRESH'' ;') ;

hout.put_line('SQL> commit ;') ;

Fatal:=Fatal+1;

end if ;

End;

procedure Bug3753873indpname is

Cursor cBad is

select io.obj# io, io.name ionam, ipo.obj# ipo, ipo.name iponam

from obj$ io , indpart$ ip, obj$ ipo

where ipo.type#=20 /* IND PART */

and ip.obj#=ipo.obj#

and io.obj#(+)=ip.bo#

and nvl(io.name,'"')!=ipo.name

;

tag varchar2(80):=chr(10)||

'Problem: OBJ$.NAME mismatch for INDEX v INDEX PARTITION - Bug:3753873 ?';

Begin

for R in cBad

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' Ind Part OBJ$.OBJ# '||R.ipo||' '||R.iponam||

'!='||R.ionam||' OBJ#='||R.io);

Fatal:=Fatal+1;

end loop;

End;

procedure BadCboHiLo is

Cursor cBad is

select obj#,intcol#,lowval,hival

from hist_head$ where lowval>hival

;

tag varchar2(80):=chr(10)||'Problem: HIST_HEAD$.LOWVAL > HIVAL !';

Begin

for R in cBad

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' OBJ# '||R.obj#||' INTCOL#='||R.intcol#);

Warn:=Warn+1;

end loop;

End;

procedure ObjectNames is

Cursor cBad is

select username, object_type,

substr(owner||'.'||object_name,1,62) Name

from dba_objects, dba_users

where object_name=username

and (owner=username OR owner='PUBLIC')

;

tag varchar2(80):=chr(10)||

'Warning: OBJECT name clashes with SCHEMA name - Bug:2894111 etc..';

Begin

for R in cBad

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' Schema='||R.username||' Object='||R.name||' ('||

R.object_type||')');

Warn:=Warn+1;

end loop;

End;

procedure BadDepends is

Cursor cBad is

select o.obj# dobj ,

p.obj# pobj ,

d.p_timestamp p_timestamp ,

p.stime p_stime ,

o.type# o_type ,

p.type# p_type

from sys.obj$ o ,

sys.dependency$ d ,

sys.obj$ p

where p_obj# = p.obj# (+)

and d_obj# = o.obj#

and o.status = 1 /*dependent is valid*/

and p.status = 1 /*parent is valid*/

and p.stime !=d.p_timestamp /*parent timestamp not match*/

order by 2,1

;

tag varchar2(80):=chr(10)||

'Problem: Dependency$ p_timestamp mismatch for VALID objects';

tag2 varchar2(80):=

'May be Ok - needs checking, (Warning: [W], Error: [E]).'||chr(10) ;

to_chk varchar2 (4) ;

Begin

for R in cBad

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

if (tag2 is not null) then hout.put_line(tag2); tag2:=null; end if;

if ( (R.o_type = 5) and (R.p_type = 29) )

then

to_chk := '[W]' ;

Warn := Warn+1 ;

else

to_chk := '[E]' ;

Fatal := Fatal+1 ;

end if ;

hout.put_line(' '||to_chk||' - P_OBJ#='||R.pobj||' D_OBJ#='||R.dobj);

end loop;

End;

procedure BadCol# is

Cursor cBad is

select o.obj# , max(intcol#) maxi, max(col#) maxc

from sys.col$ o

group by o.obj#

having max(intcol#)>1000 or max(col#)>999

;

tag varchar2(80):=chr(10)||

'Problem: COL$ intcol#/col# too high (bug 2212987)';

Begin

for R in cBad

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' OBJ#='||R.obj#||' max(intcol#)'||R.maxi||

' max(col#)='||R.maxc);

Fatal:=Fatal+1;

end loop;

End;

procedure ChkIotTS is

Cursor cBad is

select o.owner#, o.obj# , o.name , t.ts#, t.file#, t.block#

from sys.obj$ o, sys.tab$ t

where bitand(t.property,64)=64 /* Marked as an IOT */

and ts#!=0

and o.obj#=t.obj#

;

tag varchar2(80):=chr(10)||

'Problem: IOT tab$ has TS#!=0 ?? May be OK - needs checking';

Begin

for R in cBad

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(

' OBJ#='||R.obj#||' ('||Owner(R.owner#)||'.'||r.name||') '||

' TS#='||R.ts#||' f='||R.file#||' b='||r.block#

);

Warn:=Warn+1;

end loop;

End;

procedure DuplicateDataobj is

Cursor cBad is

select * from

(

select /*+ NO_MERGE */ many.dataobj#, o.obj#, o.owner#,

o.name, o.subname,

o.type#, t.property

from ( select dataobj#

from obj$

where dataobj# is not null

group by dataobj#

having count('x')>1) many, obj$ o, tab$ t

where many.dataobj# = o.dataobj#(+)

and o.type# (+) != 3 /* Not a cluster */

and t.obj# (+) = o.obj#

)

where bitand(property, 1024)!=1024 /* Not a cluster table */

and bitand(property, 64)!=64 /* Not an IOT */

-- or property is null /* IOT Part's fall here */

order by dataobj#, obj#

;

tag1 varchar2(80):=chr(10)||

'Problem: Duplicate DATAOBJ#, may be valid under the following:';

tag2 varchar2(80):=chr(10)||

' - Using Transportable Tablespaces' ;

tag3 varchar2(80):=chr(10)||

' - OBJ''s belong to different tablespaces' ;

sub boolean:=false;

Begin

for R in cBad

loop

if (tag1 is not null) then

hout.put_line(tag1);

hout.put_line(tag2);

hout.put_line(tag3);

tag1:=null;

tag2:=null;

tag3:=null;

end if;

hout.put_line(' DATAOBJ#='||R.DATAOBJ#||' OBJ#='||R.obj#||

' Name='||Owner(R.owner#)||'.'||R.name||' '||R.subname||

' Type#='||R.type#);

if (R.type#=34 /*table subpart*/) then

sub:=true;

end if;

Fatal:=Fatal+1;

end loop;

if sub then

hout.put_line(' Subpartition duplicates could be caused by bug:2597763');

end if;

End;

procedure ObjSeqMissing is

Cursor cBad is

select o.obj#, o.owner#, o.name

from obj$ o , seq$ s

where o.type#=6

and o.obj#=s.obj#(+)

and o.linkname is null /* Not remote */

and s.obj# is null

;

tag varchar2(80):=chr(10)||

'Warning: SEQ$ entry missing for OBJ$ type#=6';

Begin

for R in cBad

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' OBJ#='||R.OBJ#||' Name='||Owner(R.owner#)||'.'||R.name);

Fatal:=Fatal+1;

end loop;

End;

procedure badIcolDepCnt is

Cursor cBad is

select i.obj# , nvl(i.spare1,i.intcols) expect, ic.cnt got

from ind$ i,

(select obj#, count('x') cnt from icoldep$ group by obj# ) ic

where ic.obj#=i.obj#

and ic.cnt!=nvl(i.spare1,i.intcols)

;

tag varchar2(80):=chr(10)||

'Error: ICOLDEP$ count!=IND$ expected num dependencies - bug 5217913';

Begin

for R in cBad

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' OBJ#='||R.OBJ#||' '||ObjName(R.obj#)||

' IND$ expects '||R.expect||' ICOLDEP$ has '||R.got);

Fatal:=Fatal+1;

end loop;

End;

procedure warnIcoldep is

Cursor cBad is

select adt.obj#,adt.icobj#, adt.intcol#,adt.name

from

( select c.obj#, ic.obj# icobj#, c.intcol#, c.name

from col$ c , icoldep$ ic

where c.type#=121 /*index on ADT*/

and c.obj#=ic.bo#

and c.intcol#=ic.intcol#

) adt,

(select c.obj#, c.intcol#, c.name , ic.obj# icobj#

from col$ c , icoldep$ ic

where bitand(c.property,33)=33 /* index on ADT attribute */

and c.obj#=ic.bo#

and c.intcol#=ic.intcol#

) adtattr

where adt.obj#=adtattr.obj# /* same table */

and adt.icobj#=adtattr.icobj# /* same index */

and adt.intcol#+1 = adtattr.intcol# /* likely same ADT/attr */

order by 1,2

;

tag varchar2(80):=chr(10)||

'Warning: ICOLDEP$ may reference ADT and its attributes'||

' - see bug 5217913';

Begin

for R in cBad

loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' Index OBJ#='||R.ICOBJ#||' '||ObjName(R.icobj#)||

' intcol#='||R.intcol#||'='||R.name);

Warn:=Warn+1;

end loop;

End;

procedure NosegmentIndex is

Cursor cWarn is

select i.obj#, i.dataobj#, i.ts#, i.file#, i.block#, i.bo#, s.type#

from seg$ s, ind$ i

where i.ts#=s.ts#(+)

and i.file#=s.file#(+)

and i.block#=s.block#(+)

and bitand(i.flags,4096)=4096 /* Exclude NOSEGMENT index */

;

tag varchar2(80):=chr(10)||

'Warning: NOSEGMENT IND$ exists (these are allowed but care needed)';

Procedure CheckIndPart( o number ) is

Cursor Cchk is

select i.obj#, i.dataobj#, i.ts#, i.file#, i.block#

from indpart$ i

where i.bo#=o

and (i.file#!=0 OR i.block#!=0);

begin

For R in Cchk Loop

hout.put_line(' ^- PROBLEM: Child INDPART$ with FILE/BLK (bug 4683380)');

hout.put_line(' ^- ( OBJ='||R.obj#|| ' DOBJ='||r.dataobj#||

' TS='||r.TS#||

' RFILE/BLOCK='||r.file#||' '||r.block#||')' );

Fatal:=Fatal+1;

end loop;

end;

begin

For R in cWarn

Loop

if (tag is not null) then hout.put_line(tag); tag:=null; end if;

hout.put_line(' NOSEGMENT IND$: OBJ='||R.obj#||

' DOBJ='||r.dataobj#||

' TS='||r.TS#||

' RFILE/BLOCK='||r.file#||' '||r.block#||

' BO#='||r.bo#||' SegType='||R.type#);

if (R.type# is not null) then

hout.put_line(' ^- PROBLEM: NOSEGMENT Index has a segment attached ?');

Fatal:=Fatal+1;

else

Warn:=Warn+1;

end if;

if (r.TS#!=0 or r.file#!=0 or r.block#!=0) then

hout.put_line(' ^- Index has ts#/file#/block# set ???');

end if;

CheckIndPart(R.obj#);

End Loop;

End;

procedure Full is

begin

Fatal := 0 ;

Warn := 0 ;

hout.put_line('HCheck Version '||Ver);

OversizedFiles;

TinyFiles;

TabPartCountMismatch;

bug1360714_Composite;

bug7509714_Composite;

OrphanedTabComPart;

ZeroTabSubPart;

MissingSum$;

MissingDir$;

DuplicateDataobj;

ObjSynMissing ;

ObjSeqMissing ;

OrphanedIndex;

OrphanedUndo;

OrphanedIndexPartition;

OrphanedIndexSubPartition;

OrphanedTable;

OrphanedTablePartition;

OrphanedTableSubPartition;

MissingPartCol;

OrphanedSeg$;

OrphanedIndPartObj#;

DuplicateBlockUse;

HighObjectIds;

PQsequence;

TruncatedCluster;

FetUet;

Uet0Check;

ExtentlessSeg;

SeglessUET;

BadInd$;

BadTab$;

BadIcolDepCnt;

warnIcolDep;

OnlineRebuild$;

bug1584155;

bug1362374_trigger;

bug1365707_badobj;

bug1842429_badview;

Bug1375026Seq;

Bug1805146DroppedFuncIdx;

Bug1359472BadOwner;

Bug6310840audit;

Bug2728624badOid;

Bug3532977source;

Bug2405258lob;

UpgCheckc0801070;

Bug3753873indpname;

BadPublicObjects;

BadSegFreelist;

BadCol#;

BadDepends;

CheckDual;

Bug2371453synonym;

PoorDefaultStorage;

PoorStorage;

ObjectNames;

BadCboHiLo;

ChkIotTs;

NoSegmentIndex;

hout.new_line;

hout.put_line(chr(10)||'Found '||Fatal||' potential problems and '||

warn||' warnings');

hout.new_line;

if (Fatal>0 or Warn>0) then

hout.put_line('Contact Oracle Support with the output');

hout.put_line('to check if the above needs attention or not');

end if;

end;

end hcheck;

show errors

REM

set serverout on

execute hcheck.full

REM ==========================

weixin_39841825

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
oracle ktsj,Oracle数据字典一致性鉴别

数据字典(dd)一致性鉴别dd损坏通常包括：1. Data Dictionary Inconsistency, missing rows in tables:- Tab$/Ind$ with no entries in OBJ$- Undo$/Tab$/Ind$ with no entries in SEG$- Seg$ with no entries in TAB$/IND$/OBJ$tab$和...
复制链接

扫一扫

oracle ktsj,Oracle数据字典一致性鉴别

“相关推荐”对你有帮助么？