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;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/226700/viewspace-861640/，如需转载，请注明出处，否则将追究法律责任。