/* BEGIN INCLUDE FILE ... cobol_shared_var.incl.pl1 */ 2 min_ptr ptr, 2 ft_ptr ptr, 2 skey_ptr ptr, 2 linage_ptr ptr, 2 fkey_ptr ptr, 2 rnt_ptr ptr, 2 modnt_ptr ptr, 2 ptr1 ptr, 2 save_ptr ptr, 2 save_ptr1 ptr, /*used only for cond value thru clause*/ 2 ptr3 ptr, 2 ptr2 ptr, 2 dn_ptr ptr, /*to type9 token, usually in wkbuf1*/ 2 w2_ptr ptr, /*to various tokens and records in wkbuf2*/ 2 cdtoken_ptr ptr, /* ptr to cd token */ 2 save_w2 ptr, 2 com2_ptr ptr, 2 cm_ptr ptr, 2 ptr5 ptr, 2 ptr4 ptr, 2 ptr_to_char_tbl ptr, 2 fd_clauses_ptr ptr, 2 nt_fno fixed bin(24), 2 temp_bin1 fixed bin(24), 2 temp_bin2 fixed bin(24), 2 offset_ct fixed bin(24), 2 save_offsets(49) fixed bin(24), 2 bnw fixed bin, /*indicates wkbuf1 contains unwritten type9*/ 2 nl fixed bin, 2 al fixed bin, 2 nsa_index fixed bin, 2 nsa_index_last_fd fixed bin, 2 nsa_work_index fixed bin, 2 name_string_index fixed bin, 2 ul fixed bin, 2 rnt_size fixed bin, 2 min_size_r fixed bin, 2 niv fixed bin, 2 aiv fixed bin, 2 odim fixed bin, 2 index_ct fixed bin, 2 sn fixed bin, 2 h fixed bin, 2 fh fixed bin, 2 hh fixed bin, 2 keycount fixed bin, 2 save_h fixed bin, 2 save_block_desc fixed bin, 2 save_block_min fixed bin, 2 save_block_max fixed bin, 2 save_record_min fixed bin, 2 save_record_max fixed bin, 2 save_line fixed bin, 2 save_line_for66 fixed bin, 2 save_occno fixed bin, 2 dnl fixed bin , 2 nt_size fixed bin, 2 cm_size fixed bin, 2 rdf_size fixed bin , 2 counter1 fixed bin , 2 counter2 fixed bin , 2 file_number fixed bin , 2 cd_index fixed bin, 2 cdno fixed bin, 2 save_cdo fixed bin, 2 rnm_obj12 fixed bin, 2 ixix fixed bin, 2 no_of_88s fixed bin, /*consecutive type11 tokens beginning at save_wkey*/ 2 ix_ino (50) fixed bin, 2 asc_des fixed bin, 2 next_level fixed bin, 2 save_level fixed bin, 2 rdf_level fixed bin, 2 save_column fixed bin, 2 cd_size(12) fixed bin, 2 nsa_name_index (256) fixed bin, 2 nsa_name_length (256) fixed bin, 2 name_string char(300), 2 transltble(256) char(1), 2 one_char_of_zero_bits char(1), 2 cd_name(12) char(32), 2 save_dname char(30), 2 ch_str char(128) varying, 2 rdf_tbl (49) char(30) varying, 2 stopper char(1), 2 cm_key char(5), 2 rnt_key char(5), 2 mod_key char(5), 2 w_key char(5), 2 rcm_key char(5), 2 save_fd char(5), 2 save_wkey char(5), 2 save_77 char(5), 2 save_01 char(5), 2 save_11 char(5), 2 rdf_01_sav char(5) , 2 save_01_for66 char(5), 2 prior_odo_rec char(5), 2 prior_obj_rec char(5), 2 prior_report_rec char(5), 2 prior_qual_rec char(5), 2 prior_occ_key char(5), 2 prior_linage_name_rec char(5), 2 prior_skey_rec char(5), 2 prior_rename_rec char(5), 2 prior_fkey_rec char(5), 2 ix_key (50) char(5), 2 fd_clauses bit(36), /*must be byte aligned*/ 2 cd_clauses bit(12), 2 mask1x bit(32), /*ba*/ 2 mask2x bit(32), /*ba*/ 2 mask3x bit(32), /*ba*/ 2 inftble (32) bit(8), /*ba*/ 2 prectble (32) bit(32), /*ba*/ 2 E_tbl bit(64), /*ba*/ 2 vector_part bit(128), /*ba*/ 2 nsa_lbl_rec (256) bit(1), /*ba*/ 2 nsa_cancelled (256) bit(1), 2 ll01 bit(1), 2 ll77 bit(1), 2 cd_initial bit(1), 2 min_eof bit(1), 2 csline bit(40), /*ba*/ 2 section_ind bit(8), /*ba*/ 2 sync_rdf bit(1), 2 sign_type_temp bit(3), 2 save_switch_88 bit(1), 2 pre_end_sw bit(1), 2 comp_end_sw bit(1), 2 qual_sw bit(1), 2 file_key_area(128) fixed bin(35), 2 prev_qual_key char(5), 2 common_key char(5), 2 com_status bit(32), 2 file_key_size fixed bin, 2 key_qual_size fixed bin, 2 label_field_num fixed bin, 2 tf fixed bin, 2 all_ind fixed bin, 2 file_ptr ptr, 2 work_ptr ptr, 2 qual_ptr ptr, 2 save_lev_line fixed bin, 2 save_lev_col fixed bin; /* END INCLUDE FILE ... cobol_shared_var.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 */