| 2540 | // |
| 2541 | |
| 2542 | static void gen_loop( const act* action, int column) |
| 2543 | { |
| 2544 | TEXT name[MAX_REF_SIZE]; |
| 2545 | |
| 2546 | gen_s_start(action, column); |
| 2547 | const gpre_req* request = action->act_request; |
| 2548 | const gpre_port* port = request->req_primary; |
| 2549 | printa(column, "if (!SQLCODE) "); |
| 2550 | column += INDENT; |
| 2551 | begin(column); |
| 2552 | gen_receive(action, column, port); |
| 2553 | gen_name(name, port->por_references, true); |
| 2554 | printa(column, "if (!SQLCODE && !%s)", name); |
| 2555 | printa(column + INDENT, "SQLCODE = 100;"); |
| 2556 | endp(column); |
| 2557 | column -= INDENT; |
| 2558 | } |
| 2559 | |
| 2560 | |
| 2561 | //____________________________________________________________ |
no test coverage detected