Oracle 循环调用存储过程

create or replace procedure p_test_loop
as
--定义一个游标，并将查询结果集赋值给它
CURSOR c1 IS 
select * from tbltest where dept='test'; 

begin
--循环获取游标里的某个字段的值
for cardinfo in c1 loop
     p_testproc(cardinfo.cardid);--使用这个值做一些事情
end loop;
end;