oracle：游标使用样例

create or replace procedure pk_sysward

       is

         --利用游标 循环插入各个病区

       cursor c_departid is select * from sys_department;

       v_cinfo c_departid%rowtype;

       pr_wardid number(3);

       pr_num number(2);

      begin

        pr_wardid :=100;

        pr_num :=2;
        execute immediate 'truncate table sys_ward';---执行清空表

       ---循环2次

        while pr_num>0 loop

             --游标循环

              for v_cinfo in c_departid loop

              insert into ……;

              end loop;

        pr_num :=pr_num-1;

        end loop;

      commit;

end;