string path="D:\",filename="rjs14.txt",begin_date='20050310',end_date='20050310',txterr=""
int count=0DECLARE exp_tshoupdjgl PROCEDURE FOR exp_fengs.exp_tshoupdjgl
(:path,
:filename,
:begin_date,
:end_date
)using sqlca;
execute exp_tshoupdjgl;fetch exp_tshoupdjgl into :p_count, :p_txterr;
int count=0DECLARE exp_tshoupdjgl PROCEDURE FOR exp_fengs.exp_tshoupdjgl
(:path,
:filename,
:begin_date,
:end_date
)using sqlca;
execute exp_tshoupdjgl;fetch exp_tshoupdjgl into :p_count, :p_txterr;
procedure prcgetleveldepth(p_tabname in varchar2,
p_fieldid in varchar2,
p_filedname in varchar2,
p_leafcond in varchar2,
p_leveldepth out number) is
pb中的调用
DECLARE AAprcgetleveldepth PROCEDURE FOR
prcgetleveldepth(p_tabname => :ls_tabname,
p_fieldid => :ls_fieldid,
p_fieldname => :ls_fieldname,
p_fieldparent => :ls_parent,
p_leafcond => :ls_leafcond); EXECUTE AAprcgetleveldepth;
if SQLCA.SqlCode <> 0 then
Messagebox("错误提示","获取深度失败!")
RETURN
end iffetch AAprcgetleveldepth into :li_leveldepth;
Close AAprcgetleveldepth ;