ISC_STATUS API_ROUTINE gds__put_slice(ISC_STATUS* status_vector,
FB_API_HANDLE* db_handle,
FB_API_HANDLE* tra_handle,
GDS_QUAD* array_id,
SSHORT sdl_length,
const SCHAR* sdl,
SSHORT parameters_leng,
const SLONG* parameters,
SLONG slice_length, void* slice)
{
return isc_put_slice(status_vector, db_handle, tra_handle, array_id,
sdl_length, sdl, parameters_leng, parameters,
slice_length, reinterpret_cast<SCHAR*>(slice));
}
EXPORT RM_ENTRY(rmc_put_slice)
{
ClearParamPool();
ISC_STATUS *stat = AllocStatusPool();
isc_put_slice(stat,
(isc_db_handle *)arg_vector[1].a_address,
(isc_tr_handle *)arg_vector[2].a_address,
(ISC_QUAD *)arg_vector[3].a_address,
(short)*CobolToShort(&arg_vector[4]),
(char *)CobolToString(&arg_vector[5]),
(short)*CobolToShort(&arg_vector[6]),
(ISC_LONG *)CobolToInt(&arg_vector[7]),
*CobolToInt(&arg_vector[8]),
(void *)arg_vector[9].a_address);
StatusToCobol(&arg_vector[0], stat);
return (0);
}
