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); }