1 /* BEGIN INCLUDE FILE ... apl_dec_fs_structures.incl.pl1 */
 2 
 3 /* automatic */
 4 
 5 declare   (dec_data_ptr,
 6           dec_file_ptr,
 7           dec_free_list_ptr,
 8           dec_record_list_ptr,
 9           dec_value_bead_ptr) ptr;
10 
11 /* based */
12 
13 declare   1 dec_file          aligned based (dec_file_ptr),
14             2 mast            bit (36),
15             2 pad1 (2)        bit (36),
16             2 unknown_1       bit (18) unal,
17             2 blk_size        fixed bin (17) unal,
18             2 pad2 (5)        bit (36);
19 
20 declare   1 dec_record_list   (261120) aligned based (dec_record_list_ptr),     /* exact bound unknown */
21             2 offset          bit (18) unal,
22             2 n_blks          fixed bin (17) unal;
23 
24 declare   1 dec_free_list     (261120) aligned based (dec_free_list_ptr),       /* exact bound unknown */
25             2 offset          bit (18) unal,
26             2 n_blks          fixed bin (17) unal;
27 
28 declare   1 dec_value_bead    aligned based (dec_value_bead_ptr),
29             2 n_words         fixed bin (17) unal,
30             2 unknown_1       bit (18) unal,      /* "004007"b3 */
31             2 type            fixed bin (17) unal,
32             2 n_dims          fixed bin (17) unal,
33             2 total_data_elements
34                               fixed bin (35),
35             2 rho (number_of_dimensions refer (dec_value_bead.n_dims)) fixed bin (35);
36 
37 declare   dec_characters char (data_elements) aligned based (dec_data_ptr),
38           dec_booleans bit (data_elements) aligned based (dec_data_ptr),        /* unconfirmed */
39           dec_integers (data_elements) fixed bin (35) based (dec_data_ptr),
40           dec_floats (data_elements) bit (72) aligned based (dec_data_ptr);     /* because they are not double-word aligned */
41 
42 /* constants */
43 
44 declare   (DEC_FLOAT          init (0),
45           DEC_INTEGER         init (1),
46           DEC_BOOLEAN         init (2),
47           DEC_CHAR            init (3)) fixed bin internal static;
48 
49 /* END INCLUDE FILE ... apl_dec_fs_structures.incl.pl1 */