oracle 游标的使用方法

 declare

    //声明变量
    varId varchar2(1000);
    statums varchar2(1000);
    //定义游标
    cursor testForm(pid in varchar2)
    is select t.id,t.title from report_form t where t.problem_id = pid;
    //开始statement    code 执行
 begin

   //判断游标是否打开
   if testForm%isopen = false then

      //传入参数
     open testForm('40');
   end if;

   //开始循环
   loop
     fetch testForm into varId,statums;
     exit when testForm%Notfound;
     dbms_output.put_line('varid:'||varId||'  statums:'||statums);
   end loop;

   //关闭游标
   close testForm;
 end;