1 dcl (     s_fixed_real_desc             init( 1),
 2           d_fixed_real_desc             init( 2),
 3           s_float_real_desc             init( 3),
 4           d_float_real_desc             init( 4),
 5           s_fixed_cplx_desc             init( 5),
 6           d_fixed_cplx_desc             init( 6),
 7           s_float_cplx_desc             init( 7),
 8           d_float_cplx_desc             init( 8),
 9 
10           D_fixed_real_desc             init( 9),
11           D_float_real_desc             init(10),
12           D_fixed_cplx_desc             init(11),
13           D_float_cplx_desc             init(12),
14 
15           pointer_desc                  init(13),
16           offset_desc                   init(14),
17           label_desc                    init(15),
18           entry_desc                    init(16),
19           structure_desc                init(17),
20           area_desc                     init(18),
21 
22           bit_desc                      init(19),
23           v_bit_desc                    init(20),
24 
25           char_desc                     init(21),
26           v_char_desc                   init(22),
27 
28           file_desc                     init(23)
29                                                   ) fixed bin int static options(constant);