SET SERVEROUTPUT ON
  DECLARE num_fix INT;
  BEGIN
  num_fix  := 0;
  DBMS_REPAIR.FIX_CORRUPT_BLOCKS  (
  SCHEMA_NAME  => 'SCOTT',
  OBJECT_NAME=>  'TIGGER',
  OBJECT_TYPE  => dbms_repair.table_object,
  REPAIR_TABLE_NAME  => 'REPAIR_TABLE',
  FIX_COUNT=>  num_fix);
  DBMS_OUTPUT.PUT_LINE('num  fix: ' || TO_CHAR(num_fix));
  END;
  /

EGIN
 DBMS_REPAIR.ADMIN_TABLES (
    TABLE_NAME => 'REPAIR_TABLE',
    TABLE_TYPE => dbms_repair.repair_table,
    ACTION     => dbms_repair.create_action,
    TABLESPACE => 'USERS');
END;
/ 

BEGIN
 DBMS_REPAIR.ADMIN_TABLES (
    TABLE_NAME => 'ORPHAN_KEY_TABLE',
    TABLE_TYPE => dbms_repair.orphan_table,
    ACTION     => dbms_repair.create_action,
    TABLESPACE => 'USERS');
END;
/

 
SET SERVEROUTPUT ON
DECLARE num_corrupt INT;
BEGIN
num_corrupt := 0;
DBMS_REPAIR.CHECK_OBJECT (
    SCHEMA_NAME => 'ABS',
    OBJECT_NAME => 'RECORDS',
    REPAIR_TABLE_NAME => 'REPAIR_TABLE',
    CORRUPT_COUNT =>  num_corrupt);
DBMS_OUTPUT.PUT_LINE('number corrupt: ' || TO_CHAR (num_corrupt));
END;
/
 

SET SERVEROUTPUT ON
DECLARE num_fix INT;
BEGINnum_fix := 0;
DBMS_REPAIR.FIX_CORRUPT_BLOCKS (
    SCHEMA_NAME => 'ABS',
    OBJECT_NAME=> 'RECORDS',
    OBJECT_TYPE => dbms_repair.table_object,
    REPAIR_TABLE_NAME => 'REPAIR_TABLE',
    FIX_COUNT=> num_fix);
DBMS_OUTPUT.PUT_LINE('num fix: ' || TO_CHAR(num_fix));
END;
/ 

SELECT OBJECT_NAME, BLOCK_ID, MARKED_CORRUPT
    FROM REPAIR_TABLE;

0BJECT_ID	TABLESPACE_ID	RELATIVE_FILE_ID	BLOCK_ID	CORRUPT_TYPE	SCHEMA_NAME	OBJECT_NAME	BASEOBJECT_NAME	PARTITION_NAME	CORRUPT_DESCRIPTION	REPAIR_DESCRIPTION	MARKED_CORRUPT	CHECK_TIMESTAMP	FIX_TIMESTAMP	REFORMAT_TIMESTAMP
64271	12	14	70031	6148	ABS	RECORDS				mark block software corrupt	ИСТИНА	23/03/2020 16:54