1 /* BEGIN INCLUDE FILE gfms_catrec_0.incl.pl1   (Planalp Multics)  08/11/78 1517.8 mst Fri */
 2 /* Modified: Mel Wilson       December 1979 changing sector numbers to                    fixed bin(18)unsigned */
 3 
 4 /* 64 words. */
 5 dcl 1 gfms_catrec_0                     aligned based (cat_ptr),
 6 
 7 /* word 0 */
 8       2 type                            bit(6)unal,                  /* =0 in this case */
 9       2 smc_section_no                  fixed bin(5)unsigned unal,
10       2 userno                          fixed bin(7)unsigned unal,
11       2 dupl_sector_no                  fixed bin(18)unsigned unal,
12 
13       2 sector_pointers,
14 
15 /* word 1 */
16         3 next_llink_sector_org         fixed bin(18)unsigned unal,
17         3 next_llink_sector_dupl        fixed bin(18)unsigned unal,
18 
19 /* word 2 */
20         3 prior_llink_sector_org        fixed bin(18)unsigned unal,
21         3 prior_llink_sector_dupl       fixed bin(18)unsigned unal,
22 
23 /* word 3 */
24         3 prior_cat_sector_org          fixed bin(18)unsigned unal,
25         3 prior_cat_sector_dupl         fixed bin(18)unsigned unal,
26 
27 /* word 4 */
28         3 cat_contin_sector_org         fixed bin(18)unsigned unal,
29         3 cat_contin_sector_dupl        fixed bin(18)unsigned unal,
30 
31 /* word 5 */
32       2 spec_perm_sector_org            fixed bin(18)unsigned unal,
33       2 spec_perm_sector_dupl           fixed bin(18)unsigned unal,
34 
35 /* words 6-7 */
36       2 catname                         bit(72),
37 
38 /* words 8-9 */
39       2 creator_name                    bit(72),
40 
41 /* words 10-11 */
42       2 password                        bit(72),           /* first word may be -1, then second word is timed pw sector #'s */
43 
44 /* word 12 */
45       2 create_date                     bit(36),
46 
47 /* word 13 */
48       2 modified_date                   bit(36),
49 
50 /* word 14 */
51       2 fms_junk                        bit(36),
52 
53 /* word 15 */
54       2 gen_perm,
55         3 perms                         bit(36),
56 
57 /* words 16-17 */
58       2 resv3 (2)                       fixed bin(35),        /* reserved */
59 
60 /* words 18-62 (15*3=45 words) */
61       2 entry (15),
62         3 name                          bit(72),
63         3 not_on_this_device            bit(1)unal, /* if ON unal, rest of word has different meaning */
64         3 entry_is_catalog              bit(1)unal,
65         3 description_llink_dupl        bit(16)unal,
66         3 description_sector_org        fixed bin(18)unsigned unal,
67 
68 /* word 63. */
69       2 cksm                            bit(36);
70 
71 /*   END INCLUDE FILE gfms_catrec_0.incl.pl1 */