| 2483 | // |
| 2484 | |
| 2485 | static void gen_for( const act* action) |
| 2486 | { |
| 2487 | TEXT s[MAX_REF_SIZE]; |
| 2488 | |
| 2489 | gen_s_start(action); |
| 2490 | const gpre_req* request = action->act_request; |
| 2491 | gen_receive(action, request->req_primary); |
| 2492 | printa(names[COLUMN], false, "PERFORM UNTIL %s = 0", gen_name(s, request->req_eof, true)); |
| 2493 | |
| 2494 | const gpre_port* port = action->act_request->req_primary; |
| 2495 | if (port) |
| 2496 | for (const ref* reference = port->por_references; reference; reference = reference->ref_next) |
| 2497 | { |
| 2498 | if (reference->ref_field->fld_array_info) |
| 2499 | gen_get_or_put_slice(action, reference, true); |
| 2500 | } |
| 2501 | } |
| 2502 | |
| 2503 | |
| 2504 | //____________________________________________________________ |
no test coverage detected