Execution Environment: <SQL, SQL*Plus, iSQL*Plus> Access Privileges: Requires to be run connected as SYS schema Usage: In SQL*Plus connect SYS AS SYSDBA. In 8i connect internal can be used Instructions:
Steps to install:
1. Install this package in the SYS schema
Eg:
SQL> @validate
This should create the "ValidateStructure" package.
Steps to use:
1. Ensure SPOOL is enabled to catch output and enable SERVEROUT
Eg:
spool myvalidate.log
execute dbms_output.enable(1000000);
set serveroutput on
2. Run one of:
execute ValidateStructure.TS('TABLESPACE_NAME', TRUE);
or
execute ValidateStructure.TS('TABLESPACE_NAME', FALSE);
to check objects in the named tablespace CASCADE or NOT CASCADE
or
execute ValidateStructure.TS('TABLESPACE_NAME', TRUE|FALSE, TRUE );
to check objects in the named tablespace using the ONLINE option
This will run until all requested items are scanned.
3. Errors from the ANALYZE commands are output to DBMS_OUTPUT
and so any failing objects are listed when all TABLES / CLUSTERS
have been analyzed. More detailed output from failing ANALYZE
commands will be written to the user trace file in USER_DUMP_DEST
Script:
REM ======================= Start of Script ============================
REM VALIDATE.SQL
REM
REM Purpose: The purpose of this package is to check all objects
REM in a given tablespace using the
REM ANALYZE TABLE .. VALIDATE STRUCTURE [CASCADE];
REM command.
REM The package finds all TABLES and CLUSTERS in the
REM given tablespace and issues the relevant ANALYZE
REM commands.
REM
REM USAGE
REM ~~~~~
REM Please note this is an example script only.
REM There is no guarantee associated with the output it presents.
REM
REM Steps to install:
REM 1. Install this package in the SYS schema
REM Eg: connect internal
REM @validate
REM This should create the "ValidateStructure" package.
REM
REM Steps to use:
REM 1. Ensure SPOOL is enabled to catch output and enable SERVEROUT
REM Eg:
REM spool myvalidate.log
REM execute dbms_output.enable(1000000);
REM set serveroutput on
REM
REM 2. Run one of:
REM execute ValidateStructure.TS('TABLESPACE_NAME', TRUE);
REM or
REM execute ValidateStructure.TS('TABLESPACE_NAME', FALSE);
REM
REM to check objects in the named tablespace CASCADE or NOT CASCADE
REM
REM or.
REM execute ValidateStructure.TS('TABLESPACE_NAME', TRUE|FALSE, TRUE );
REM
REM to check objects in the named tablespace using the ONLINE option
REM
REM This will run until all requested items are scanned.REM
REM 3. Errors from the ANALYZE commands are output to DBMS_OUTPUT
REM and so any failing objects are listed when all TABLES / CLUSTERS
REM have been analyzed. More detailed output from failing ANALYZE
REM commands will be written to the user trace file in USER_DUMP_DEST
REM
set serverout on
CREATE OR REPLACE PACKAGE ValidateStructure
AS
procedure ts( name varchar2 , casc boolean default true, oln boolean default false);
END;
/
CREATE OR REPLACE PACKAGE BODY ValidateStructure
AS
numbad number:=0;
--
procedure item( typ varchar2 , schema varchar2, name varchar2,
casc boolean default true,part varchar2 default 'NO',
oln boolean default false) is
stmt varchar2(200);
c number;
opt varchar2(20):=' ';
begin
if (casc) then
opt:=' CASCADE ';
end if;
if (oln) then
if typ = 'CLUSTER' then
opt:=opt || ' ';
else
opt:=opt || ' ONLINE ';
end if;
end if;
if part = 'YES' then
opt:=opt || ' into INVALID_ROWS ';
end if;
c:=dbms_sql.open_cursor;
begin
stmt:='ANALYZE '||typ||' "'||schema||'"."'||name||'" '|| 'VALIDATE STRUCTURE'||opt;
dbms_sql.parse(c,stmt,dbms_sql.native);
exception
when others then
dbms_output.put_line( 'Error analyzing '||typ||opt||'"'||schema||'.'||name||'" '||sqlerrm);
numbad:=numbad+1;
end;
dbms_sql.close_cursor(c);
end;
--
procedure ts( name varchar2 , casc boolean default true, oln boolean default false) is
cursor c is
SELECT 'TABLE' typ,owner, nvl( IOT_NAME, TABLE_NAME) table_name, partitioned FROM DBA_TABLES
where tablespace_name=upper(name)
UNION ALL
SELECT 'CLUSTER',owner, cluster_name, 'NO' FROM DBA_CLUSTERS
where tablespace_name=upper(name);
n number:=0;
begin
numbad:=0;
for R in C
loop
n:=n+1;
ValidateStructure.item(R.typ,r.owner,r.table_name, casc, r.partitioned, oln);
end loop;
dbms_output.put_line('Analyzed '||N||' objects with '||numbad||' errors');
if (numbad>0) then
raise_application_error(-20002, numbad||' errors - SET SERVEROUT ON to view details');
end if;
end;
--
BEGIN
dbms_output.enable(1000000);
END;
/
REM ======================== End of Script ============================
Sample Output:
SQL> spool myvalidate.log
SQL> execute dbms_output.enable(1000000);
PL/SQL procedure successfully completed.
SQL> set serveroutput on
SQL> execute ValidateStructure.TS('EXAMPLE',FALSE);
Analyzed 34 objects with 0 errors
Analyzed 34 objects with 0 errors
PL/SQL procedure successfully completed.
Comment