1 dcl       1 array_dope                  aligned based,
 2           2 data                        ptr,
 3           2 original_bounds(2)          fixed bin,
 4           2 current_bounds(2)           fixed bin;
 5 
 6 dcl       1 scalar_symbol               aligned based,
 7           2 name                        char(2) unaligned,
 8           2 parameter                   bit(1) unaligned,
 9           2 location                    bit(17) unaligned;
10 
11 dcl       1 array_symbol                aligned based,
12           2 name                        char(1) unaligned,
13           2 skip                        bit(9) unaligned,
14           2 parameter                   bit(1) unaligned,
15           2 location                    bit(17) unaligned,
16           2 offset                      fixed bin,
17           2 bounds(2)                   fixed bin(17) unaligned;