| 2261 | // |
| 2262 | |
| 2263 | static SSHORT gen_event_block( const act* action) |
| 2264 | { |
| 2265 | gpre_nod* init = (gpre_nod*) action->act_object; |
| 2266 | |
| 2267 | int ident = CMP_next_ident(); |
| 2268 | init->nod_arg[2] = (gpre_nod*) (IPTR) ident; |
| 2269 | |
| 2270 | printa(names[COLUMN_0], false, "01 %s%dA PIC S9(9) USAGE COMP.", names[isc_a_pos], ident); |
| 2271 | printa(names[COLUMN_0], false, "01 %s%dB PIC S9(9) USAGE COMP.", names[isc_a_pos], ident); |
| 2272 | printa(names[COLUMN_0], false, "01 %s%dL PIC S9(4) USAGE COMP.", names[isc_a_pos], ident); |
| 2273 | |
| 2274 | const gpre_nod* list = init->nod_arg[1]; |
| 2275 | |
| 2276 | return list->nod_count; |
| 2277 | } |
| 2278 | |
| 2279 | |
| 2280 | //____________________________________________________________ |
no test coverage detected