在Oracle数据库中创建一个存储过程，用于输出显示工资（sal）大于3000的员工的姓名及工资，并且统计其人数（人数存储在输出参数中） 在sql plus 中调用。请帮我写出完整代码

下面是实现该功能的Oracle存储过程：

CREATE OR REPLACE PROCEDURE show_salary_above_3000 (p_count OUT NUMBER)
IS
BEGIN
SELECT ename, sal
INTO p_count
FROM emp
WHERE sal > 3000;
DBMS_OUTPUT.PUT_LINE('姓名：' || ename || '，工资：' || sal);
END;
/

在调用该存储过程之前，需要先设置输出参数的值：

VARIABLE count NUMBER;

然后可以通过以下代码调用存储过程并输出结果：

EXECUTE show_salary_above_3000(:count);
PRINT count;

相关问题

用Oracle数据库PL/SQL编程基础编写函数以部门号为参数，显示该部门的雇员姓名、职位、工资、奖金，并返回部门最高工资。（要求:不能使用系统内部函数max()、count()）

### 回答1：
在 Oracle 的 PL/SQL 编程中，你可以创建一个函数来实现这个功能。首先，你需要声明一个函数，并定义一个参数，这个参数是部门号。然后，你可以使用 SELECT 语句来查询数据库中该部门的员工信息，并将信息显示出来。

为了获取部门的最高工资，你可以使用一个循环结构，每次循环遍历一个员工的工资，并与当前的最高工资进行比较。如果当前员工的工资更高，就更新最高工资的值。

最后，你可以在函数的最后返回最高工资的值。

下面是一个简单的例子，它展示了如何使用 PL/SQL 编写一个函数：

CREATE OR REPLACE FUNCTION get_department_info (p_deptno NUMBER)
RETURN NUMBER
AS
   v_max_salary NUMBER;
BEGIN
   -- 查询部门的员工信息
   SELECT ename, job, sal, comm
   INTO v_max_salary
   FROM emp
   WHERE deptno = p_deptno;

   -- 遍历员工工资，更新最高工资
   FOR i IN (SELECT sal FROM emp WHERE deptno = p_deptno) LOOP
      IF i.sal > v_max_salary THEN
         v_max_salary := i.sal;
      END IF;
   END LOOP;

   -- 返回最高工资
   RETURN v_max_salary;
END;

这个函数接受一个参数 p_deptno，表示部门号。它返回一个数字，表示部门的最高工

### 回答2：
编写一个PL/SQL函数，以部门号作为参数，显示该部门的雇员姓名、职位、工资、奖金，并返回部门最高工资。

CREATE OR REPLACE FUNCTION get_dept_info(p_deptno IN NUMBER)
   RETURN NUMBER
IS
   v_max_salary   NUMBER;
BEGIN
   -- 声明变量存储最高工资
   v_max_salary := 0;
   
   -- 使用游标查询部门的员工信息，包括姓名、职位、工资、奖金
   FOR emp IN (SELECT ename, job, sal, comm
               FROM emp
               WHERE deptno = p_deptno)
   LOOP
      -- 输出员工信息
      DBMS_OUTPUT.PUT_LINE('姓名：'||emp.ename||'，职位：'||emp.job||
                           '，工资：'||emp.sal||'，奖金：'||emp.comm);
      
      -- 如果员工的工资大于最高工资，则更新最高工资
      IF emp.sal > v_max_salary THEN
         v_max_salary := emp.sal;
      END IF;
   END LOOP;
   
   -- 返回部门最高工资
   RETURN v_max_salary;
END;
/

使用上述函数可以通过以下方式调用，并显示部门的员工信息和部门最高工资。

SET SERVEROUTPUT ON;
DECLARE
   v_max_salary NUMBER;
BEGIN
   v_max_salary := get_dept_info(10); -- 以部门号为10的参数调用函数
   DBMS_OUTPUT.PUT_LINE('部门最高工资：'||v_max_salary);
END;
/

上述函数和调用可以根据实际情况进行更改，确保表名、列名、参数和调用所需的正确性。

### 回答3：
以下是用Oracle数据库PL/SQL编程基础编写的函数，它以部门号为参数，显示该部门的雇员姓名、职位、工资、奖金，并返回部门最高工资。

CREATE OR REPLACE FUNCTION get_department_info(p_deptno NUMBER)
  RETURN NUMBER
IS
  v_max_salary NUMBER := 0;
BEGIN
  FOR emp_rec IN (SELECT e.ename, e.job, e.sal, e.comm
                  FROM emp e
                  WHERE e.deptno = p_deptno)
  LOOP
    dbms_output.put_line('雇员姓名: ' || emp_rec.ename || ', 职位: ' || emp_rec.job || ', 工资: ' || emp_rec.sal || ', 奖金: ' || emp_rec.comm);
  
    IF emp_rec.sal > v_max_salary THEN
      v_max_salary := emp_rec.sal;
    END IF;
  END LOOP;

  RETURN v_max_salary;
END;
/

使用以上函数时，只需传入部门号作为参数即可：

SET SERVEROUTPUT ON

DECLARE
  v_deptno NUMBER := 10;
  v_highest_salary NUMBER;
BEGIN
  v_highest_salary := get_department_info(v_deptno);
  dbms_output.put_line('部门 ' || v_deptno || ' 的最高工资为: ' || v_highest_salary);
END;
/

这个函数首先声明一个变量v_max_salary来保存最高工资，并初始化为0。然后使用循环遍历部门中的雇员记录，根据部门号筛选雇员信息。在每次循环中，输出雇员的姓名、职位、工资和奖金。同时，检查当前雇员的工资是否大于v_max_salary，如果是，则更新v_max_salary的值为当前工资。最后，返回v_max_salary作为函数的结果，并打印出部门的最高工资。