| 3426 | // |
| 3427 | |
| 3428 | static void gen_start( const act* action, const gpre_port* port) |
| 3429 | { |
| 3430 | const gpre_req* request = action->act_request; |
| 3431 | const TEXT* vector = status_vector(action); |
| 3432 | |
| 3433 | if (port) |
| 3434 | { |
| 3435 | for (const ref* reference = port->por_references; reference; reference = reference->ref_next) |
| 3436 | { |
| 3437 | if (reference->ref_field->fld_array_info) |
| 3438 | gen_get_or_put_slice(action, reference, false); |
| 3439 | } |
| 3440 | |
| 3441 | sprintf(output_buffer, "%sCALL \"%s\" USING %s, %s%s, %s%s, %s%d%s, %s%d%s, %s%s%d, %s%s%s\n", |
| 3442 | names[COLUMN], |
| 3443 | ISC_START_AND_SEND, |
| 3444 | vector, |
| 3445 | BY_REF, request->req_handle, |
| 3446 | BY_REF, request_trans(action, request), |
| 3447 | BY_VALUE, port->por_msg_number, END_VALUE, |
| 3448 | BY_VALUE, port->por_length, END_VALUE, |
| 3449 | BY_REF, names[isc_a_pos], port->por_ident, |
| 3450 | BY_VALUE, request->req_request_level, END_VALUE); |
| 3451 | } |
| 3452 | else |
| 3453 | sprintf(output_buffer, "%sCALL \"%s\" USING %s, %s%s, %s%s, %s%s%s\n", |
| 3454 | names[COLUMN], |
| 3455 | ISC_START_REQUEST, |
| 3456 | vector, |
| 3457 | BY_REF, request->req_handle, |
| 3458 | BY_REF, request_trans(action, request), |
| 3459 | BY_VALUE, request->req_request_level, END_VALUE); |
| 3460 | |
| 3461 | COB_print_buffer(output_buffer, true); |
| 3462 | |
| 3463 | set_sqlcode(action); |
| 3464 | } |
| 3465 | |
| 3466 | |
| 3467 | //____________________________________________________________ |
no test coverage detected