请查看下面的程序并解释为什么会出现错误

Question

create or replace package ins_emp
is
procedure insert_emp(
p_ename emp.ename%type,
p_sal emp.sal%type,
p_deptno emp.deptno%type);

end ins_emp;

create or replace package body ins_emp
is

function gen_no
return number
is

v_empno emp.empno%type;
begin
select max(empno) into v_empno from emp;
v_empno:=empno+1;
return v_empno;

end;
procedure insert_emp(
p_ename emp.ename%type,
p_sal emp.sal%type,
p_deptno emp.deptno%type)
is 
p_eno emp.empno%type;

begin


p_eno:=gen_no;

insert into emp(empno,ename,sal,deptno) values(p_eno,p_ename,p_sal,p_deptno);



end insert_emp;

end ;

在上面的代码中，包被成功创建。但包体显示错误，因为语句忽略了标识符“EMPNO”必须声明。我已经在 sqlplus 编辑器上运行了这个程序。

Answer 1

试试

function gen_no
return number
is
    v_empno emp.empno%type;
begin
    select max(empno) + 1 into v_empno from emp;

    return v_empno;
end;

您不能在 SQL 部分之外使用 empno。