测试 procedure OUT 参数
作者: moonsoft(http://moonsoft.itpub.net)发表于: 2006.08.29 11:38
分类: Oracle基础/数据仓库/BI
出处: http://moonsoft.itpub.net/post/15182/200582
---------------------------------------------------------------
new_salary1 OUT NUMBER,
new_salary2 OUT NUMBER
测试 procedure OUT 参数
CREATE OR REPLACE PACKAGE body test_parameter_out
AS
PROCEDURE update_someone_salary (
employee_id IN NUMBER,
new_salary OUT NUMBER,
new_salary1 OUT NUMBER,
new_salary2 OUT NUMBER
)
IS
v_employee_id NUMBER;
v_salary number;
BEGIN
v_employee_id := employee_id;
UPDATE hr.employees
SET salary = 10000
WHERE employee_id = v_employee_id;
SELECT salary
INTO new_salary
FROM hr.employees
WHERE employee_id = v_employee_id;
new_salary := new_salary + 88;
new_salary1 := new_salary + 100;
new_salary2 := new_salary1 + 100;
END;
END;
declare
new_salary number;
new_salary1 number;
new_salary2 number;
begin
hr.test_parameter_out.update_someone_salary(102, new_salary, new_salary1, new_salary2);
dbms_output.put_line(new_salary ||' '||new_salary1|| ' '||new_salary2 );
end;
