1 /*  START OF:       vtoc_map.incl.pl1   ... March 1982 ...    *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */
 2 
 3      dcl     vtoc_mapp              ptr;
 4      dcl     bit_map_wordp          ptr;
 5 
 6      dcl     1 vtoc_map             aligned based (vtoc_mapp),
 7                2 n_vtoce            fixed bin,              /* Number of VTOCEs on the device */
 8                2 n_free_vtoce       fixed bin,              /* Number of free VTOCEs */
 9                2 bit_map_n_words    fixed bin,              /* Number of words in the bit map below */
10                2 vtoc_last_recno    fixed bin,              /* Last record number in VTOC */
11                2 pad                (4) fixed bin,
12                2 bit_map            (0:1024 - 9) bit (36);  /* This structure consumes exactly 1 page */
13 
14      dcl     1 bit_map_word         aligned based (bit_map_wordp),
15                2 pad1               bit (1) unal,
16                2 bits               bit (32) unal,          /* 32 VTOCES ON => free */
17                2 pad2               bit (3) unal;
18 
19 
20 
21 /*  END OF:         vtoc_map.incl.pl1                         *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */