1 /* BEGIN INCLUDE FILE dm_cm_storage_record.incl.pl1 */
 2 
 3 /* DESCRIPTION:
 4 
 5         A storage record is an extension to the collection_header structure.
 6    It is expected to be more volatile than collection_header and has a
 7    different format depending on the control interval storage method in use
 8    for the collection.  A storage record is stored as an element in the
 9    file's Header Collection with the element identifier
10    collection_header.storage_record_element_id.
11 
12         The unblocked_storage_record contains the control interval numbers
13    of the first and last control intervals of a collection.  Unblocked
14    control intervals are chained together, so all control intervals can be
15    found by starting at one end and following the chain forward or backward.
16 
17         The blocked_storage_record is not yet used, as the Blocked Control
18    Interval Storage Method is not yet implemented.
19 */
20 
21 /* HISTORY:
22 Written by Matthew Pierret, 09/24/84.
23 Modified:
24 */
25 
26 /* format: style2,ind3,ll79 */
27 
28      dcl     1 unblocked_storage_record
29                                     aligned
30                                     based (unblocked_storage_record_ptr),
31                2 first_control_interval
32                                     fixed bin (24) uns,
33                2 last_control_interval
34                                     fixed bin (24) uns;
35 
36      dcl     1 blocked_storage_record
37                                     aligned based (blocked_storage_record_ptr),
38                2 last_control_interval
39                                     fixed bin (24) uns,
40                2 number_of_blocks   fixed bin (17) unal,
41                2 number_of_control_intervals_per_block
42                                     fixed bin (17) unal,
43                2 allocation_map_element_id
44                                     bit (36) aligned;
45 
46      dcl     unblocked_storage_record_ptr
47                                     ptr init (null ());
48      dcl     blocked_storage_record_ptr
49                                     ptr init (null ());
50 
51 /* END INCLUDE FILE dm_cm_storage_record.incl.pl1 */