1 dcl       bases(0:7) bit(3) aligned int static init("000"b, "010"b, "100"b,  "001"b, "011"b, "101"b, "111"b,"110"b)
 2           options(constant);
 3 
 4 dcl (     ap        defined(bases(0)),
 5           bp        defined(bases(1)),
 6           lp        defined(bases(2)),
 7           sp        defined(bases(7))) bit(3) aligned;
 8 
 9 dcl (     ab        defined(bases(3)),
10           bb        defined(bases(4)),
11           lb        defined(bases(5)),
12           sb        defined(bases(6))) bit(3) aligned;
13 
14 dcl       which_base(0:7) fixed bin int static init(0,3,1,4,2,5,7,6) options(constant);