1
2
3
4
5
6
7
8
9
10
11 dcl bce_ioi_post_seg$ aligned external;
12
13 dcl 1 ioi_post_area aligned based (ioi_post_area_ptr),
14 2 number fixed bin,
15 2 pad (7) bit (36),
16 2 buffer (0 refer (ioi_post_area.number)) like io_post_buffer;
17
18 dcl 1 io_post_buffer aligned based (io_post_buffer_ptr),
19 2 ev_chn fixed bin (71),
20 2 message fixed bin (71),
21 2 state fixed bin,
22 2 pad bit (36);
23
24 dcl io_post_buffer_ptr ptr;
25 dcl ioi_post_area_ptr ptr;
26
27
28
29 dcl IO_OUTSTANDING fixed bin static options (constant) init (1);
30 dcl IO_COMPLETE fixed bin static options (constant) init (2);
31 dcl WAITING_SPECIAL fixed bin static options (constant) init (3);
32 dcl SPECIAL_ARRIVED fixed bin static options (constant) init (4);
33
34