| 2357 | // |
| 2358 | |
| 2359 | static void gen_get_or_put_slice(const act* action, const ref* reference, bool get) |
| 2360 | { |
| 2361 | if (!(reference->ref_flags & REF_fetch_array)) |
| 2362 | return; |
| 2363 | |
| 2364 | TEXT s[MAX_REF_SIZE]; |
| 2365 | if (get) |
| 2366 | { |
| 2367 | if (action->act_flags & ACT_sql) |
| 2368 | { |
| 2369 | sprintf(output_buffer, |
| 2370 | "%sCALL ISC_GET_SLICE (%s, %s, %s, %s, %s%d%s, isc_%d, %s0%s, %s0%s, %s%" |
| 2371 | SLONGFORMAT"%s, %s, ISC_ARRAY_LENGTH)\n", |
| 2372 | COLUMN, |
| 2373 | status_vector(), |
| 2374 | action->act_request->req_database->dbb_name->sym_string, |
| 2375 | action->act_request->req_trans, |
| 2376 | gen_name(s, reference, true), |
| 2377 | I2CONST_1, reference->ref_sdl_length, I2CONST_2, |
| 2378 | reference->ref_sdl_ident, |
| 2379 | I2CONST_1, I2CONST_2, |
| 2380 | I2CONST_1, I2CONST_2, |
| 2381 | I4CONST_1, reference->ref_field->fld_array_info->ary_size, |
| 2382 | I4CONST_2, reference->ref_value); |
| 2383 | } |
| 2384 | else |
| 2385 | { |
| 2386 | sprintf(output_buffer, |
| 2387 | "%sCALL ISC_GET_SLICE (%s, %s, %s, %s, %s%d%s, isc_%d, %s0%s, %s0%s, %s%" |
| 2388 | SLONGFORMAT"%s, isc_%d, ISC_ARRAY_LENGTH)\n", |
| 2389 | COLUMN, |
| 2390 | status_vector(), |
| 2391 | action->act_request->req_database->dbb_name->sym_string, |
| 2392 | action->act_request->req_trans, |
| 2393 | gen_name(s, reference, true), |
| 2394 | I2CONST_1, reference->ref_sdl_length, I2CONST_2, |
| 2395 | reference->ref_sdl_ident, |
| 2396 | I2CONST_1, I2CONST_2, |
| 2397 | I2CONST_1, I2CONST_2, |
| 2398 | I4CONST_1, reference->ref_field->fld_array_info->ary_size, |
| 2399 | I4CONST_2, |
| 2400 | reference->ref_field->fld_array_info->ary_ident); |
| 2401 | } |
| 2402 | } |
| 2403 | else |
| 2404 | { |
| 2405 | if (action->act_flags & ACT_sql) |
| 2406 | { |
| 2407 | sprintf(output_buffer, |
| 2408 | "%sCALL ISC_PUT_SLICE (%s, %s, %s, %s, %s%d%s, isc_%d, %s0%s, %s0%s, %s%" |
| 2409 | SLONGFORMAT"%s, %s)\n", |
| 2410 | COLUMN, |
| 2411 | status_vector(), |
| 2412 | action->act_request->req_database->dbb_name->sym_string, |
| 2413 | action->act_request->req_trans, |
| 2414 | gen_name(s, reference, true), |
| 2415 | I2CONST_1, reference->ref_sdl_length, I2CONST_2, |
| 2416 | reference->ref_sdl_ident, |
no test coverage detected