######Warning: 执行完毕, 但带有警告
######package pack1 已编译。
问题：创建一个包pack1,包中有一个存储函数和一个存储过程。
存储函数功能：实现根据给定的某一学生系别名称，返回该系别的学生人数
存储过程功能：根据给定的员工编号,返回该员工的姓名和工资。
在PL/SQL块中测试包中的存储函数，输出“数学系”的学生人数
在PL/SQL块中测试包中的存储过程，输出编号为“2001”员工的姓名和工资。
create or replace package pack1
is
function f1(v_dept in student.dept%type) ;
return number ;
procedure p1(v_empno in emp.empno%type,v_ename out emp.ename%type,v_sal out emp.sal%type);
end pack1;
creat or replace package body pack1
is
function f1(v_dept in student.dept%type)
return number
is
v_num number;
begin
select count(*) into v_num from student where dept= v_dept;
return v_num;
end f1;
procedure p1(v_empno in emp.empno%type,v_ename out emp.ename%type,v_sal out emp.sal%type)
is
begin
select ename,sal into v_ename, v_sal feom emp where empno= v_empno;
end p1;
end pack1;
declare
v_num number;
begin
v_num:=pack1.f1('数学系');
dbms_output.put_line(v_num);
end;
declare
v_ename emp.ename%type;
v_sal emp.sal%type;
begin
pack1.p1('2001', v_ename, v_sal);
dbms_output.put_line(v_ename||v_sal);
end;
调试一下看是执行有问题，还是没查到满足的数据