| 2596 | // |
| 2597 | |
| 2598 | static void gen_for( const act* action) |
| 2599 | { |
| 2600 | TEXT s[MAX_REF_SIZE]; |
| 2601 | |
| 2602 | gen_s_start(action); |
| 2603 | const gpre_req* request = action->act_request; |
| 2604 | gen_receive(action, request->req_primary); |
| 2605 | printa(names[COLUMN], false, "PERFORM UNTIL %s = 0", gen_name(s, request->req_eof, true)); |
| 2606 | |
| 2607 | const gpre_port* port = action->act_request->req_primary; |
| 2608 | if (port) |
| 2609 | for (const ref* reference = port->por_references; reference; reference = reference->ref_next) |
| 2610 | { |
| 2611 | if (reference->ref_field->fld_array_info) |
| 2612 | gen_get_or_put_slice(action, reference, true); |
| 2613 | } |
| 2614 | } |
| 2615 | |
| 2616 | |
| 2617 | //____________________________________________________________ |
no test coverage detected