Example #1
0
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);
}
Example #2
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);
}