求教：如何在pb中调用db2的存储过程？

iwin21cn

你在PB中的语句有错！

For example:

declare probom procedure for sds.getBom1 @aID=:strID,@aDepth=epth using sdsSqlCa;
//Depth=10
execute probom;
fetch probom into :li_Level,:ls_ID,:ls_pID,:li_Num,:ld_Rate;
nCount=1
do while sdssqlca.sqlcode =0
        if trim(ls_ID)<>;"0" then
                liA_Level[nCount]=li_Level
                lsA_ID[nCount]=ls_ID
                lsA_pID[nCount]=ls_pID
                liA_Num[nCount]=li_Num
                ldA_Rate[nCount]=ld_Rate
                nCount++
        end if
        fetch probom into :li_Level,:ls_ID,:ls_pID,:li_Num,:ld_Rate;
loop
close probom;