本文共 794 字，大约阅读时间需要 2 分钟。

   
    
    
        
     create or 
     replace 
     procedure 
     test_procedure    
    
    
    
             --a表游标定义    
    
    
    
        
     cursor 
     a_cursor    
    
    
    
        
     is    
    
    
    
        
     select 
     id from 
     a    
    
    
    
             --b表游标定义    
    
    
    
        
     cursor 
     b_cursor(aid number)    
    
    
    
        
     is    
    
    
    
        
     select 
     id from 
     b    
    
    
    
        
     where 
     b.id = aid    
    
    
    
        
     begin    
    
    
    
        
     for 
     a_cur loop    
    
    
    
        
     for 
     b_cur in b_cursor(a_cur.id) loop    
    
    
    
        
     insert into 
     c values 
     (b_cur.id)    
    
    
    
        
     commit    
    
    
    
        
     end loop    
    
    
    
        
     end loop