循环读取游标

declare

  v_start_number number;
  datalist       number;
  cursor cur01(n1 number) is
    select count(1) from sk_dbth dbth where dbth.sbzzh < 8;

  i number;
begin

  i := 2;
  while i < 10 loop
    open cur01(i);
  
    fetch cur01
      into datalist;
  
    dbms_output.put_line(datalist);
    i := i + 1;
      close cur01;
  end loop;

end;