DECLARE 
  eno emp.empno%TYPE ;  
  empInfo emp%ROWTYPE ;  
BEGIN 
  eno := &en ; 
  SELECT * INTO empInfo FROM emp WHERE empno=eno ;  
  DBMS_OUTPUT.put_line('雇员编号：'||empInfo.empno) ;  
  DBMS_OUTPUT.put_line('雇员姓名：'||empInfo.ename) ;  
END ; 

DECLARE 
  -- 声明游标 
  CURSOR mycur IS SELECT * FROM emp where empno=-1; 
  empInfo emp%ROWTYPE ; 
  cou NUMBER ;  
BEGIN 
  -- 游标操作使用循环，但是在操作之前必须先将游标打开 
  FOR empInfo IN mycur  
  LOOP 
    --ROWCOUNT 对游标所操作的行数进行记录 
    cou := mycur%ROWCOUNT ;  
    DBMS_OUTPUT.put_line(cou||'雇员编号：'||empInfo.empno) ;  
    DBMS_OUTPUT.put_line(cou||'雇员姓名：'||empInfo.ename) ;  
  END LOOP ; 
END ;  

DECLARE 
  -- 声明游标 
  CURSOR mycur IS SELECT * FROM emp ; -- 相当于一个List (EmpPo) 
  empInfo emp%ROWTYPE ;  
BEGIN 
  -- 游标操作使用循环，但是在操作之前必须先将游标打开 
  OPEN mycur ; 
  -- 使游标向下一行 
  FETCH mycur INTO empInfo ; 
  -- 判断此行是否有数据被发现 
  WHILE (mycur%FOUND)  
    LOOP  
      DBMS_OUTPUT.put_line('雇员编号：'||empInfo.empno) ;  
      DBMS_OUTPUT.put_line('雇员姓名：'||empInfo.ename) ; 
      -- 修改游标，继续向下 
      FETCH mycur INTO empInfo ;  
    END LOOP ; 
END ; 

DECLARE 
  -- 声明游标 
  CURSOR mycur IS SELECT * FROM emp ; 
  empInfo emp%ROWTYPE ;  
BEGIN 
  -- 游标操作使用循环，但是在操作之前必须先将游标打开 
  OPEN mycur ;  
  LOOP 
    -- 使游标向下一行 
    FETCH mycur INTO empInfo ; 
    EXIT WHEN mycur%NOTFOUND ;  
    DBMS_OUTPUT.put_line('雇员编号：'||empInfo.empno) ;  
    DBMS_OUTPUT.put_line('雇员姓名：'||empInfo.ename) ; 
  END LOOP ;  
END ; 

游标%ISOPEN IF mycur%ISOPEN THEN 
null ;  
ELSE  
OPEN mycur ;  
END IF ; 

DECLARE 
  -- 声明游标 
  CURSOR mycur IS SELECT * FROM emp ; 
  empInfo emp%ROWTYPE ; 
  cou NUMBER ; BEGIN 
  -- 游标操作使用循环，但是在操作之前必须先将游标打开 
  IF mycur%ISOPEN THEN 
    null ;  
  ELSE 
    OPEN mycur ;  
  END IF ;  
  LOOP 
    -- 使游标向下一行 
    FETCH mycur INTO empInfo ; 
    EXIT WHEN mycur%NOTFOUND ; 
    cou := mycur%ROWCOUNT ;  
    DBMS_OUTPUT.put_line(cou||'雇员编号：'||empInfo.empno) ;  
    DBMS_OUTPUT.put_line(cou||'雇员姓名：'||empInfo.ename) ;  
  END LOOP ; 
END ; 

CREATE OR REPLACE FUNCTION myfun(eno emp.empno%TYPE)  
  RETURN NUMBER AS rsal NUMBER ;  
BEGIN 
  SELECT (sal+nvl(comm,0))*12 INTO rsal FROM emp WHERE empno=eno ; 
  RETURN rsal ;  
END ; 

SELECT myfun(7369) FROM dual ; 

create or replace function empfun(en emp.ename%type)  
  return number as is_exist number; 
begin 
  select count(*) into is_exist from emp where ename=upper(en); 
  return is_exist; 
end;