1 dcl       1 basic_program_header        aligned based(program_header_pt),
 2           2 version_number              fixed binary,
 3           2 numeric_storage             like loc_number,
 4           2 string_storage              like loc_number,
 5           2 numeric_data                like loc_number,
 6           2 string_data                 like loc_number,
 7           2 incoming_args               like loc_number,
 8           2 time_limit                  float bin,
 9           2 numeric_scalars             like loc_number,
10           2 string_scalars              like loc_number,
11           2 numeric_arrays              like loc_number,
12           2 string_arrays               like loc_number,
13           2 functions                   like loc_number,
14           2 statement_map               like loc_number,
15           2 precision_ind               fixed bin(17) unaligned,
16           2 definitions                 fixed bin(17) unaligned;
17 
18 dcl       1 loc_number                  based,
19           2 location                    bit(18) unaligned,
20           2 number                      bit(18) unaligned;