The other day we suffered from a curruption in a 500+ Gigabyte database, as a sequentual dberify would take about 16+ hours I wrote this one below which starts the dbv’s in nohup in parallel. My dbv finished within the hour, system performance will drop though;)

[SYSTEM@DB01.REMIDIAN.COM]
SQL> l
  1  select
  2  'nohup dbv' ||
  3   ' file=' || file_name ||
  4   ' blocksize=4096' ||
  5   ' logfile=' || file_id || '_' || substr( file_name, instr(file_name,'/',-1) +1) || '.log &'
  6  from
  7* dba_data_files

[SYSTEM@DB01.REMIDIAN.COM]
SQL> /
 
'NOHUPDBVFILE='||FILE_NAME||'BLOCKSIZE=4096LOGFILE='||FILE_ID||'_'||SUBSTR(FILE_NAME,INSTR(FILE_NAME,'/',-1)+1)||'.LOG&'
------------------------------------------------------------------------------------------------------------------------
nohup dbv file=C:\ORACLE\ORADATA\DB01\DB01\USERS01.DBF blocksize=4096 logfile=4_C:\ORACLE\ORADATA\DB01\DB01\USERS01.DBF.log &
nohup dbv file=C:\ORACLE\ORADATA\DB01\DB01\SYSAUX01.DBF blocksize=4096 logfile=3_C:\ORACLE\ORADATA\DB01\DB01\SYSAUX01.DBF.log &
nohup dbv file=C:\ORACLE\ORADATA\DB01\DB01\UNDOTBS01.DBF blocksize=4096 logfile=2_C:\ORACLE\ORADATA\DB01\DB01\UNDOTBS01.DBF.log &
nohup dbv file=C:\ORACLE\ORADATA\DB01\DB01\SYSTEM01.DBF blocksize=4096 logfile=1_C:\ORACLE\ORADATA\DB01\DB01\SYSTEM01.DBF.log &
nohup dbv file=C:\ORACLE\ORADATA\DB01\DB01\EXAMPLE01.DBF blocksize=4096 logfile=5_C:\ORACLE\ORADATA\DB01\DB01\EXAMPLE01.DBF.log &
nohup dbv file=C:\ORACLE\ORADATA\DB01\DB01\P1PERG001.DBF blocksize=4096 logfile=7_C:\ORACLE\ORADATA\DB01\DB01\P1PERG001.DBF.log &
nohup dbv file=C:\ORACLE\ORADATA\DB01\DB01\P1PERG002.DBF blocksize=4096 logfile=8_C:\ORACLE\ORADATA\DB01\DB01\P1PERG002.DBF.log &
 

declare
 
  -- commit every 'i_commit' rows
  i_commit   pls_integer := 1000;
 
  -- row counter, 'i_rowcount' rows deleted
  i_rowcount pls_integer := 0;
 
begin
 
  -- define 'infinite' loop
  loop
 
    -- delete 'i_commit' rows
    delete from obj
    where rownum <= i_commit;
 
    i_rowcount := i_rowcount + sql%rowcount;
 
    -- now it's time to exit the loop
    if sql%rowcount = 0 then
       commit;
       exit;
    end if;
 
    commit;
 
  end loop;
 
  -- feedback
  dbms_output.put_line( trim( to_char( i_rowcount, '999999999999')) ||  ' rows deleted') ;
 
end;
/
 

Example

[REMI@DB01.REMIDIAN.COM]
SQL> create table obj as select * from dba_objects;
 
Table created.
 
[REMI@DB01.REMIDIAN.COM]
SQL> -- get current commit count for this session
[REMI@DB01.REMIDIAN.COM]
SQL> select  s.*, n.name
  2  from  v$mystat s left outer join v$statname n
  3  on  s.statistic# = n.statistic#
  4  where   n.name = 'user commits'
  5  /
 
    SID STATISTIC#      VALUE NAME
------- ---------- ---------- ----------------------------------------------------------
    130          4          2 user commits
 
[REMI@DB01.REMIDIAN.COM]
SQL> declare
  2  
  3    -- commit every 'i_commit' rows
  4    i_commit   pls_integer := 1000;
  5  
  6    -- row counter, 'i_rowcount' rows deleted
  7    i_rowcount pls_integer := 0;
  8  
  9  begin
 10  
 11    -- define 'infinite' loop
 12    loop
 13  
 14      -- delete 'i_commit' rows
 15      delete from obj
 16      where rownum <= i_commit;
 17  
 18      i_rowcount := i_rowcount + sql%rowcount;
 19  
 20      -- now it's time to exit the loop
 21      if sql%rowcount = 0 then
 22         commit;
 23         exit;
 24      end if;
 25  
 26      commit;
 27  
 28    end loop;
 29  
 30    -- feedback
 31    dbms_output.put_line( trim( to_char( i_rowcount, '999999999999')) ||  ' rows deleted') ;
 32  end;
 33  /
61963 rows deleted
 
PL/SQL procedure successfully completed.
 
[REMI@DB01.REMIDIAN.COM]
SQL> -- get current commit count for this session
[REMI@DB01.REMIDIAN.COM]
SQL> select  s.*, n.name
  2  from  v$mystat s left outer join v$statname n
  3  on  s.statistic# = n.statistic#
  4  where   n.name = 'user commits'
  5  /
 
    SID STATISTIC#      VALUE NAME
------- ---------- ---------- ----------------------------------------------------------
    130          4         64 user commits
 
[REMI@DB01.REMIDIAN.COM]
SQL> 
 

Of course the latter statement would be used on v$sesstat to monitor the progress of the ‘delete loop’.

Monitor user commits

[REMI@DB01.REMIDIAN.COM]
SQL> select  s.*, n.name
  2  from  v$sesstat s left outer join v$statname n
  3  on  s.statistic# = n.statistic#
  4  where   n.name = 'user commits'
  5  and s.sid = <sid>
  6  /