Method put_slice

src/jrd/blb.cpp:1727–1866

void blb::put_slice(thread_db*	tdbb,
					jrd_tra*		transaction,
					bid*		blob_id,
					const UCHAR*	sdl,
					USHORT	param_length,
					const UCHAR*	param,
					SLONG	slice_length,
					UCHAR*	slice_addr)
{
/**************************************
 *
 *      b l b : : p u t _ s l i c e
 *
 **************************************
 *
 * Functional description
 *      Put a slice of an array.
 *
 **************************************/
	transaction = transaction->getOuter();

	SET_TDBB(tdbb);
	Jrd::ContextPoolHolder context(tdbb, transaction->tra_pool);

	// Do initial parse of slice description to get relation and field identification
	sdl_info info;
	if (SDL_info(tdbb->tdbb_status_vector, sdl, &info, 0))
		ERR_punt();

	jrd_rel* relation;
	if (info.sdl_info_relation.length()) {
		relation = MET_lookup_relation(tdbb, info.sdl_info_relation);
	}
	else {
		relation = MET_relation(tdbb, info.sdl_info_rid);
	}

	if (!relation) {
		IBERROR(196);			// msg 196 relation for array not known
	}

	SSHORT	n;
	if (info.sdl_info_field.length()) {
	    n = MET_lookup_field(tdbb, relation, info.sdl_info_field);
	}
	else {
		n = info.sdl_info_fid;
	}

	// Make sure relation is scanned
	MET_scan_relation(tdbb, relation);

	jrd_fld* field = NULL;
	if (n < 0 || !(field = MET_get_field(relation, n))) {
		IBERROR(197);			// msg 197 field for array not known
	}

	ArrayField* array_desc = field->fld_array;