EXPORT RM_ENTRY(rmc_prepare_transaction) { ClearParamPool(); ISC_STATUS *stat = AllocStatusPool(); isc_prepare_transaction(stat, (isc_tr_handle *)arg_vector[1].a_address); StatusToCobol(&arg_vector[0], stat); return (0); }
ISC_STATUS API_ROUTINE gds__prepare_transaction(ISC_STATUS* status_vector, FB_API_HANDLE* tra_handle) { return isc_prepare_transaction(status_vector, tra_handle); }