1
2
3 dcl prph_dsk_cardp ptr;
4
5 dcl 1 prph_dsk_card based (prph_dsk_cardp) aligned,
6 2 word char (4),
7 2 name char (4),
8 2 iom fixed bin (3),
9 2 chan fixed bin (8),
10 2 nchan fixed bin,
11
12 2 group (5),
13 3 model fixed bin,
14 3 ndrives fixed bin,
15
16 2 type_word aligned,
17 3 field_type (14) bit (2) unaligned,
18 3 pad1 bit (4) unaligned,
19 3 n_fields fixed bin (4) unsigned unaligned;
20
21 dcl 1 prph_dsk_card_array aligned based (prph_dsk_cardp),
22 2 pad1 (5) bit (36) aligned,
23 2 group (divide (max (0, (prph_dsk_card.n_fields - 4)), 2, 17, 0)),
24 3 model fixed bin,
25 3 ndrives fixed bin;
26
27