弱类型游标

SQL> edit
Wrote file afiedt.buf

  1   declare
  2   type curemptype is ref cursor;
  3   curemp_ref curemptype;
  4   command char(1);
  5   currow emp%rowtype;
  6   theename emp.ename%type;
  7  begin
  8  dbms_output.put_line('请输入操作命令：1-查找deptno=30的员工姓名；2查找job=manager的员工信息');
  9   command :=&命令;
 10  if command='1'
 11  then dbms_output.put_line('输入命令：1');
 12  open curemp_ref for select ename from emp where deptno=30;
 13  loop
 14  fetch curemp_ref into theename;
 15  exit when curemp_ref%notfound;
 16  dbms_output.put_line(theename);
 17  end loop;
 18  close curemp_ref;
 19  else
 20  dbms_output.put_line('输入命令：2');
 21  open curemp_ref for select * from emp where job='MANAGER';
 22  loop
 23  fetch curemp_ref into currow;
 24  exit when curemp_ref%notfound;
 25  dbms_output.put_line('编号：'||currow.empno||'姓名：'||currow.ename||'职位：'||currow.job);
 26  end loop;
 27  close curemp_ref;
 28  end if;
 29* end;
SQL> /
Enter value for 命令: 2
old   9:  command :=&命令;
new   9:  command :=2;
请输入操作命令：1-查找deptno=30的员工姓名；2查找job=manager的员工信息           
输入命令：2                                                                     
编号：7566姓名：JONES职位：MANAGER                                              
编号：7698姓名：BLAKE职位：MANAGER                                              
编号：7782姓名：CLARK职位：MANAGER                                              

PL/SQL procedure successfully completed.