Function gen_put_segment

src/gpre/languages/cob.cpp:2835–2864

//

static void gen_put_segment( const act* action)
{
	const blb* blob;

	if (action->act_flags & ACT_sql)
	{
		blob = (blb*) action->act_request->req_blobs;
		const ref* from = action->act_object;
		printa(names[COLUMN], false, "MOVE %s TO %s%d",
			   from->ref_value, names[isc_a_pos], blob->blb_buff_ident);
		printa(names[COLUMN], false, "MOVE %s TO %s%d",
			   from->ref_null_value, names[isc_a_pos], blob->blb_len_ident);
	}
	else
		blob = (blb*) action->act_object;

	TEXT buffer[128];
	strcpy(buffer, PUT_SEG_CALL_TEMPLATE);
	sprintf(output_buffer,
			buffer,
			names[COLUMN],
			ISC_PUT_SEGMENT,
			status_vector(action),
			BY_REF, names[isc_a_pos], blob->blb_ident,
			BY_VALUE, names[isc_a_pos], blob->blb_len_ident, END_VALUE,
			BY_REF, names[isc_a_pos], blob->blb_buff_ident, names[isc_status_pos]);
	COB_print_buffer(output_buffer, true);

	set_sqlcode(action);
}


//____________________________________________________________