DECLARE CURSOR CUR IS SELECT A.EMPNO,A.ENAME FROM SCOTT.EMP A;
V_EMPNO SCOTT.EMP.EMPNO%TYPE;
V_ENAME SCOTT.EMP.ENAME%TYPE;
BEGIN
--打开游标
OPEN CUR;
--判断是否打开
IF CUR%ISOPEN THEN
LOOP
--当无数据时,退出循环
EXIT WHEN CUR%NOTFOUND;
FETCH CUR INTO V_EMPNO,V_ENAME;
DBMS_OUTPUT.put_line(V_EMPNO||':'||V_ENAME);
END LOOP;
END IF;
--关闭游标
CLOSE CUR;
END;