数据字典（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.fullThe 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=
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#=<OBJ>; /* 1=INDEX, 2=TABLE, 3=CLUSTER, 21=LOB, 25=IOT Select object_name,owner,object_type from dba_objects where object_id=<OBJ>;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 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 off3.安装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 Is 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） Is 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） Is 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） Is 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） Is 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） Is 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# &nbs
易网时代-编程资源站