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;

解决方案 »

  1.   

    存储过程定义
    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 ;