一个存储过程

一个存储过程

逻辑很简单，无传入参数的存储过程，三个变量用来放参数，for循环遍历一个select语句，将结果放进lc，新建一个序列号放进变量，调用另一个存储过程执行业务操作，注意不是本包中的存储过程要带包名，执行完再更新另一个表的数据，提交，结束循环。

create or replace procedure test_zf is
​
  az216  number;
  ri_ret number;
  rv_msg varchar2(100);
begin
  for lc in (select *
               from kc25 t
              where t.aaz285 in (select aaz216
                                   from kc25 t
                                  where t.aaz107 = '123456789'
                                    and t.ake010 = '20200817'
                                    and t.aka077 = '1')) loop
    SELECT sq_AAZ216.Nextval into az216 FROM DUAL;
  
    sim_medpublic_ty.p_settlementdelete(lc.aaz216,
                                        'admin',
                                        '备注',
                                        az216,
                                        ri_ret,
                                        rv_msg);
    UPDATE kc25 set aka077 = 0 where aaz216 = lc.aaz285;
  
    commit;
  
  end loop;
end test_zf;

作用是批量处理了一些问题数据。