1 /* BEGIN INCLUDE FILE gfms_catrec_2.incl.pl1   (Planalp Multics)  08/11/78 1517.9 mst Fri */
  2 /* Modified: Mel Wilson       December 1979, changed secto fixed bin(18)unsigned */
  3 /* Modified: Dave Ward        10/07/80 attribute overlay structures. */
  4 
  5 dcl 1 gfms_catrec_2                     aligned based (cat_ptr),
  6 
  7 /* word 0 */
  8       2 type                            bit(6)unal,                  /* =2 or 42 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 fildesc_contin_sector_org     fixed bin(18)unsigned unal,
 29         3 fildesc_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 filename                        bit(72),
 37 
 38 /* words 8-9 */
 39       2 creator_name                    bit(72),
 40 
 41 /* words 10-11 */
 42       2 password                        bit(72),           /* first wd may be -1, in which case 2nd wd is timed pw info */
 43 
 44 /* word 12 */
 45       2 create_date                     bit(36),
 46 
 47 /* word 13 */
 48       2 description_dlm                 bit(36),
 49 
 50 /* word 14 */
 51       2 fms_junk                        bit(36),
 52 
 53 /* word 15 */
 54       2 perm_catdup_seclock_maxsize,
 55         3 general_permissions           bit(12)unal,
 56         3 reserved                      bit(04)unal,
 57         3 catalog_duplication_requested bit(01)unal,
 58         3 security_lock_set             bit(01)unal,
 59         3 maximum_file_size             fixed bin(18)unsigned unal,   /* 0 => unlimited. */
 60 
 61 /* words 16-17 */
 62       2 SMC_name                        bit(72),
 63 
 64 /* word 18 */
 65       2 attr1                           bit(36),
 66 
 67 /* word 19 */
 68       2 attr2                           bit(36),
 69 
 70 /* word 20 */
 71       2 attr3                           bit(36),
 72 
 73 /* word 21 */
 74       2 attr4                           bit(36),
 75 
 76 /* word 22 */
 77       2 last_deallocated                bit(36),
 78 
 79 /* word 23 */
 80       2 last_allocation                 bit(36),
 81 
 82 /* word 24 */
 83       2 vol_data,
 84         3 vol_type                      bit(6)unal,
 85         3 vol_ser_no_last_save          bit(30)unal,
 86 
 87 /* word 25 */
 88       2 attr_sector_org                 fixed bin(18)unsigned unal,
 89       2 attr_sector_dupl                fixed bin(18)unsigned unal,
 90 
 91 /* word 26 */
 92       2 dupl_fildesc_sector_org         fixed bin(18)unsigned unal,
 93       2 dupl_fildesc_sector_dupl        fixed bin(18)unsigned unal,
 94 
 95 /* word 27 */
 96       2 monitor_fildesc_sector_orig     fixed bin(18)unsigned unal,
 97       2 monitor_fildesc_sector_dupl     fixed bin(18)unsigned unal,
 98 
 99 /* words 28-31 */
100       2 busy_stuff                      (4)fixed bin(35),
101 
102 /* words 32-35 */
103       2 tss_busy_stuff                  (4)fixed bin(35),
104 
105 /* words 36-61 */
106       2 structured_info                 (26)bit(36),
107 
108 /* word 62 */
109       2 whatever                        bit(36),
110 
111 /* word 63 */
112       2 cksm                            bit(36);
113 
114 /* From DC26 ???? page 4-11
115    Detail of word 18 (octal 22).
116 */
117 dcl 1 FS2FU1                            aligned based(addr(gfms_catrec_2.attr1))
118 ,     3 reserved1                       bit(1)unal
119 ,     3 random_file                     bit(1)unal
120 ,     3 ASCII_file                      bit(1)unal
121 ,     3 I_D_S_file                      bit(1)unal
122 ,     3 max_size_in_llinks              bit(1)unal
123 ,     3 file_on_nonstructured_vol       bit(1)unal
124 ,     3 reserved2                       bit(1)unal
125 ,     3 attributes_present              bit(1)unal
126 ,     3 user_specified_info_present     bit(1)unal
127 ,     3 user_specified_device_class_of_orig bit(1)unal
128 ,     3 concurrency                     fixed bin(2)unsigned unal     /* 0=normal 1=rww 2=mw 3=concurrent */
129 ,     3 user_specifide_device_class_code bit(6)unal
130 ,     3 number_allocations              fixed bin(18)unsigned unal
131 ;
132 
133 dcl 1 FS2USI                  aligned based(addr(gfms_catrec_2.attr2))
134 ,     3 file_written_to       bit(01)unal
135 ,     3 user_info_bits        bit(35)unal
136 ;
137 
138 /*   END INCLUDE FILE gfms_catrec_2.incl.pl1 */