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 --*/
