| 4156 | // |
| 4157 | |
| 4158 | static void make_ready(const gpre_dbb* db, |
| 4159 | const TEXT* filename, |
| 4160 | const TEXT* vector, |
| 4161 | const gpre_req* request, USHORT namelength) |
| 4162 | { |
| 4163 | TEXT s1[32], s1Tmp[32], s2[32], s2Tmp[32]; |
| 4164 | const gpre_dbb* dbisc = (gpre_dbb*) db->dbb_name->sym_object; |
| 4165 | |
| 4166 | if (request) |
| 4167 | { |
| 4168 | sprintf(s1, "%s%dL", names[isc_b_pos], request->req_ident); |
| 4169 | if (request->req_flags & REQ_extend_dpb) |
| 4170 | sprintf(s2, "%s%dp", names[isc_b_pos], request->req_ident); |
| 4171 | else |
| 4172 | sprintf(s2, "%s%d", names[isc_b_pos], request->req_ident); |
| 4173 | |
| 4174 | // if the dpb needs to be extended at runtime to include items |
| 4175 | // in host variables, do so here; this assumes that there is |
| 4176 | // always a request generated for runtime variables |
| 4177 | |
| 4178 | if (request->req_flags & REQ_extend_dpb) |
| 4179 | { |
| 4180 | if (request->req_length) |
| 4181 | { |
| 4182 | sprintf(output_buffer, "%sCALL \"%s\" USING %s%d GIVING %s\n", |
| 4183 | names[COLUMN], |
| 4184 | ISC_BADDRESS, |
| 4185 | names[isc_b_pos], |
| 4186 | request->req_ident, |
| 4187 | s2); |
| 4188 | //sprintf(output_buffer, "%sMOVE %s%d to %s\n", |
| 4189 | // names[COLUMN], names[isc_b_pos], request->req_ident, s2); |
| 4190 | } |
| 4191 | else |
| 4192 | sprintf(output_buffer, "%sMOVE 0 TO %s\n", names[COLUMN], s2); |
| 4193 | |
| 4194 | RMC_print_buffer(output_buffer, true); |
| 4195 | if (db->dbb_r_user) |
| 4196 | { |
| 4197 | sprintf(output_buffer, "%sCALL \"%s\" USING %s, %s, 28, %s\n", |
| 4198 | names[COLUMN], |
| 4199 | ISC_EXPAND_DPB, |
| 4200 | s2, |
| 4201 | s1, |
| 4202 | db->dbb_r_user); |
| 4203 | RMC_print_buffer(output_buffer, true); |
| 4204 | } |
| 4205 | if (db->dbb_r_password) |
| 4206 | { |
| 4207 | sprintf(output_buffer, "%sCALL \"%s\" USING %s, %s, 29, %s\n", |
| 4208 | names[COLUMN], |
| 4209 | ISC_EXPAND_DPB, |
| 4210 | s2, |
| 4211 | s1, |
| 4212 | db->dbb_r_password); |
| 4213 | RMC_print_buffer(output_buffer, true); |
| 4214 | } |
| 4215 |
no test coverage detected