PB调用Oracle 存储过程的样列

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