| 3550 | // |
| 3551 | |
| 3552 | static void gen_start( const act* action, const gpre_port* port) |
| 3553 | { |
| 3554 | const gpre_req* request = action->act_request; |
| 3555 | const TEXT* vector = status_vector(action); |
| 3556 | |
| 3557 | if (port) |
| 3558 | { |
| 3559 | for (const ref* reference = port->por_references; reference; reference = reference->ref_next) |
| 3560 | { |
| 3561 | if (reference->ref_field->fld_array_info) |
| 3562 | gen_get_or_put_slice(action, reference, false); |
| 3563 | } |
| 3564 | |
| 3565 | sprintf(output_buffer, "%sCALL \"%s\" USING %s, %s, %s, %d, %d, %s%d, %s\n", |
| 3566 | names[COLUMN], |
| 3567 | ISC_START_AND_SEND, |
| 3568 | vector, |
| 3569 | request->req_handle, |
| 3570 | request_trans(action, request), |
| 3571 | port->por_msg_number, |
| 3572 | port->por_length, |
| 3573 | names[isc_a_pos], port->por_ident, |
| 3574 | request->req_request_level); |
| 3575 | } |
| 3576 | else |
| 3577 | sprintf(output_buffer, "%sCALL \"%s\" USING %s, %s, %s, %s\n", |
| 3578 | names[COLUMN], |
| 3579 | ISC_START_REQUEST, |
| 3580 | vector, |
| 3581 | request->req_handle, |
| 3582 | request_trans(action, request), |
| 3583 | request->req_request_level); |
| 3584 | |
| 3585 | RMC_print_buffer(output_buffer, true); |
| 3586 | |
| 3587 | set_sqlcode(action); |
| 3588 | } |
| 3589 | |
| 3590 | |
| 3591 | //____________________________________________________________ |
no test coverage detected