在pl/sql中执行存贮过程

 declare
  Type t_Refcur Is Ref Cursor;
  p_cur t_Refcur;
 begin
    for x in (select cbry_code from t_code_comp_cbry where cbry_code not in ('0702','0703') ) loop
     begin
     -- Call the procedure
     Pro_Comp_Gy_Fssj_Nj(
                     p_cbqy => x.cbry_code,
                     p_yf => '20060628',
                     p_operateman => '0001',
                     p_operatedate => '2006-06-25',
                     p_operatemandeptcode => '00',
                     p_cur => p_cur);
                     commit;
     end;
    end loop ;
 end ;