EXPORT RM_ENTRY(rmc_unwind_request) { ClearParamPool(); ISC_STATUS *stat = AllocStatusPool(); isc_unwind_request(stat, (isc_tr_handle *)arg_vector[1].a_address, (short)*CobolToShort(&arg_vector[2])); StatusToCobol(&arg_vector[0], stat); return (0); }
ISC_STATUS API_ROUTINE gds__unwind_request(ISC_STATUS * status_vector, FB_API_HANDLE* req_handle, SSHORT req_level) { return isc_unwind_request(status_vector, req_handle, req_level); }