2、實(shí)例
1
declare cursor print_dept
2
is
3
select depno, dname, description from dept;
4
v_dno dept.depno%type;
5
v_dname dept.dname%type;
6
v_desc dept.description%type;
7
begin
8
open print_dept;
9
loop
10
fetch print_dept into v_dno, v_dname, v_desc;
11
exit when print_dept%NOTFOUND;
12
dbms_output.put_line(v_dno || ' ' || v_dname || ' ' || v_desc);
13
end loop;
14
close print_dept;
15
16
end;

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16
