void MET_disable_wal(ISC_STATUS* user_status, isc_db_handle handle)
{
struct isc_23_struct {
short isc_24; /* isc_utility */
} isc_23;
struct isc_21_struct {
short isc_22; /* isc_utility */
} isc_21;
struct isc_19_struct {
short isc_20; /* isc_utility */
} isc_19;
FB_API_HANDLE request = 0;
AliceGlobals* tdgbl = AliceGlobals::getSpecific();
if (!(DB = handle))
return;
/*START_TRANSACTION*/
{
{
isc_start_transaction (isc_status, (FB_API_HANDLE*) &gds_trans, (short) 1, &DB, (short) 0, (char*) 0);
};
/*ON_ERROR*/
if (isc_status [1])
{
return_error(user_status);
/*END_ERROR;*/
}
}
/*FOR(REQUEST_HANDLE request)
X IN RDB$LOG_FILES*/
{
if (!request)
isc_compile_request (NULL, (FB_API_HANDLE*) &DB, (FB_API_HANDLE*) &request, (short) sizeof(isc_18), (char*) isc_18);
isc_start_request (NULL, (FB_API_HANDLE*) &request, (FB_API_HANDLE*) &gds_trans, (short) 0);
while (1)
{
isc_receive (NULL, (FB_API_HANDLE*) &request, (short) 0, (short) 2, &isc_19, (short) 0);
if (!isc_19.isc_20) break;
/*ERASE X;*/
isc_send (NULL, (FB_API_HANDLE*) &request, (short) 1, (short) 2, &isc_21, (short) 0);
/*END_FOR*/
isc_send (NULL, (FB_API_HANDLE*) &request, (short) 2, (short) 2, &isc_23, (short) 0);
}
}
/*COMMIT*/
{
isc_commit_transaction (isc_status, (FB_API_HANDLE*) &gds_trans);;
/*ON_ERROR*/
if (isc_status [1])
{
return_error(user_status);
/*END_ERROR;*/
}
}
}
ISC_STATUS API_ROUTINE gds__send(ISC_STATUS* status_vector,
FB_API_HANDLE* req_handle,
SSHORT msg_type,
SSHORT msg_length, const void* msg,
SSHORT req_level)
{
return isc_send(status_vector, req_handle, msg_type, msg_length,
static_cast<const SCHAR*>(msg), req_level);
}
EXPORT RM_ENTRY(rmc_send)
{
ClearParamPool();
ISC_STATUS *stat = AllocStatusPool();
isc_send(stat,
(isc_req_handle *)arg_vector[1].a_address,
(short)*CobolToShort(&arg_vector[2]),
(short)*CobolToShort(&arg_vector[3]),
(void *)arg_vector[4].a_address,
(short)*CobolToShort(&arg_vector[5]));
StatusToCobol(&arg_vector[0], stat);
return (0);
}
