/* BEGIN INCLUDE FILE mrds_rst_rsc.incl.pl1 RDL 7/7/78 */ /* Modified 8/21/78 by RDL */ /* Modified 9/11/78 by RDL to add directive and stmt pointers */ /* Modified 11/4/78 by RDL to add debug,trace,meter switches Modified 3/29/79 by RDL to change s_seg_info_ptr to source_seg_ptr Modified by Jim Gray - - Jan. 1980, to add flags to disallow blocked files, forieng keys, and restructuring. Modified by Jim Gray - - Feb. 1980, to add command level flag for cmdb subroutine interface. Modified by Jim Gray - - 80-11-06, to add bit for cmdb -secure option. 81-05-18 Jim Gray : added bit for max_attributes error message, so that it would only be issued on first occurence. 82-08-19 Davids: added the db_type field. 83-02-18 Mike Kubicar : Removed the db_type field and added the db_relation_mode_flags substructure to define the modes applicable to the database's relations. Also removed assorted unsed fields (names that included the word unused). */ dcl 1 rsc based (rsc_ptr), /* Restructuring control info */ 2 rsc_dir char (200), /* pathname of directory containing rsc segment */ 2 dbp char (168), /* Database absolute path */ 2 temp_dir char (168), /* Path name of temp restrucuring directory */ 2 temp_dir_sw bit (1) unal, /* On => temp dir has been created */ 2 db_quiesced_sw bit (1) unal, /* On => database has been quiesced */ 2 o_db_open_sw bit (1) unal, /* On => old database has been opened */ 2 n_db_open_sw bit (1) unal, /* On => temp database is open */ 2 listing_seg_sw bit (1) unal, /* On => listing segment has been created */ 2 skip_scanner_conversion bit (1) unal, /* Skip conversion in scanner */ 2 cmdb_option bit (1) unal, /* ON => this is a cmdb source, not restructuring */ 2 trace_sw bit (1) unal, /* On -> trace mode in affect */ 2 debug_sw bit (1) unal, /* On = debug mode (NOT IMPLEMENTED) */ 2 meter_sw bit (1) unal, /* On = procedures call metering procedure */ 2 delete_db_sw bit (1) unal, /* On = delete data base in cleanup */ 2 model_consistent_sw bit (1) unal, /* On => Model is consistent */ 2 physical_started_sw bit (1) unal, /* On => Physical restructuring started */ 2 physical_complete_sw bit (1) unal, /* On => Physical restructuring completed */ 2 model_overflow bit (1) unal, /* ON => model segment area condition occurred */ 2 max_files bit (1) unal, /* ON => maximum number of files reached */ 2 allow_foreign_keys bit (1) unal, /* on => allow foreign key statment */ 2 foreign_key_seen bit (1) unal, /* on => foreign key definition in source */ 2 allow_blocked_files bit (1) unal, /* on => allow file statement with blocked option */ 2 blocked_file_seen bit (1) unal, /* on => blocked file definition in source */ 2 allow_restructuring bit (1) unal, /* on => allow RMDB entry point */ 2 command_level bit (1) unal, /* on => called from command unal, not subroutine level */ 2 secure bit (1) unal, /* on => -secure option given for cmdb */ 2 max_attrs bit (1) unal, /* on => max attrs/rel or max indexes/rel exceeded */ 2 db_relation_mode_flags, 3 dm_file_type bit (1) unal, /* on => relations are dm files */ 3 protection_on bit (1) unal, /* on => relations need transactions */ 3 concurrency_on bit (1) unal, /* on => concurrency control enabled */ 3 rollback_on bit (1) unal, /* on => before journalling is enabled */ 2 severity_high fixed bin, /* Highest severity level error encountered */ 2 phase fixed bin, /* 000 = init 100 = global list init 200 = parse 300 = physical init 400 = physical */ 2 h_o_seg_info_ls_ptr ptr, /* Pointer to head of old db seg_info list */ 2 h_n_seg_info_ls_ptr ptr, /* Pointer to head of new db seg_info list */ 2 h_gfile_ptr ptr, /* Pointer to head of global file list */ 2 h_gdom_ptr ptr, /* Pointer to head of global domain list */ 2 h_gattr_ptr ptr, /* Pointer to head of global attribute list */ 2 h_grel_ptr ptr, /* Pointer to head of global relation list */ 2 h_glink_ptr ptr, /* Pointer to head of global link list */ 2 o_dm_ptr ptr, /* Pointer to old data model seg (dm_model ) */ 2 n_dm_ptr ptr, /* Pointer to temp data model seg */ 2 o_fn_hdr_ptr ptr, /* Pointer to head of original file list (fn structure) */ 2 source_seg_ptr ptr, /* Pointer to source_seg */ 2 listing_iocb_ptr ptr, /* Pointer to listing segment iocb */ 2 directive_ptr ptr, /* Pointer to directive type str in mrds_rst_semactics.incl.pl1 */ 2 stmt_ptr ptr, /* Pointer to statement str in mrds_rst_sematics.incl.pl1 */ 2 trace_metering_iocb_ptr ptr, /* Pointer to seg used by trace and metering */ 2 tree_node_area_ptr ptr, /* pointer to working storage for tree nodes */ 2 tree_data, 3 seg_info_area_ptr ptr, /* seg info working storage area */ 3 gl_area_ptr ptr, /* global list data work storage area */ 3 sl_area_ptr ptr, /* sublist data work storage area */ 2 parse_info_area_ptr ptr, /* parse interface work area storage */ 2 static_info_area_ptr ptr, /* directive, stmt and other static work storage area */ 2 variable_length_area_ptr ptr, /* varibale allocates work storage area */ 2 other_area_ptr ptr, /* unspecified work area storage */ 2 wa area (sys_info$max_seg_size - fixed (rel (addr (rsc.wa))) + 1); /* Work area */ dcl rsc_ptr ptr; /* Pointer to base of rsc segment */ /* END INCLUDE FILE mrds_rst_rsc.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 */