| 2415 | // |
| 2416 | |
| 2417 | static void gen_fetch( const act* action) |
| 2418 | { |
| 2419 | gpre_req* request = action->act_request; |
| 2420 | |
| 2421 | if (request->req_sync) |
| 2422 | gen_send(action, request->req_sync); |
| 2423 | |
| 2424 | SCHAR s[MAX_REF_SIZE]; |
| 2425 | gen_receive(action, request->req_primary); |
| 2426 | printa(names[COLUMN], false, "IF %s NOT = 0 THEN", gen_name(s, request->req_eof, true)); |
| 2427 | printa(names[COLUMN], false, "MOVE 0 TO SQLCODE"); |
| 2428 | if (gpre_nod* var_list = (gpre_nod*) action->act_object) |
| 2429 | for (int i = 0; i < var_list->nod_count; i++) { |
| 2430 | asgn_to(action, (ref*) var_list->nod_arg[i]); |
| 2431 | } |
| 2432 | printa(names[COLUMN], false, "ELSE"); |
| 2433 | printa(names[COLUMN], false, "MOVE 100 TO SQLCODE"); |
| 2434 | printa(names[COLUMN], false, "END-IF"); |
| 2435 | } |
| 2436 | |
| 2437 | |
| 2438 | //____________________________________________________________ |
no test coverage detected