| 2524 | // |
| 2525 | |
| 2526 | static void gen_fetch( const act* action) |
| 2527 | { |
| 2528 | gpre_req* request = action->act_request; |
| 2529 | |
| 2530 | if (request->req_sync) |
| 2531 | gen_send(action, request->req_sync); |
| 2532 | |
| 2533 | SCHAR s[MAX_REF_SIZE]; |
| 2534 | gen_receive(action, request->req_primary); |
| 2535 | printa(names[COLUMN], false, "IF %s NOT = 0 THEN", gen_name(s, request->req_eof, true)); |
| 2536 | printa(names[COLUMN], false, "MOVE 0 TO SQLCODE"); |
| 2537 | if (gpre_nod* var_list = (gpre_nod*) action->act_object) |
| 2538 | for (int i = 0; i < var_list->nod_count; i++) { |
| 2539 | asgn_to(action, (ref*) var_list->nod_arg[i]); |
| 2540 | } |
| 2541 | printa(names[COLUMN], false, "ELSE"); |
| 2542 | printa(names[COLUMN], false, "MOVE 100 TO SQLCODE"); |
| 2543 | printa(names[COLUMN], false, "END-IF"); |
| 2544 | } |
| 2545 | |
| 2546 | |
| 2547 | //____________________________________________________________ |
no test coverage detected