PB中调用存储过程

PB中调用存储过程完整编程
String   ls_Proc
Long   ll_Count,ll_flag
String   ls_Id
String   ls_return
ls_Proc = 'USP_PROC'

//系统表sysobjects 中是否存在存储过程 USP_PROC
SELECT Count(*) INTO :ll_count from sysobjects where name = :ls_Proc and xtype = 'P';
If ll_Count <= 0 Then
   messagebox("错误",'错误信息：存储过程' + ls_Proc + '不存在！')
   Return -1
End If


/*@Shop_ID ,@return_id 为数据库存储过程参数名,ls_Id,ls_return 为PB中的变量USP_PROC为数据库中的存储过程名,Emp_proc1 为为PB中的变量*/

DECLARE Emp_proc1 procedure for USP_PROC
@Shop_ID = :ls_Id,@return_id = :ls_return OUTPUT;
EXECUTE Emp_proc1;
   
If Sqlca.Sqlcode < 0 Then
   messagebox("错误","错误信息：" + Sqlca.SqlErrText)
   Close Emp_proc1 ;
   return -1
else
   fetch Emp_proc into :ls_return;
   if ll_flag <> 0 then
    //messagebox("提示信息",ls_return)
    close Emp_proc ;
    return -1
   End if
End If
close Emp_proc1 ;