| 2931 | // |
| 2932 | |
| 2933 | static void gen_start( const act* action, gpre_port* port, int column) |
| 2934 | { |
| 2935 | gpre_req* request = action->act_request; |
| 2936 | const TEXT* vector = status_vector(action); |
| 2937 | column += INDENT; |
| 2938 | |
| 2939 | if (port) |
| 2940 | { |
| 2941 | for (ref* reference = port->por_references; reference; reference = reference->ref_next) |
| 2942 | { |
| 2943 | if (reference->ref_field->fld_array_info) |
| 2944 | gen_get_or_put_slice(action, reference, false, column); |
| 2945 | } |
| 2946 | |
| 2947 | printa(column, "firebird.START_AND_SEND (%s %s, %s%s, %d, %d, isc_%d'address, %s);", |
| 2948 | vector, request->req_handle, gpreGlob.ada_package, request_trans(action, request), |
| 2949 | port->por_msg_number, port->por_length, port->por_ident, request->req_request_level); |
| 2950 | } |
| 2951 | else |
| 2952 | printa(column, "firebird.START_REQUEST (%s %s, %s%s, %s);", vector, |
| 2953 | request->req_handle, gpreGlob.ada_package, request_trans(action, request), |
| 2954 | request->req_request_level); |
| 2955 | |
| 2956 | set_sqlcode(action, column); |
| 2957 | } |
| 2958 | |
| 2959 | |
| 2960 | //____________________________________________________________ |
no test coverage detected