1 /* BEGIN INCLUDE FILE gfms_catrec_6.incl.pl1 (MWilson) 26Aug79 */
 2 /* Change: Dave Ward          11/05/80 expanded llink counts. */
 3 
 4 dcl 1 gfms_catrec_6                     aligned based(cat_ptr),
 5 
 6 /* word 0 */
 7     2 type                              bit(06) unal,
 8     2 smc_section_no                    bit(05) unal,
 9     2 user_no                           bit(07) unal,
10     2 dupl_sector_no                    fixed bin(18)unsigned unal,
11 
12 /* word 1 */
13     2 next_sector_org_this_section      fixed bin(18)unsigned unal,
14     2 next_sector_dupl_this_section     fixed bin(18)unsigned unal,
15 
16 
17 /* words 2 - 61 */
18     2 smc_entry               (5),
19 
20       3 smc_name                        bit(72),
21 
22       3 umc_on_device                   bit(01)unal,
23       3 umc_llink                       fixed bin(17)unsigned unal,
24       3 umc_device                      bit(18) unal,
25 
26       3 dup_umc_ptr                     bit(36),
27 
28       3 space_time_product              fixed bin(35),
29 
30       3 llink_counts,
31         4 llinks_in_use                 fixed bin(18)unsigned unal,
32         4 llinks_allowed                fixed bin(18)unsigned unal,
33 
34       3 pad                             bit(09) unal,
35       3 catalog_llinks                  fixed bin(09)unsigned unal,
36       3 time_last_space_change          bit(18) unal,
37 
38       3 tss_resources                   fixed bin(18)unsigned unal,
39       3 smc_perms             unal,
40         4 allow_LODX                    bit(01)unal,
41         4 allow_CARDIN                  bit(01)unal,
42         4 allow_TALK                    bit(01)unal,
43         4 allow_LODS                    bit(01)unal,
44         4 SMC_update_not_by_TS                    bit(01)unal,
45         4 SMC_update_by_TS    bit(01)unal,
46       3 bcd_urgency                     bit(12) unal,
47 
48       3 password                        bit(72),
49 
50       3 pad1                            bit(36),
51 
52       3 pad2                            bit(10) unal,
53       3 tss_resources_used              fixed bin(26)unsigned unal,
54 
55 /* word 62 */
56     2 pad                               bit(36),
57 
58 /* word 63 */
59     2 cksm                              bit(36);
60 
61 /* END INCLUDE FILE gfms_catrec_6.incl.pl1 */