| 3168 | // |
| 3169 | |
| 3170 | static void gen_select(const act* action) |
| 3171 | { |
| 3172 | SCHAR name[MAX_REF_SIZE]; |
| 3173 | |
| 3174 | const gpre_req* request = action->act_request; |
| 3175 | const gpre_port* port = request->req_primary; |
| 3176 | gen_name(name, request->req_eof, true); |
| 3177 | |
| 3178 | gen_s_start(action); |
| 3179 | printa(COLUMN, "IF (SQLCODE .EQ. 0) THEN"); |
| 3180 | gen_receive(action, port); |
| 3181 | printa(COLUMN, "IF (%s .NE. 0) THEN", name); |
| 3182 | gpre_nod* var_list = (gpre_nod*) action->act_object; |
| 3183 | if (var_list) |
| 3184 | { |
| 3185 | for (int i = 0; i < var_list->nod_count; ++i) |
| 3186 | asgn_to(action, (const ref*) var_list->nod_arg[i]); |
| 3187 | } |
| 3188 | |
| 3189 | printa(COLUMN, "ELSE"); |
| 3190 | printa(COLUMN, "SQLCODE = 100"); |
| 3191 | printa(COLUMN, "END IF"); |
| 3192 | printa(COLUMN, "END IF"); |
| 3193 | } |
| 3194 | |
| 3195 | |
| 3196 | //____________________________________________________________ |
no test coverage detected