问一个执行oracle的存储过程的问题

[li123]

怎样得到一个执行存储过程后返回得执行成功与否得参数
比如象sql2000
成功：0
失败：－1

[daihaidong]

可以在存储过程中写Exception

[sunjet2000]

CREATE OR REPLACE PROCEDURE TestPr(a number)
as
sql_error exception;
begin
/*
SQL-----
*/
if sql%rowcount = 0 then
raise db_error;
end if;
exception
when db_error then
raise_application_error (-20001,'error');
end

[dinya2003]

create or replace procedure pro_name(p_out out number) as

begin
insert into testa(id,name) values(1,'OK');
commit;
p_out:=0;
exception
when others then
rollback;
p_out:=-1;
end;

--p_out是输出参数,成功返回0出现错误,回滚,返回-1