/* BEGIN INCLUDE FILE ...   cobol_file_table.incl.pl1 */
/*     <<<   INCLUDE FILE FOR FILE TABLE IN COMMON   >>>     */

/* Modified on 09/30/80 by FCH, [4.4-1], density is 6250 is supported */
/* Modified on 12/05/78 by RAL, [3.0-3], added dupl_alt from dummy102 */
/* Modified on 11/21/78 by RAL, [3.0-2], added space for abs_record_offset from filler */
/* Modified on 10/26/78 by RAL, [3.0-1], added space for file_desc_1 table offset from filler */
/*     <<<   LAST MODIFIED ON 06-02-77 by GM         >>>	*/
/*     <<<   LAST MODIFIED ON 05-31-77 by GM         >>>	*/
/*     <<<   LAST MODIFIED  ON 06-30-76 by GM        >>>	*/
/*     <<<   LAST MODIFIED ON 06-07-76 by GM    >>>     */
/*     <<<   LAST MODIFIED ON 11-29-74 by orn   >>>     */

/*
A file table is created in variable common for each file selected in the
environment division.  The fields of a given file table provide information
about the specific file for which the file table is generated.  The
addresses which may be contained in the various "info" fields of the file
table are addresses in variable common.
*/

/*   THE FILE TABLE STRUCTURE   */

dcl	1 file_table based (ft_ptr),
		2 next char (5),
		2 ifn char (16),
		2 attach_options_info char(5),	/*06/02/77*/
		2 replacement_info char(5),		/*06/02/77*/
		2 file_id_info char(5),		/*05/31/77*/
		2 retention_info char(5),		/*05/31/77*/
		2 filler0 char (3) ,			/* [3.0-1] */
		2 file_desc_1_offset fixed bin (24),		/* [3.0-1] */
		2 abs_record_offset fixed bin (24),		/* [3.-02] */
		2 filler char(5),		/* this area is available.*/
		2 padding_char char (1),
		2 banner_char char (1),
		2 file_status_info char (5),
		2 extra_status_info char (5),
		2 cat_id_info char (5),
		2 r_key_info char (5),
		2 alt_key_info char (5),
		2 rec_do_info char (5),
		2 label_info char (5),
		2 data_info char (5),
		2 report_info char (5),
		2 linage_info char (5),
		2 optional bit (1),						/*06/07/76*/
		2 external bit (1),
		2 file_status bit (1),
		2 extra_status bit (1),
		2 sysin bit (1),
		2 sysout bit (1),
		2 move_mode bit (1),
		2 locate_mode bit (1),
		2 fixed_recs bit (1),
		2 variable_recs bit (1),
		2 spanned_recs bit (1),				/*06/07/76*/
		2 interchange bit (1),				/*06/07/76*/
		2 relative_key bit (1),
		2 record_key bit (1),
		2 even_parity bit (1),
		2 odd_parity bit (1),
		2 padding bit (1),
		2 banner bit (1),
		2 random bit (1),
		2 no_file_lockout bit (1),
		2 no_write_check bit (1),
		2 no_resident_index bit (1),
		2 same_file bit (1),
		2 sort_file bit (1),
		2 rec_do bit (1),
		2 linage bit (1),
		2 code_set_clause bit (1),
		/* history */
		2 close bit (1),
		2 delete bit (1),
		2 open_in bit (1),
		2 open_out bit (1),
		2 open_io bit (1),
		2 open_ext bit (1),
		2 read bit (1),
		2 release bit (1),
		2 return_bit bit (1),
		2 rewrite bit (1),
		2 sort bit (1),
		2 start bit (1),
		2 use_error bit (1),
		2 write bit (1),
		2 read_next bit (1),
		2 read_key bit (1),
		2 accept bit (1),
		2 display bit (1),
		2 unequal_recs bit (1),
		2 dummy_sysin bit (1),
		2 dummy_sysout bit (1),
		2 file_no fixed bin,
		2 uca_offset fixed bin(24),
		2 cra_seg fixed bin,
		2 cra_offset fixed bin(24),
		2 max_cra_size fixed bin(24),
		2 catalogued fixed bin,
		2 organization fixed bin,
		2 org_qual fixed bin,
		2 access fixed bin,
		2 buffers fixed bin,
		2 device fixed bin,
		2 record_prefix fixed bin,				/*06/07/76*/
		2 alternate_keys fixed bin,
		2 record_format fixed bin,
		2 label_format fixed bin,
		2 key_location fixed bin,
		2 key_size fixed bin,
		2 temporary fixed bin,
		2 address_format fixed bin,
		2 same_area_clause fixed bin,
		2 same_rec_clause fixed bin,
		2 same_sort_clause fixed bin,
		2 mult_clause_no fixed bin,
		2 mult_position_no fixed bin,
		2 block_desc fixed bin,
		2 block_min fixed bin(24),
		2 block_max fixed bin(24),
		2 rec_min fixed bin(24),
		2 rec_max fixed bin(24),
		2 label_count fixed bin,
		2 ifn_size fixed bin,
		2 data_count fixed bin,
		2 report_count fixed bin,
		2 code_set fixed bin,
		2 error_exit fixed bin,
		2 prefix_size fixed bin,
		2 blocked bit (1),
		2 variable bit (1),
		2 unbannered bit (1),
		2 prefix_clause bit (1),
		2 symbolic bit (1),
		2 address_format_bit bit (1),
		2 bsn bit(1),						/*06/07/76*/
		2 process_area bit(1),					/*06/07/76*/
		2 dupl_alt bit (1),			/* [3.0-3] */
		2 dummy102 bit (23),
		2 name_size fixed bin,
		2 name char(32),
		2 id char(32),
		2 temp bit(1) ,
		2 perm bit(1) ,
		2 attach bit(1) ,
		2 detach bit(1) ,
		2 fsb ,		/* file state block */
		     3 seg fixed bin(24), /* internal addr */
		     3 off fixed bin(24),
		2 tape,
		     3 density bit(1) ,	/* 0-hi 1-lo */
		     3 retain bit(1),	/* 0 not retained across attachment, 1 retained */
		     3 force bit(1),	/* 0 check retention date, 1 no check */
		     3 protect bit(1) ,	/* 0-no 1-yes */
		     3 den_6250 bit(1),	/* 0-no 1-yes */		/*[4.4-1]*/
		2 cat_nm char(200),
		2 ao_len fixed bin(24),		/* attach options */
		2 ao_string char(256),
		2 output_mode fixed bin,	/*	0 not specified
						1 generation
						2 modification
						3 replacement literal
						4 replacement dataname	*/
		2 om_len	fixed bin,		/* length of output mode */
		2 om_string char(17),
		2 tape_device fixed bin,	/*	0 not specified
						1 integer
						2 dataname	*/
		2 tape_device_num fixed bin,
		2 tape_device_key char(5),
		2 add_cat_key char(5);


/* END INCLUDE FILE ...   cobol_file_table.incl.pl1 */



*/
                                          -----------------------------------------------------------


Historical Background

This edition of the Multics software materials and documentation is provided and donated
to Massachusetts Institute of Technology by Group Bull including Bull HN Information Systems Inc. 
as a contribution to computer science knowledge.  
This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology,
Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell Bull Inc., Groupe Bull
and Bull HN Information Systems Inc. to the development of this operating system. 
Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970),
renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership
of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture for 
managing computer hardware properly and for executing programs. Many subsequent operating systems 
incorporated Multics principles.
Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., 
as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. .

                                          -----------------------------------------------------------

Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without
fee is hereby granted,provided that the below copyright notice and historical background appear in all copies
and that both the copyright notice and historical background and this permission notice appear in supporting
documentation, and that the names of MIT, HIS, Bull or Bull HN not be used in advertising or publicity pertaining
to distribution of the programs without specific prior written permission.
    Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc.
    Copyright 2006 by Bull HN Information Systems Inc.
    Copyright 2006 by Bull SAS
    All Rights Reserved

*/