1. /*the experiment environment*/ 
  2. create table parent ( p1 varchar2(100),p2 varchar2(100) ); 
  3. create table son(s1 number,s2 varchar2(100)); 
  4. create table log_table(user_id varchar2(100),error_date date,error_action varchar2(20)); 
  5.  
  6. hr>insert  into parent values('A','B'); 
  7.   >commit; 
  8. sys>alter user sh account unlock identified by sh; 
  9.  
  10. /*create procedure to record error action*/ 
  11. create or replace 
  12. procedure proc_ins_log( 
  13. p_act varchar2 
  14. ) 
  15. is 
  16.  begin 
  17.    insert  into log_table values(user,sysdate,p_act); 
  18.    end  proc_ins_log;  
  19. /*create procedure to insert values to son table*/ 
  20. create or replace procedure proc_ins_son( 
  21. p_s1 son.s1%type, 
  22. p_s2 son.s2%type, 
  23. p_count  out  number 
  24. ) 
  25. is  
  26.    v_count number :=0; 
  27.    e_foreign_key exception; 
  28.    e_primary_key exception; 
  29.  begin 
  30.     for rec in (select  p1 from parent ) loop 
  31.      if rec.p1=p_s2  
  32.      then 
  33.          v_count :=v_count+1; 
  34.          end if; 
  35.       end loop; 
  36.       ---primary exception 
  37.        for rec in (select s1 from son) loop 
  38.          if p_s1=rec.s1 then 
  39.             raise e_primary_key; 
  40.         end if; 
  41.         end loop; 
  42.     ----foreignkey exception 
  43.     if v_count=0 then 
  44.       raise e_foreign_key; 
  45.       end if; 
  46.       ---normal 
  47.       insert into son values(p_s1,p_s2); 
  48.       commit; 
  49.       select count(*) into p_count from son; 
  50.       exception 
  51.         when e_foreign_key then 
  52.          rollback; 
  53.          dbms_output.put_line('foreign_error'); 
  54.          proc_ins_log('foreign_key_error'); 
  55.         when e_primary_key then 
  56.         rollback; 
  57.           dbms_output.put_line('primary_key'); 
  58.           proc_ins_log('primary_key_error'); 
  59.           end; 
  60.            
  61.           select * from user_errors; 
  62. -----test 
  63. hr>grant execute  on proc_ins_son  to sh; 
  64.   >grant select  on log_table  to sh; 
  65.   >grant select  on prant  to sh; 
  66.   >grant select  on son  to sh; 
  67.  
  68.  
  69. sh> select * from parent; 
  70.  
  71. P1  P2 
  72. A   B 
  73.  
  74.  
  75. sh> select * from hr.son; 
  76.  
  77. S1  S2 
  78. 1   A 
  79.  
  80. hr>select * from parent; 
  81.  
  82. P1 P2 
  83. A  B 
  84.  
  85.  
  86.  
  87. sh> set serverout on; 
  88. sh> ed 
  89. Wrote file afiedt.buf 
  90.  
  91.   1  declare 
  92.   2   v_count number; 
  93.   3   begin 
  94.   4 hr.proc_ins_son(1,'A',v_count); 
  95.   5 dbms_output.put_line(v_count); 
  96.   6* end; 
  97. sh> / 
  98. primary_key 
  99.  
  100. PL/SQL procedure successfully completed. 
  101.  
  102.  
  103.  
  104. sh> ed 
  105. Wrote file afiedt.buf 
  106.  
  107.   1  declare 
  108.   2   v_count number; 
  109.   3   begin 
  110.   4 hr.proc_ins_son(2,'B',v_count); 
  111.   5 dbms_output.put_line(v_count); 
  112.   6* end; 
  113. SQL> / 
  114. foreign_error 
  115.  
  116. PL/SQL procedure successfully completed. 
  117.  
  118.  
  119. sh> ed 
  120. Wrote file afiedt.buf 
  121.  
  122.   1  declare 
  123.   2   v_count number; 
  124.   3   begin 
  125.   4 hr.proc_ins_son(1,'B',v_count); 
  126.   5 dbms_output.put_line(v_count); 
  127.   6* end; 
  128. sh> / 
  129. primary_key  /*when two errors are raise in the same time ,firstly to raise the first exception you catch*/  
  130.  
  131. PL/SQL procedure successfully completed.