pb中 调用 存储过程 例子

sqlca.autocommit=true
declare lup_drophiscol procedure for up_drophiscol
@tablename=:ls_tabname,
@checkcontent=:ls_err output;
execute lup_drophiscol;
if sqlca.sqlcode = -1 then
sqlca.autocommit=false
messagebox('出错',sqlca.sqlerrtext)
return
end if
fetch lup_drophiscol into :ls_err;
close lup_drophiscol;
sqlca.autocommit=false
if sqlca.sqlcode = -1 then
messagebox('出错',sqlca.sqlerrtext)
elseif isnull(ls_err) or ls_err='' then
messagebox('系统提示！','删除成功!')
else
messagebox('出错！',ls_err)
end if