ora-8103 解决脚本

自己写的处理ora-8103　错误的脚本，对象实际已经删除了，但相关信息还是保留在数据字典了，需要修改数据字典，最后是alter system flush shared_pool;因为数据字典环

缓存是放在共享池里的。

create or replace procedure del_dictionary(p_obj in number)    Authid Current_User     as    v_file number;    v_block number;    v_cnt number :=2;    v_type number;    v_bo number;    v_count number;begin select count(1) into v_count from obj$ where obj#=p_obj;  --v_type=19 table partition --v_type=20 index partition if v_count=0 then   dbms_output.put_line('The obj#  '||p_obj||' is alreay deleted!');   else   select type# into v_type from obj$ where obj#=p_obj;  if v_type=19 then  select bo#,file#,block# into v_bo,v_file,v_block from tabpart$ where obj#=p_obj;  dbms_output.put_line('file# is:'||v_file||' block# is:'||v_block);  dbms_output.put_line('The block is table partion');  delete from obj$ where obj#=p_obj;  delete from tabpart$ where obj#=p_obj;  delete from  seg$ where file#=v_file and block#=v_block;  update partobj$ set partcnt =v_cnt where obj# =v_bo; else  select bo#,file#,block# into v_bo,v_file,v_block from indpart$ where obj#=p_obj;   dbms_output.put_line('file# is:'||v_file||' block# is:'||v_block);   dbms_output.put_line('The block is index partion');  delete from obj$ where obj#=p_obj;  delete from indpart$ where obj#=p_obj;  delete from  seg$ where file#=v_file and block#=v_block;  update partobj$ set partcnt =v_cnt where obj# =v_bo;   end if;end if;      commit;EXCEPTION   --WHEN v_raise THEN    -- RAISE_APPLICATION_ERROR(-20010, 'object_id not exists!');  WHEN NO_DATA_FOUND THEN     RAISE_APPLICATION_ERROR(-20011, 'ERROR：'||p_obj||' 不存在！');end;