典型游标for循环

游标for循环示显示游标的一种快捷使用方式，它使用for循环依次读取结果集中的行数据，当form循环开始时，游标自动打开（不需要open）,每循环一次系统自动读取游标当前行的数据（不需要fetch)，当退出for循环时，游标被自动关闭（不需要使用close）使用游标for循环的时候不能使用open语句，fetch语句和close语句，否则会产生错误。

set serveroutput on;
declare

cursor mycur(vartype number)is
select emp_no,emp_zc from cus_emp_basic
where com_no=vartype;

begin

for person in mycur(000627) loop

dbms_output.put_line(%27雇员编号%27person.emp_no%27,地址%27person.emp_zc);
end loop;

end;

-------------------------------------------------------------------------
  TYPE RawCurTyp IS REF CURSOR;
  RAW_CV RawCurTyp;
 
  SQL_STMT :='SELECT GET_DATE_FROM_MILLISECOND(MAX(DCTIME)) FROM '||RAW_TABLE
    ||' WHERE DCTIME>'||MTIME_S||' AND DCTIME<'||MTIME_E||' AND '||V_KPI_STR;
  OPEN RAW_CV FOR SQL_STMT;
  LOOP
    FETCH RAW_CV INTO STOPTIME;
    EXIT;
    --EXIT WHEN RAW_CV%NOTFOUND;
    -- process record
  END LOOP;
  CLOSE RAW_CV;
------------------------------------------------------------------------------
  DECLARE
 n1 number(10);
  CURSOR c1
  IS
   SELECT * FROM TABLE (CAST (split (in_kpistring, ',') AS type_split));
  r1 c1%ROWTYPE;
BEGIN
  OPEN c1;
  n1:=1;
  LOOP
      FETCH c1 INTO r1;
    EXIT WHEN c1%NOTFOUND;
     kpistring_1:=kpistring_1||',"'||r1.column_value||'"'||' '||'"指标'||n1||'" ';
   n1:=n1+1;
  END LOOP;

  CLOSE c1;
END;