PB 执行存储过程

declaremy_pro procedure for @return = Proc_Infusion //@return 存储过程中的return 值
@XX=:XX,
using sqlca ;
execute my_pro ;
if sqlca.sqldbcode <> 0 then
rollback;
else
FETCH my_pro INTO :lireturn;
commit;
end if
close my_pro