1 /* BEGIN INCLUDE FILE backup_volume_contents.incl.pl1 ... May 1976 */
 2 
 3 
 4 
 5 /****^  HISTORY COMMENTS:
 6   1) change(86-11-10,GWMay), approve(86-11-10,MCR7445), audit(86-11-19,GDixon),
 7      install(86-11-21,MR12.0-1223):
 8      increased the size of the offset field to fixed bin (18).
 9                                                    END HISTORY COMMENTS */
10 
11 
12 dcl  contentsp ptr;                                         /* ptr to structure */
13 
14 dcl  backup_volume_contents_version_3 fixed bin static init (3) options (constant);
15 
16 
17 dcl 1 v1_backup_volume_contents based (contentsp) aligned,
18     2 header like backup_volume_header aligned,
19     2 version fixed bin,                                    /* version number of structure */
20     2 volname char (32),                                    /* volume name */
21     2 volid bit (36),                                       /* volume id */
22     2 next fixed bin,                                       /* index of next available slot in uid array */
23     2 array (1: 1 refer (backup_volume_contents.next)),     /* array of arrays of data objects on this output volume */
24       3 uid bit (36);                                       /* uid */
25 
26 dcl 1 v2_backup_volume_contents based (contentsp) aligned,
27     2 header like backup_volume_header aligned,
28     2 version fixed bin,                                    /* version number of structure */
29     2 volname char (32),                                    /* volume name */
30     2 volid bit (36),                                       /* volume id */
31     2 next fixed bin,                                       /* index of next available slot in uid array */
32     2 pad (10) bit (36),
33     2 array (1: 1 refer (backup_volume_contents.next)),     /* array of arrays of data objects on this output volume */
34       3 uid bit (36),                                       /* uid */
35       3 location,                                           /* offset of name string */
36         4 component fixed bin (17) unal,
37         4 offset fixed bin (17) unal ;
38 
39 dcl 1 backup_volume_contents based (contentsp) aligned,
40     2 header like backup_volume_header aligned,
41     2 version fixed bin,                                    /* version number of structure */
42     2 volname char (32),                                    /* volume name */
43     2 volid bit (36),                                       /* volume id */
44     2 next fixed bin,                                       /* index of next available slot in uid array */
45     2 pad (10) bit (36),
46     2 array (1: 1 refer (backup_volume_contents.next)),     /* array of arrays of data objects on this output volume */
47       3 uid bit (36),                                       /* uid */
48       3 tape_loc fixed bin (35),
49       3 pad1 bit (36),
50       3 location,                                           /* offset of name string */
51         4 component fixed bin (18) unsigned unal,
52         4 offset fixed bin (18) unsigned unal ;
53 
54 dcl  contents_namesp ptr;                                   /* ptr to optional name seg */
55 
56 dcl 1 backup_volume_contents_names based (contents_namesp) aligned,
57     2 version fixed bin,
58     2 offset fixed bin (18),                                /* next free location */
59     2 pad (6) bit (36),
60     2 begin bit (36);
61 
62 
63 /* END INCLUDE FILE backup_volume_contents.incl.pl1 */