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;