pb调用oracle存储过程,该怎么解决

pb调用oracle存储过程
用oracle写的存储过程，想在pb中调用执行，如何实现？
------解决方案--------------------
dec{0} o_id_object, id_obiect = 54321

string o_message, param = 'Test'

DECLARE proc_update PROCEDURE FOR spu_edt_object (
a_id_object => :id_object,
a_param => :param
)
USING SQLCA;

EXECUTE proc_update;
if SQLCA.SqlCode 0 then
SQLCA.f_out_error()
RETURN -1
end if

FETCH proc_update INTO :o_id_object, o_message;
if SQLCA.SqlCode 0 then
SQLCA.f_out_error()
CLOSE proc_update;
RETURN -1
end if
------解决方案--------------------
pb中 调用 存储过程 例子 
http://blog.csdn.net/xys_777/archive/2009/07/30/4395307.aspx

------解决方案--------------------
if SQLCA.SqlCode 0 then
SQLCA.f_out_error()
CLOSE proc_update;
RETURN -1
SQLCA.f_out_error()这个是什么意思啊？
不对哦。
我的异常网推荐解决方案：oracle存储过程,http://www..net/oracle-develop/177537.html