ISC_STATUS API_ROUTINE gds__request_info(ISC_STATUS* status_vector,
FB_API_HANDLE* req_handle,
SSHORT req_level,
SSHORT msg_length,
const SCHAR* msg,
SSHORT buffer_length, SCHAR* buffer)
{
return isc_request_info(status_vector, req_handle, req_level, msg_length,
msg, buffer_length, buffer);
}
static void gen_compile( qli_req* request)
{
/**************************************
*
* g e n _ c o m p i l e
*
**************************************
*
* Functional description
* Finish off BLR generation for a request, and get it compiled.
*
**************************************/
qli_rlb* rlb = CHECK_RLB(request->req_blr);
STUFF(blr_end);
STUFF(blr_eoc);
const USHORT length = rlb->rlb_data - rlb->rlb_base;
if (QLI_blr)
fb_print_blr(rlb->rlb_base, length, 0, 0, 0);
qli_dbb* dbb = request->req_database;
ISC_STATUS_ARRAY status_vector;
if (isc_compile_request(status_vector, &dbb->dbb_handle, &request->req_handle, length,
(const char*) rlb->rlb_base))
{
GEN_rlb_release (rlb);
ERRQ_database_error(dbb, status_vector);
}
#ifdef DEV_BUILD
SCHAR explain_buffer[512];
if (QLI_explain &&
!isc_request_info(status_vector, &request->req_handle, 0,
sizeof(explain_info), explain_info,
sizeof(explain_buffer), explain_buffer))
{
explain(dbb, (UCHAR*) explain_buffer);
}
#endif
GEN_rlb_release (rlb);
}
