1 
  2 /* BEGIN INCLUDE FILE ...   cobol_file_table.incl.pl1 */
  3 /*     <<<   INCLUDE FILE FOR FILE TABLE IN COMMON   >>>     */
  4 
  5 /* Modified on 09/30/80 by FCH, [4.4-1], density is 6250 is supported */
  6 /* Modified on 12/05/78 by RAL, [3.0-3], added dupl_alt from dummy102 */
  7 /* Modified on 11/21/78 by RAL, [3.0-2], added space for abs_record_offset from filler */
  8 /* Modified on 10/26/78 by RAL, [3.0-1], added space for file_desc_1 table offset from filler */
  9 /*     <<<   LAST MODIFIED ON 06-02-77 by GM         >>>    */
 10 /*     <<<   LAST MODIFIED ON 05-31-77 by GM         >>>    */
 11 /*     <<<   LAST MODIFIED  ON 06-30-76 by GM        >>>    */
 12 /*     <<<   LAST MODIFIED ON 06-07-76 by GM    >>>     */
 13 /*     <<<   LAST MODIFIED ON 11-29-74 by orn   >>>     */
 14 
 15 /*
 16 A file table is created in variable common for each file selected in the
 17 environment division.  The fields of a given file table provide information
 18 about the specific file for which the file table is generated.  The
 19 addresses which may be contained in the various "info" fields of the file
 20 table are addresses in variable common.
 21 */
 22 
 23 /*   THE FILE TABLE STRUCTURE   */
 24 
 25 dcl       1 file_table based (ft_ptr),
 26                     2 next char (5),
 27                     2 ifn char (16),
 28                     2 attach_options_info char(5),          /*06/02/77*/
 29                     2 replacement_info char(5),             /*06/02/77*/
 30                     2 file_id_info char(5),                 /*05/31/77*/
 31                     2 retention_info char(5),               /*05/31/77*/
 32                     2 filler0 char (3) ,                              /* [3.0-1] */
 33                     2 file_desc_1_offset fixed bin (24),              /* [3.0-1] */
 34                     2 abs_record_offset fixed bin (24),               /* [3.-02] */
 35                     2 filler char(5),             /* this area is available.*/
 36                     2 padding_char char (1),
 37                     2 banner_char char (1),
 38                     2 file_status_info char (5),
 39                     2 extra_status_info char (5),
 40                     2 cat_id_info char (5),
 41                     2 r_key_info char (5),
 42                     2 alt_key_info char (5),
 43                     2 rec_do_info char (5),
 44                     2 label_info char (5),
 45                     2 data_info char (5),
 46                     2 report_info char (5),
 47                     2 linage_info char (5),
 48                     2 optional bit (1),                                                   /*06/07/76*/
 49                     2 external bit (1),
 50                     2 file_status bit (1),
 51                     2 extra_status bit (1),
 52                     2 sysin bit (1),
 53                     2 sysout bit (1),
 54                     2 move_mode bit (1),
 55                     2 locate_mode bit (1),
 56                     2 fixed_recs bit (1),
 57                     2 variable_recs bit (1),
 58                     2 spanned_recs bit (1),                                     /*06/07/76*/
 59                     2 interchange bit (1),                                      /*06/07/76*/
 60                     2 relative_key bit (1),
 61                     2 record_key bit (1),
 62                     2 even_parity bit (1),
 63                     2 odd_parity bit (1),
 64                     2 padding bit (1),
 65                     2 banner bit (1),
 66                     2 random bit (1),
 67                     2 no_file_lockout bit (1),
 68                     2 no_write_check bit (1),
 69                     2 no_resident_index bit (1),
 70                     2 same_file bit (1),
 71                     2 sort_file bit (1),
 72                     2 rec_do bit (1),
 73                     2 linage bit (1),
 74                     2 code_set_clause bit (1),
 75                     /* history */
 76                     2 close bit (1),
 77                     2 delete bit (1),
 78                     2 open_in bit (1),
 79                     2 open_out bit (1),
 80                     2 open_io bit (1),
 81                     2 open_ext bit (1),
 82                     2 read bit (1),
 83                     2 release bit (1),
 84                     2 return_bit bit (1),
 85                     2 rewrite bit (1),
 86                     2 sort bit (1),
 87                     2 start bit (1),
 88                     2 use_error bit (1),
 89                     2 write bit (1),
 90                     2 read_next bit (1),
 91                     2 read_key bit (1),
 92                     2 accept bit (1),
 93                     2 display bit (1),
 94                     2 unequal_recs bit (1),
 95                     2 dummy_sysin bit (1),
 96                     2 dummy_sysout bit (1),
 97                     2 file_no fixed bin,
 98                     2 uca_offset fixed bin(24),
 99                     2 cra_seg fixed bin,
100                     2 cra_offset fixed bin(24),
101                     2 max_cra_size fixed bin(24),
102                     2 catalogued fixed bin,
103                     2 organization fixed bin,
104                     2 org_qual fixed bin,
105                     2 access fixed bin,
106                     2 buffers fixed bin,
107                     2 device fixed bin,
108                     2 record_prefix fixed bin,                                  /*06/07/76*/
109                     2 alternate_keys fixed bin,
110                     2 record_format fixed bin,
111                     2 label_format fixed bin,
112                     2 key_location fixed bin,
113                     2 key_size fixed bin,
114                     2 temporary fixed bin,
115                     2 address_format fixed bin,
116                     2 same_area_clause fixed bin,
117                     2 same_rec_clause fixed bin,
118                     2 same_sort_clause fixed bin,
119                     2 mult_clause_no fixed bin,
120                     2 mult_position_no fixed bin,
121                     2 block_desc fixed bin,
122                     2 block_min fixed bin(24),
123                     2 block_max fixed bin(24),
124                     2 rec_min fixed bin(24),
125                     2 rec_max fixed bin(24),
126                     2 label_count fixed bin,
127                     2 ifn_size fixed bin,
128                     2 data_count fixed bin,
129                     2 report_count fixed bin,
130                     2 code_set fixed bin,
131                     2 error_exit fixed bin,
132                     2 prefix_size fixed bin,
133                     2 blocked bit (1),
134                     2 variable bit (1),
135                     2 unbannered bit (1),
136                     2 prefix_clause bit (1),
137                     2 symbolic bit (1),
138                     2 address_format_bit bit (1),
139                     2 bsn bit(1),                                                         /*06/07/76*/
140                     2 process_area bit(1),                                                /*06/07/76*/
141                     2 dupl_alt bit (1),                     /* [3.0-3] */
142                     2 dummy102 bit (23),
143                     2 name_size fixed bin,
144                     2 name char(32),
145                     2 id char(32),
146                     2 temp bit(1) ,
147                     2 perm bit(1) ,
148                     2 attach bit(1) ,
149                     2 detach bit(1) ,
150                     2 fsb ,             /* file state block */
151                          3 seg fixed bin(24), /* internal addr */
152                          3 off fixed bin(24),
153                     2 tape,
154                          3 density bit(1) ,       /* 0-hi 1-lo */
155                          3 retain bit(1),         /* 0 not retained across attachment, 1 retained */
156                          3 force bit(1),          /* 0 check retention date, 1 no check */
157                          3 protect bit(1) ,       /* 0-no 1-yes */
158                          3 den_6250 bit(1),       /* 0-no 1-yes */              /*[4.4-1]*/
159                     2 cat_nm char(200),
160                     2 ao_len fixed bin(24),                 /* attach options */
161                     2 ao_string char(256),
162                     2 output_mode fixed bin,      /*        0 not specified
163                                                             1 generation
164                                                             2 modification
165                                                             3 replacement literal
166                                                             4 replacement dataname        */
167                     2 om_len  fixed bin,                    /* length of output mode */
168                     2 om_string char(17),
169                     2 tape_device fixed bin,      /*        0 not specified
170                                                             1 integer
171                                                             2 dataname          */
172                     2 tape_device_num fixed bin,
173                     2 tape_device_key char(5),
174                     2 add_cat_key char(5);
175 
176 
177 /* END INCLUDE FILE ...   cobol_file_table.incl.pl1 */
178