1 /*  BEGIN INCLUDE   vfile_indx_block_header.incl.pl1                   */
 2 
 3 /*  12-17-84 Thanh Nguyen :  Extracted from module change_record_list.pl1.
 4     So the following structure can be accessible by other modules.
 5  */
 6 
 7           dcl     block_head_ptr         ptr;
 8           dcl     1 block_head           based (block_head_ptr),
 9                     2 is_preceding_block_free
10                                          bit (1) unal,
11                     2 is_this_block_free bit (1) unal,
12                     2 block_size         fixed (19) unal,
13                     2 flags,
14                       3 lock_flag        bit (1) unal,
15                       3 stationary       bit (1) unal,
16                       3 indirect         bit (1) unal,
17                       3 after_applies    bit (1) unal,
18                       3 pad              bit (6) unal,
19                       3 excess_words     fixed (3) unal,    /* only used in indirect allocations */
20                     2 prev_free_block    fixed (18) aligned,
21                     2 next_free_block    fixed (18) aligned;
22 
23 /*  END INCLUDE    vfile_indx_block_header.incl.pl1                    */