1 /* BEGIN INCLUDE FILE ... dcpack_info.incl.pl1 */
 2 /* format: style3 */
 3 
 4 /* NOTE: ALL ARRAY'D STRUCTURES MUST BE AN EVEN NUMBER OF WORDS LONG! */
 5 
 6 dcl       (dc_branchp, dc_linkp, dc_pnp, dc_namep, dc_branch_arrayp, dc_link_arrayp, dc_name_arrayp, dc_grand_name_arrayp, dc_grand_link_pathname_arrayp)
 7                               ptr;
 8 
 9 dcl       1 dcpack_branch     based (dc_branchp) aligned,   /* structure returned by dc_pack */
10             2 vtoc_error      bit (1) unal,
11             2 pad1            bit (1) unal,
12             2 uid             bit (70) unal,
13             2 pad2            bit (20) unal,
14             2 dtu             bit (52) unal,
15             2 pad3            bit (20) unal,
16             2 dtm             bit (52) unal,
17             2 pad4            bit (20) unal,
18             2 dtd             bit (52) unal,
19             2 pad5            bit (20) unal,
20             2 dtem            bit (52) unal,
21             2 pad6            bit (20) unal,
22             2 rd              bit (52) unal,
23             2 dirsw           bit (1) unal,
24             2 optsw           bit (2) unal,
25             2 bc              bit (24) unal,
26             2 consistsw       bit (2) unal,
27             2 mode            bit (5) unal,
28             2 usage           bit (2) unal,
29             2 usagect         bit (17) unal,
30             2 nomore          bit (1) unal,
31             2 cl              bit (9) unal,
32             2 ml              bit (9) unal,
33             2 acct            bit (36),
34             2 hlim            bit (17) unal,
35             2 llim            bit (17) unal,
36             2 pad7            bit (2) unal,
37             2 rb1             bit (6) unal,
38             2 rb2             bit (6) unal,
39             2 rb3             bit (6) unal,
40             2 pad8            bit (18) unal,
41             2 pad9            bit (18) unal,
42             2 namerp          bit (18) unal,
43             2 nnames          fixed bin;
44 
45 dcl       1 dcpack_link       based (dc_linkp) aligned,     /* structure returned by dc_pack */
46             2 pad1            bit (2) unal,
47             2 uid             bit (70) unal,
48             2 pad2            bit (20) unal,
49             2 dtu             bit (52) unal,
50             2 pad3            bit (20) unal,
51             2 dtem            bit (52) unal,
52             2 pad4            bit (20) unal,
53             2 dtd             bit (52) unal,
54             2 pathnamerp      bit (18) unal,
55             2 namerp          bit (18) unal,
56             2 nnames          fixed bin;
57 
58 
59 dcl       1 dcpack_path       based (dc_pnp) aligned,       /* pathname and author for links */
60             2 size            fixed bin (16) unal,
61             2 pad             bit (19) unal,
62             2 author          char (32) unaligned,
63             2 name            char (168) unaligned;
64 
65 dcl       1 dcpack_ename      based (dc_namep) aligned,
66             2 size            fixed bin (16) unal,
67             2 pad             bit (19) unal,
68             2 name            char (32) unaligned;          /* for compatibility with old status command */
69 
70 /* The following must be set before referencing the arrays */
71 
72 dcl       (dc_n_names, dc_n_branches, dc_n_links)
73                               fixed bin;
74 
75 dcl       1 dcpack_branch_array
76                               (dc_n_branches) like dcpack_branch based (dc_branch_arrayp) aligned;
77 
78 dcl       1 dcpack_link_array (dc_n_links) like dcpack_link based (dc_link_arrayp) aligned;
79 
80 dcl       1 dcpack_name_array (dc_n_names) aligned like dcpack_ename based (dc_name_arrayp);
81 
82 dcl       dc_grand_n_names    fixed bin;
83 dcl       1 dcpack_grand_name_array
84                               (dc_grand_n_names) aligned like dcpack_ename based (dc_grand_name_arrayp);
85 dcl       1 dcpack_grand_link_pathname_array
86                               (dc_n_links) aligned like dcpack_path based (dc_grand_link_pathname_arrayp);
87 
88 
89 /* END INCLUDE FILE ... dcpack_info.incl.pl1 */
90