PB调用Oracle 存储过程的样列
DECLARE PR_CRN_CHECK_FOR_PKG PROCEDURE FOR
PR_CRN_CHECK_FOR_PKG(:ls_com_code, :ls_div_code, :ls_cn_entry_no, 'C');
EXECUTE PR_CRN_CHECK_FOR_PKG;
// Check SQL Code
if sqlca.sqlcode <> 0 &
then
li_sql_code = sqlca.sqlcode
close PR_CRN_CHECK_FOR_PKG;
MessageBox('Procedure Call rtn ', 'rtn:' + String(li_rtn) + '~nMsg:' + ls_rtn_msg + '~nsqlcode:' + String(sqlca.sqlcode))
rollback ;
triggerevent("ue_search")
return -1
end if
// Check Return Code
fetch PR_CRN_CHECK_FOR_PKG into :ls_rtn_msg, :li_err_flag;
if li_err_flag < 0 &
then
li_sql_code = sqlca.sqlcode
close PR_CRN_CHECK_FOR_PKG;
MessageBox('Procedure Call rtn ', 'rtn:' + String(li_rtn) + '~nMsg:' + ls_rtn_msg + '~nsqlcode:' + String(sqlca.sqlcode))
rollback ;
triggerevent("ue_search")
return -1
end if
// Close Procedure
close PR_CRN_CHECK_FOR_PKG;
/*-- PR_CRN_CHECK_FOR_PKG END --*/
PB调用Oracle 存储过程的样列
最新推荐文章于 2024-08-17 22:34:52 发布