up_db_emp.sql

tuxede下面的编程

CREATE OR REPLACE PROCEDURE         up_db_emp 
( 
	an_empno in number,				
	ac_ename in varchar2,						
	
	ai_return 	out number,
	ai_syserror out number,
	avc_errtext out varchar2
)
AS
n_empno number(4);				
c_ename  varchar2(10);

BEGIN
 ai_return   := 0;
  ai_syserror := 0;
  avc_errtext := '';
	
	n_empno :=an_empno;
	c_ename :=ac_ename;
	delete from emp where empno = n_empno;
	insert into emp(empno,ename) values(an_empno,ac_ename);
	commit work;
	return;
EXCEPTION
	WHEN others THEN
	 ai_return   := -1;
   ai_syserror := SQLCODE;
   avc_errtext := sqlerrm;
   RETURN;
END;
/