Question

oracle题目（编写一个程序包，此程序包中有一个过程和一个函数。以下省略，请看补充）

编写一个程序包，此程序包中有一个过程和一个函数。过程利用传入参数传入雇员的工作职位（emp表中job字段），显示该职位中的员工数量。函数利用传入参数传入的部门编号，返回该部门的员工数量。编写调用程序执行。
--包头：
create or replace package pk2 is
procedure jobs(empid scott.emp.job%type,numbs out number);
end pk2；
求包体。

Answer 1

create or replace package pk2 is
  procedure jobs(empid scott.emp.job%type,numbs out number);
  function depts(deptid scott.emp.deptno%type) return number;
end pk2;
/
create or replace package body pk2 is
  procedure jobs(empid scott.emp.job%type,numbs out number) is
  begin
    select count(*)
       into numbs
      from emp
    where job = empid;
 exception
     when others then
        numbs := 0;
  end;
  function depts(deptid scott.emp.deptno%type) return number is
    numbs number;
  begin
    select count(*)
       into numbs
      from emp
    where deptno = deptid;
    return numbs;
 exception
     when others then
        return 0;
  end;
end pk2;
/