ISC_STATUS API_ROUTINE gds__compile_request2(ISC_STATUS* status_vector, FB_API_HANDLE* db_handle, FB_API_HANDLE* req_handle, SSHORT blr_length, const SCHAR* blr) { return isc_compile_request2(status_vector, db_handle, req_handle, blr_length, blr); }
EXPORT RM_ENTRY(rmc_compile_request2) { ClearParamPool(); ISC_STATUS *stat = AllocStatusPool(); isc_compile_request2(stat, (isc_db_handle *)arg_vector[1].a_address, (isc_req_handle *)arg_vector[2].a_address, *CobolToShort(&arg_vector[3]), (char *)arg_vector[4].a_address); StatusToCobol(&arg_vector[0], stat); return (0); }