nterrupt: I/O error.&B22 ZtapaRch+T,S@ @ioi_masked$interrupt: I/O error. B22 ZtapaV0ch,+Tݟ@ @ioi_masked$interrupt: I/O error.&B22 ZtapaBch+TEH@ @ioi_masked$interrupt: I/O error. B22 ZtapaRch +T[L@ @ioi_masked$interrupt: I/O error.& B22 ZtapaRcL+T[Sh@RCP: Detached tapa_00 from Backup.SysDaemon.zH+T]P@RCP: Errors (tapa_00, volume COM247) = 128n.L+T`f\x@RCP: Unassigned tapa_00 from Backup.SysDaemon.zH+TbKX@RCP: Assigned tapa_00 to Backup.SysDaemon.zoH+Tc}`@RCP: Attached tapa_00 for Backup.SysDaemon.zH+Tf=H@RCP: Note (tapa_00) - COM248,den=6250,sysn.z@`+Th`@RCP: Mount Reel COM248 with ring on tapa_00 for Backup.SysDaemon.zP+T@@ioi_masked$interrupt: I/O error.0B22 (tapaP+T@@ioi_masked$interrupt: I/O error.1B22 (tapaP+Tf@@ioi_masked$interrupt: I/O error.4B22 (BtapaT+T@RCP: Authenticate tapa_00. It has unreadable label .p.ST+T<@p@mos_memory_check: EDAC error on mem b store a.laT+Tچ@p@mos_memory_check: EDAC error on mem b store b.la^T+Tދ@x@mos_memory_check: EDAC error on mem b store b1.a^P+TX@@ioi_masked$interrupt: I/O error.B22 QtapaT+T@p@mos_memory_check: EDAC error on mem b store a.g~T+T@p@mos_memory_check: EDAC error on mem b store b.^T+T@x@mos_memory_check: EDAC error on mem b store b1.^h+TS<@ @ioi_masked$interrupt: I/O error.Ӂ B22 tapa0cŘT+T @p@mos_memory_check: EDAC error on mem b store a.T+T @p@mos_memory_check: EDAC error on mem b store b.^T+T &@x@mos_memory_check: EDAC error on mem b store b1.^P+T>@@ioi_masked$interrupt: I/O error. B22 tapaP+Tr@@ioi_masked$interrupt: I/O error.-B22 tapaP+T㳁@@ioi_masked$interrupt: I/O error. B22 tapaP+T &@@ioi_masked$interrupt: I/O error.-B22 tapaL+Th@RCP: Detached tapa_00 from Backup.SysDaemon.zL+T7x@RCP: Unassigned tapa_00 from Backup.SysDaemon.zH+T߄X@RCP: Assigned tapa_00 to Backup.SysDaemon.zoH+TA`@RCP: Attached tapa_00 for Backup.SysDaemon.zH+TH@RCP: Note (tapa_00) - COM249,den=6250,sysn.z@`+T@RCP: Mount Reel COM249 with ring on tapa_00 for Backup.SysDaemon.zT+Tw@p@mos_memory_check: EDAC error on mem b store a.r T+T{@p@mos_memory_check: EDAC error on mem b store b.r ^T+T@x@mos_memory_check: EDAC error on mem b store b1. ^P+T]p@@ioi_masked$interrupt: I/O error.0B22 (tapaP+T@@ioi_masked$interrupt: I/O error.1B22 (tapaP+T/@@ioi_masked$interrupt: I/O error.4B22 (BtapaP+TR@@ioi_masked$interrupt: I/O error.B22 QtapaT+T{@p@mos_memory_cin (35)); 84 dcl get_dm_free_area_ entry () returns (ptr); 85 dcl sub_err_ entry options (variable); 86 87 /* External */ 88 89 dcl ( 90 dm_error_$ci_not_allocated, 91 dm_error_$ci_not_in_collection, 92 dm_error_$misformatted_ci, 93 dm_error_$no_element, 94 dm_error_$no_opening, 95 sys_info$max_seg_size 96 ) fixed bin (35) external; 97 98 /* Static */ 99 100 dcl static_opening_table_ptr 101 ptr init (null) internal static; 102 dcl dm_work_area_ptr ptr init (null) internal static; 103 104 /* END OF DECLARATIONS */ 105 106 /* format: ^indblkcom,indcomtxt */ 107 108 p_code = 0; 109 p_record_collection_opening_info_ptr = null; 110 111 current_transaction_id = CURRENT_TRANSACTION_ID (); 112 current_rollback_count = CURRENT_ROLLBACK_COUNT (); 113 114 if static_opening_table_ptr = null 115 then 116 do; 117 118 /*** The record_manager_ has not set up an opening table for this process yet. Do so. */ 119 120 init, refresh = "1"b; 121 122 call opening_manager_$init (NUMBER_OF_BUCKETS, static_opening_table_ptr, p_code); 123 if p_code ^= 0 124 then return; 125 end; 126 else 127 do; 128 129 /*** The record_manager_ opening table is already set up, so get the 130* record_collection_opening_info_ptr if one has been set up for this collection. */ 131 132 call 133 opening_manager_$get_opening (static_opening_table_ptr, (p_file_opening_id || p_collection_id), 134 record_collection_opening_info_ptr, p_code); 135 if p_code ^= 0 136 then if p_code ^= dm_error_$no_opening 137 then return; /* This should not happen. */ 138 else 139 do; 140 141 /*** No opening information exists yet for this record collection. Setup the opening information. */ 142 143 refresh, init = "1"b; 144 end; 145 else 146 do; 147 148 /*** A record_collection_opening_info structure is already set up. Verify 149* the structure and test to see if that information can be trusted. */ 150 151 call 152 CHECK_VERSION_CHAR_8 (record_collection_opening_info.version, 153 RECORD_COLLECTION_OPENING_INFO_VERSION_1, "record_collection_opening_info"); 154 155 if record_collection_opening_info.current_transaction_id ^= current_transaction_id 156 then refresh = "1"b; 157 else if record_collection_opening_info.current_rollback_count ^= current_rollback_count 158 then refresh = "1"b; 159 else if record_collection_opening_info.field_table_ptr = null 160 then refresh = "1"b; 161 end; 162 end; 163 164 if refresh 165 then 166 REFRESH: 167 do; 168 169 /*** Record collection information must be retrieved from the file, either 170* because a new transaction requires refreshing the old info or because this 171* is the first time the information is retrieved. */ 172 173 if dm_work_area_ptr = null 174 then dm_work_area_ptr = get_dm_free_area_ (); 175 176 field_table_ptr = null; 177 178 on cleanup call FINISH (); 179 180 if init 181 then 182 do; 183 alloc record_collection_opening_info in (dm_work_area); 184 record_collection_opening_info.file_opening_id = p_file_opening_id; 185 record_collection_opening_info.collection_id = p_collection_id; 186 end; 187 188 field_table_buffer_ptr = record_collection_opening_info.field_table_ptr; 189 if field_table_buffer_ptr ^= null 190 then 191 do; 192 call 193 CHECK_VERSION_CHAR_8 (field_table_buffer_ptr -> field_table.version, FIELD_TABLE_VERSION_3, 194 "field_table"); 195 field_table_buffer_length = currentsize (field_table_buffer_ptr -> field_table) * BITS_PER_WORD; 196 end; 197 198 call 199 collection_manager_$get_header (p_file_opening_id, p_collection_id, addr (local_rc_header), 200 length (unspec (local_rc_header)), null, "0"b, record_collection_header_ptr, (0), p_code); 201 if p_code ^= 0 202 then call ERROR_RETURN (); 203 204 call 205 CHECK_VERSION_CHAR_8 (record_collection_header.version, RECORD_COLLECTION_HEADER_VERSION_2, 206 "record_collection_header"); 207 208 call 209 collection_manager_$get (p_file_opening_id, HEADER_COLLECTION_ID, 210 record_collection_header.field_table_element_id, 0, field_table_buffer_ptr, field_table_buffer_length, 211 dm_work_area_ptr, new_buffer_was_allocated, field_table_ptr, (0), p_code); 212 if p_code ^= 0 213 then if p_code = dm_error_$no_element 214 then call REPORT_FIELD_TABLE_RETRIEVAL_ERROR (); 215 else if p_code = dm_error_$ci_not_allocated 216 then call REPORT_FIELD_TABLE_RETRIEVAL_ERROR (); 217 else if p_code = dm_error_$ci_not_in_collection 218 then call REPORT_FIELD_TABLE_RETRIEVAL_ERROR (); 219 else if p_code = dm_error_$misformatted_ci 220 then call REPORT_FIELD_TABLE_RETRIEVAL_ERROR (); 221 222 call CHECK_VERSION_CHAR_8 (field_table.version, FIELD_TABLE_VERSION_3, "field_table"); 223 224 225 record_collection_opening_info.current_transaction_id = current_transaction_id; 226 record_collection_opening_info.current_rollback_count = current_rollback_count; 227 228 if init 229 then call 230 opening_manager_$put_opening (static_opening_table_ptr, (p_file_opening_id || p_collection_id), 231 record_collection_opening_info_ptr, p_code); 232 if p_code ^= 0 233 then call ERROR_RETURN (); 234 else record_collection_opening_info.field_table_ptr = field_table_ptr; 235 236 end REFRESH; 237 238 if p_code = 0 239 then p_record_collection_opening_info_ptr = record_collection_opening_info_ptr; 240 241 call FINISH (); 242 243 MAIN_RETURN: 244 return; 245 246 opening_table_ptr: 247 entry () returns (ptr); 248 249 return (static_opening_table_ptr); 250 251 FINISH: 252 proc (); 253 254 if new_buffer_was_allocated 255 then 256 do; 257 if p_record_collection_opening_info_ptr = null 258 then /* Operation was unsuccessful. */ 259 if field_table_ptr ^= null 260 then free field_table in (dm_work_area); 261 else ; 262 else /* Operation was successful. */ 263 if field_table_buffer_ptr ^= null 264 then free field_table_buffer_ptr -> field_table in (dm_work_area); 265 else ; 266 end; 267 268 if init 269 then 270 do; 271 if p_record_collection_opening_info_ptr = null 272 then /* Operation was unsuccessful. */ 273 if record_collection_opening_info_ptr ^= null 274 then free record_collection_opening_info in (dm_work_area); 275 end; 276 277 end FINISH; 278 279 280 ERROR_RETURN: 281 proc (); 282 283 call FINISH (); 284 goto MAIN_RETURN; 285 286 end ERROR_RETURN; 287 288 289 REPORT_FIELD_TABLE_RETRIEVAL_ERROR: 290 proc (); 291 292 call 293 sub_err_ (p_code, myname, ACTION_CANT_RESTART, null, 0, 294 "^/The field_table for record collection ^3bo could not be retrieved.", p_collection_id); 295 296 end REPORT_FIELD_TABLE_RETRIEVAL_ERROR; 297 298 CHECK_VERSION_CHAR_8: 299 proc (p_given_version, p_correct_version, p_structure_name); 300 301 dcl p_structure_name char (*); 302 dcl p_given_version char (8) aligned; 303 dcl p_correct_version char (8) aligned; 304 dcl sub_err_ entry () options (variable); 305 dcl error_table_$unimplemented_version 306 ext fixed bin (35); 307 308 if p_given_version ^= p_correct_version 309 then call 310 sub_err_ (error_table_$unimplemented_version, myname, "s", null, 0, 311 "^/Expected version ""^8a"" of ^a structure; received ""^8a"".", p_correct_version, p_structure_name, 312 p_given_version); 313 314 return; 315 316 end CHECK_VERSION_CHAR_8; 317 318 CURRENT_TRANSACTION_ID: 319 proc () returns (bit (36) aligned); 320 321 dcl p_transaction_id bit (36) aligned init ("0"b); 322 dcl transaction_manager_$get_current_txn_id 323 entry (bit (36) aligned, fixed bin (35)); 324 325 call transaction_manager_$get_current_txn_id (p_transaction_id, (0)); 326 327 return (p_transaction_id); 328 329 end CURRENT_TRANSACTION_ID; 330 331 332 CURRENT_ROLLBACK_COUNT: 333 proc () returns (fixed bin (35)); 334 335 return (0); 336 337 end CURRENT_ROLLBACK_COUNT; 338 1 1 /* BEGIN INCLUDE FILE dm_rcm_opening_info.incl.pl1 */ 1 2 1 3 /* HISTORY: 1 4*Written by Matthew Pierret, 03/15/83. 1 5*Modified: 1 6*07/28/83 by Matthew Pierret: Changed name from dm_rm_opening_info.incl.pl1 to 1 7* dm_rcm_opening_info.incl.pl1. 1 8**/ 1 9 1 10 /* format: style2,ind3 */ 1 11 dcl 1 record_collection_opening_info 1 12 aligned based (record_collection_opening_info_ptr), 1 13 2 version char (8) aligned init (RECORD_COLLECTION_OPENING_INFO_VERSION_1), 1 14 2 current_transaction_id 1 15 bit (36) aligned init ("0"b), 1 16 2 current_rollback_count 1 17 fixed bin (35) init (0), 1 18 2 file_opening_id bit (36) aligned init ("0"b), 1 19 2 collection_id bit (36) aligned init ("0"b), 1 20 2 field_table_ptr ptr init (null); 1 21 1 22 dcl record_collection_opening_info_ptr 1 23 ptr init (null); 1 24 dcl RECORD_COLLECTION_OPENING_INFO_VERSION_1 1 25 char (8) aligned init ("rc_open1") internal static options (constant); 1 26 1 27 /* BEGIN INCLUDE FILE dm_rcm_opening_info.incl.pl1 */ 339 340 2 1 /* BEGIN INCLUDE FILE - dm_rcm_header.incl.pl1 */ 2 2 2 3 /* DESCRIPTION: 2 4**/ 2 5 2 6 /* HISTORY: 2 7*Written by Matthew Pierret, 05/01/82. 2 8*Modified: 2 9*03/15/83 by Matthew Pierret: Changed to use char(8) version. 2 10*07/28/83 by Matthew Pierret: Changed name from dm_rm_header.incl.pl1 to 2 11* dm_rcm_header.incl.pl1. 2 12**/ 2 13 2 14 /* format: style2 */ 2 15 dcl 1 record_collection_header 2 16 aligned based (record_collection_header_ptr), 2 17 2 version char (8) init (RECORD_COLLECTION_HEADER_VERSION_2), 2 18 2 field_table_element_id 2 19 bit (36) aligned init ("0"b); 2 20 2 21 dcl record_collection_header_ptr 2 22 ptr init (null); 2 23 dcl RECORD_COLLECTION_HEADER_VERSION_2 2 24 char (8) aligned init ("rc_hdr_2") internal static options (constant); 2 25 2 26 /* END INCLUDE FILE - dm_rcm_header.incl.pl1 */ 341 342 3 1 /* ********** BEGIN INCLUDE FILE dm_field_table.incl.pl1 ********** */ 3 2 3 3 /* DESCRIPTION: 3 4* 3 5* The field_table describes the layout of a set of fields in a 3 6* formatted data string. Such a string is the stored representation of a 3 7* record or a key. Fields are placed side-by-side in the string in the 3 8* order they appear in the field_table.field array. The string is divided 3 9* into the fixed portion and the varying portion. In the fixed portion 3 10* appear fixed-length fields and fixed-size length-fields for 3 11* varying-length fields. In the varying portion appear varying length 3 12* fields. The length-field for a varying-length field contains the length 3 13* of the field values either in bits or in characters, depending on the 3 14* data type of the field. 3 15**/ 3 16 3 17 /* HISTORY: 3 18*Written by Matthew Pierret, 04/01/82. 3 19*Modified: 3 20*04/20/82 by Matthew Pierret: Added length_is_in_characters, meaning, if on, 3 21* that if the field is varying, its length is expressed in 3 22* bytes/characters. 3 23*03/22/83 by Lindsey Spratt: Changed lofvf to have a precision of 35 instead 3 24* of 17, changed version to 2, changed version field to char(8) from 3 25* fixed bin (17). 3 26*05/01/84 by Matthew Pierret: Changed version to 3. Removed field.name and 3 27* put field names in one string (field_names) at the end of the 3 28* structure. Added field.location_of_name and field.length_of_name 3 29* for locating the field name in field_names. Aligned all "fixed bin" 3 30* structure elements. Changed maximum_field_name_length to 3 31* length_of_field_names. 3 32**/ 3 33 3 34 /* format: style2 */ 3 35 3 36 dcl 1 field_table aligned based (field_table_ptr), 3 37 2 version char (8) aligned init (FIELD_TABLE_VERSION_3), 3 38 2 number_of_fields fixed bin (17), 3 39 2 length_of_field_names 3 40 fixed bin (17), /* length of field_names in characters */ 3 41 2 location_of_first_varying_field 3 42 fixed bin (35), /* location of first bit in the varying portion of the formatted string */ 3 43 2 field (ft_number_of_fields refer (field_table.number_of_fields)), 3 44 3 flags aligned, 3 45 4 descriptor_is_varying 3 46 bit (1) unal, /* if on, the descriptor is not limited to the standard 36 bits */ 3 47 /* and is stored in a stand-alone fashion, with field.descriptor */ 3 48 /* containing the id of the element in which the descriptor is stored. */ 3 49 4 length_is_in_characters 3 50 bit (1) unal, /* if field is varying, the length field describes its length */ 3 51 /* in characters instead of in bits */ 3 52 4 must_be_zero bit (34) unal, 3 53 3 descriptor bit (36) aligned, 3 54 3 location fixed bin (35), /* location of first bit of field in formatted string */ 3 55 3 length_in_bits fixed bin (35), /* length of field in bits */ 3 56 3 location_of_name fixed bin (17), /* location of first character of field name in field_names */ 3 57 3 length_of_name fixed bin (17), /* length of name in characters */ 3 58 2 varying_field_map (ft_number_of_fields refer (field_table.number_of_fields)), 3 59 3 field_id fixed bin (17), /* field_id of Nth varying field */ 3 60 3 varying_field_index 3 61 fixed bin (17), /* ordinality among varying fields of field N */ 3 62 2 field_names char (ft_length_of_field_names refer (field_table.length_of_field_names)); 3 63 3 64 3 65 dcl field_table_ptr ptr; 3 66 dcl ft_length_of_field_names 3 67 fixed bin; 3 68 dcl ft_number_of_fields fixed bin; 3 69 dcl FIELD_TABLE_VERSION_3 char (8) aligned init ("FldTbl 3") internal static options (constant); 3 70 3 71 dcl field_name char (field_name_length) based (field_name_ptr); 3 72 3 73 dcl field_name_length fixed bin; 3 74 dcl field_name_ptr ptr; 3 75 3 76 /* END INCLUDE FILE dm_field_table.incl.pl1 */ 343 344 4 1 /* BEGIN INCLUDE FILE - dm_hdr_collection_id.incl.pl1 */ 4 2 4 3 /* DESCRIPTION: 4 4* 4 5* Contains the identifier of the Header Collection for a file 4 6* managed by the collection_manager_. This is used by callers of 4 7* collection_manager who wish to maintain their own file header or who wish 4 8* to maintain their own collection header information beyond the caller 4 9* collection header provided by colleciton_manager_$(get put)_header. 4 10**/ 4 11 4 12 /* HISTORY: 4 13*Written by Matthew Pierret, 09/24/84. 4 14*Modified: 4 15**/ 4 16 4 17 /* format: style2,ind3,ll79 */ 4 18 4 19 dcl HEADER_COLLECTION_ID init ("000000000001"b3) bit (36) 4 20 aligned internal static options (constant); 4 21 4 22 /* END INCLUDE FILE - dm_hdr_collection_id.incl.pl1 */ 345 346 5 1 /* BEGIN INCLUDE FILE sub_err_flags.incl.pl1 BIM 11/81 */ 5 2 /* format: style3 */ 5 3 5 4 /* These constants are to be used for the flags argument of sub_err_ */ 5 5 /* They are just "string (condition_info_header.action_flags)" */ 5 6 5 7 declare ( 5 8 ACTION_CAN_RESTART init (""b), 5 9 ACTION_CANT_RESTART init ("1"b), 5 10 ACTION_DEFAULT_RESTART 5 11 init ("01"b), 5 12 ACTION_QUIET_RESTART 5 13 init ("001"b), 5 14 ACTION_SUPPORT_SIGNAL 5 15 init ("0001"b) 5 16 ) bit (36) aligned internal static options (constant); 5 17 5 18 /* End include file */ 347 348 6 1 /* BEGIN INCLUDE FILE dm_collmgr_entry_dcls.incl.pl1 */ 6 2 6 3 /* DESCRIPTION: 6 4* This include file contains declarations of all collection_manager_ 6 5* entrypoints. 6 6**/ 6 7 6 8 /* HISTORY: 6 9*Written by Matthew Pierret 6 10*Modified: 6 11*04/14/82 by Lindsey Spratt: Changed the control_interval_id parameter of the 6 12* allocate_control_interval operation to be unaligned, as well as 6 13* unsigned. 6 14*06/17/82 by Matthew Pierret: Added the put_element_portion opertion and 6 15* removed the beginning_location parameter from the put_element 6 16* operation. Added the create_page_file_operation. 6 17*08/09/82 by Matthew Pierret: Changed "fixed bin (17)"s to "bit (36) aligned"s 6 18* wherever collection_id was required. 6 19* Also changed the control_interval_id parameter of the 6 20* allocate_control_interval operation back to be aligned. So there. 6 21*10/20/82 by Matthew Pierret: Changed $create_page_file to $create_file, 6 22* added the argument file_create_info_ptr to $create_file. 6 23*12/13/82 by Lindsey Spratt: Corrected $free_control_interval to 6 24* include the zero_on_free bit. 6 25*12/17/82 by Matthew Pierret: Added cm_$get_id. 6 26*01/07/83 by Matthew Pierret: Added cm_$put_element_buffered, 6 27* cm_$allocate_element_buffered, cm_$free_element_buffered. 6 28*04/27/83 by Matthew Pierret: Added cm_$put_unprotected_element, 6 29* cm_$put_unprotected_header. 6 30*11/07/83 by Matthew Pierret: Added $get_element_portion_buffered, 6 31* $simple_get_buffered_element. 6 32*02/08/84 by Matthew Pierret: Changed $get_id to have only one bit(1)aligned 6 33* parameter for specifying absolute/relative nature of search. 6 34*03/16/84 by Matthew Pierret: Added cm_$get_control_interval_ptr, 6 35* $get_element_ptr, $get_element_portion_ptr, $simple_get_element_ptr 6 36*04/03/84 by Matthew Pierret: Added cm_$compact_control_interval. 6 37*06/06/84 by Matthew Pierret: Re-named free_element* to delete and 6 38* delete_from_ci_buffer. 6 39* Re-named *_buffered_ci to =_ci_buffer. 6 40* get entries. 6 41* modify entries. 6 42* Changed calling sequence of modify entries to have a ptr/length 6 43* instead of length/ptr parameter pair. 6 44*03/11/85 by R. Michael Tague: Added $postcommit_increments. 6 45**/ 6 46 6 47 /* This include file contains declarations of collection_manager_ entrypoints */ 6 48 6 49 /* format: style2,ind3 */ 6 50 dcl collection_manager_$allocate_control_interval 6 51 entry (bit (36) aligned, bit (36) aligned, fixed bin (24) unsigned, fixed bin (35)); 6 52 dcl collection_manager_$compact_control_interval 6 53 entry (bit (36) aligned, fixed bin (24) uns, fixed bin (35)); 6 54 dcl collection_manager_$create_collection 6 55 entry (bit (36) aligned, ptr, ptr, bit (36) aligned, fixed bin (35)); 6 56 dcl collection_manager_$create_file 6 57 entry (char (*), char (*), ptr, bit (36) aligned, fixed bin (35)); 6 58 dcl collection_manager_$destroy_collection 6 59 entry (bit (36) aligned, bit (36) aligned, fixed bin (35)); 6 60 dcl collection_manager_$free_control_interval 6 61 entry (bit (36) aligned, bit (36) aligned, fixed bin (24) unsigned, bit (1) aligned, 6 62 fixed bin (35)); 6 63 6 64 dcl collection_manager_$delete 6 65 entry (bit (36) aligned, bit (36) aligned, bit (36) aligned, bit (1) aligned, 6 66 fixed bin (35)); 6 67 dcl collection_manager_$delete_from_ci_buffer 6 68 entry (ptr, bit (36) aligned, bit (36) aligned, bit (36) aligned, bit (1) aligned, 6 69 fixed bin (35)); 6 70 6 71 dcl collection_manager_$get 6 72 entry (bit (36) aligned, bit (36) aligned, bit (36) aligned, fixed bin (17), ptr, 6 73 fixed bin (35), ptr, bit (1) aligned, ptr, fixed bin (35), fixed bin (35)); 6 74 dcl collection_manager_$get_control_interval_ptr 6 75 entry (bit (36) aligned, bit (36) aligned, fixed bin (24) unsigned, ptr, 6 76 fixed bin (35)); 6 77 dcl collection_manager_$get_from_ci_buffer 6 78 entry (ptr, bit (36) aligned, bit (36) aligned, bit (36) aligned, ptr, fixed bin (35), 6 79 ptr, bit (1) aligned, ptr, fixed bin (35), fixed bin (35)); 6 80 dcl collection_manager_$get_by_ci_ptr 6 81 entry (ptr, bit (36) aligned, bit (36) aligned, bit (36) aligned, fixed bin, ptr, 6 82 fixed bin (35), ptr, bit (1) aligned, ptr, fixed bin (35), ptr, fixed bin (35)); 6 83 dcl collection_manager_$get_header 6 84 entry (bit (36) aligned, bit (36) aligned, ptr, fixed bin (17), ptr, bit (1) aligned, 6 85 ptr, fixed bin (35), fixed bin (35)); 6 86 dcl collection_manager_$get_id 6 87 entry (bit (36) aligned, bit (36) aligned, bit (36) aligned, fixed bin (17), 6 88 bit (1) aligned, bit (36) aligned, fixed bin (35)); 6 89 dcl collection_manager_$get_portion 6 90 entry (bit (36) aligned, bit (36) aligned, bit (36) aligned, fixed bin, ptr, 6 91 fixed bin (35), ptr, fixed bin (35), fixed bin (35), bit (1) aligned, ptr, 6 92 fixed bin (35), fixed bin (35)); 6 93 dcl collection_manager_$get_portion_from_ci_buffer 6 94 entry (ptr, bit (36) aligned, bit (36) aligned, bit (36) aligned, ptr, fixed bin (35), 6 95 ptr, fixed bin (35), fixed bin (35), bit (1) aligned, ptr, fixed bin (35), 6 96 fixed bin (35)); 6 97 dcl collection_manager_$get_portion_by_ci_ptr 6 98 entry (ptr, bit (36) aligned, bit (36) aligned, bit (36) aligned, ptr, fixed bin (35), 6 99 ptr, fixed bin (35), fixed bin (35), bit (1) aligned, ptr, fixed bin (35), 6 100 fixed bin (35)); 6 101 dcl collection_manager_$modify 6 102 entry (bit (36) aligned, bit (36) aligned, ptr, fixed bin (35), bit (36) aligned, 6 103 fixed bin (35), fixed bin (35)); 6 104 dcl collection_manager_$modify_unprotected 6 105 entry (bit (36) aligned, bit (36) aligned, ptr, fixed bin (35), bit (36) aligned, 6 106 fixed bin (35), fixed bin (35)); 6 107 dcl collection_manager_$modify_in_ci_buffer 6 108 entry (ptr, bit (36) aligned, bit (36) aligned, ptr, fixed bin (35), bit (36) aligned, 6 109 fixed bin (35), fixed bin (35)); 6 110 dcl collection_manager_$modify_portion 6 111 entry (bit (36) aligned, bit (36) aligned, fixed bin (35), fixed bin (35), ptr, 6 112 fixed bin (35), bit (36) aligned, fixed bin (35), fixed bin (35)); 6 113 dcl collection_manager_$postcommit_increments 6 114 entry (bit (36) aligned, bit (36) aligned, bit (36) aligned, ptr, fixed bin (35)); 6 115 dcl collection_manager_$put 6 116 entry (bit (36) aligned, bit (36) aligned, ptr, fixed bin (35), bit (36) aligned, 6 117 fixed bin (35), fixed bin (35)); 6 118 dcl collection_manager_$put_in_ci_buffer 6 119 entry (ptr, bit (36) aligned, bit (36) aligned, ptr, fixed bin (35), bit (36) aligned, 6 120 fixed bin (35), fixed bin (35)); 6 121 dcl collection_manager_$put_header 6 122 entry (bit (36) aligned, bit (36) aligned, ptr, fixed bin (35), fixed bin (35)); 6 123 dcl collection_manager_$put_unprotected_header 6 124 entry (bit (36) aligned, bit (36) aligned, ptr, fixed bin (35), fixed bin (35)); 6 125 6 126 dcl collection_manager_$replace_ci_buffer 6 127 entry (bit (36) aligned, bit (36) aligned, fixed bin (24) uns, ptr, fixed bin (35), 6 128 fixed bin (35)); 6 129 dcl collection_manager_$setup_ci_buffer 6 130 entry (bit (36) aligned, bit (36) aligned, fixed bin (24) uns, ptr, fixed bin (35), 6 131 fixed bin (35)); 6 132 dcl collection_manager_$simple_get_by_ci_ptr 6 133 entry (ptr, bit (36) aligned, bit (36) aligned, ptr, fixed bin (35), fixed bin (35), 6 134 fixed bin (35)); 6 135 dcl collection_manager_$simple_get_from_ci_buffer 6 136 entry (ptr, bit (36) aligned, bit (36) aligned, ptr, fixed bin (35), fixed bin (35), 6 137 fixed bin (35)); 6 138 6 139 /* END INCLUDE FILE dm_collmgr_entry_dcls.incl.pl1 */ 349 350 351 end rcm_get_opening_info; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 04/04/85 0913.7 rcm_get_opening_info.pl1 >spec>on>7192.pbf-04/04/85>rcm_get_opening_info.pl1 339 1 01/07/85 0859.4 dm_rcm_opening_info.incl.pl1 >ldd>include>dm_rcm_opening_info.incl.pl1 341 2 01/07/85 0901.6 dm_rcm_header.incl.pl1 >ldd>include>dm_rcm_header.incl.pl1 343 3 01/07/85 0858.8 dm_field_table.incl.pl1 >ldd>include>dm_field_table.incl.pl1 345 4 01/07/85 0858.8 dm_hdr_collection_id.incl.pl1 >ldd>include>dm_hdr_collection_id.incl.pl1 347 5 04/16/82 0958.1 sub_err_flags.incl.pl1 >ldd>include>sub_err_flags.incl.pl1 349 6 04/04/85 0819.0 dm_collmgr_entry_dcls.incl.pl1 >spec>on>7192.pbf-04/04/85>dm_collmgr_entry_dcls.incl.pl1 NAMES DECLARED IN THIS COMPILATION. IDENTIFIER OFFSET LOC STORAGE CLASS DATA TYPE ATTRIBUTES AND REFERENCES (* indicates a set context) NAMES DECLARED BY DECLARE STATEMENT. ACTION_CANT_RESTART 000031 constant bit(36) initial dcl 5-7 set ref 292* BITS_PER_WORD constant fixed bin(17,0) initial dcl 72 ref 195 FIELD_TABLE_VERSION_3 000000 constant char(8) initial dcl 3-69 set ref 192* 222* HEADER_COLLECTION_ID 000033 constant bit(36) initial dcl 4-19 set ref 208* NUMBER_OF_BUCKETS 000006 constant fixed bin(17,0) initial dcl 72 set ref 122* RECORD_COLLECTION_HEADER_VERSION_2 000002 constant char(8) initial dcl 2-23 set ref 47 204* RECORD_COLLECTION_OPENING_INFO_VERSION_1 000004 constant char(8) initial dcl 1-24 set ref 151* 183 addr builtin function dcl 62 ref 198 198 cleanup 000114 stack reference condition dcl 67 ref 178 collection_id 5 based bit(36) initial level 2 dcl 1-11 set ref 183* 185* collection_manager_$get 000040 constant entry external dcl 6-71 ref 208 collection_manager_$get_header 000042 constant entry external dcl 6-83 ref 198 current_rollback_count 3 based fixed bin(35,0) initial level 2 in structure "record_collection_opening_info" dcl 1-11 in procedure "rcm_get_opening_info" set ref 157 183* 226* current_rollback_count 000107 automatic fixed bin(35,0) dcl 51 in procedure "rcm_get_opening_info" set ref 112* 157 226 current_transaction_id 2 based bit(36) initial level 2 in structure "record_collection_opening_info" dcl 1-11 in procedure "rcm_get_opening_info" set ref 155 183* 225* current_transaction_id 000106 automatic bit(36) dcl 50 in procedure "rcm_get_opening_info" set ref 111* 155 225 dm_error_$ci_not_allocated 000026 external static fixed bin(35,0) dcl 89 ref 215 dm_error_$ci_not_in_collection 000030 external static fixed bin(35,0) dcl 89 ref 217 dm_error_$misformatted_ci 000032 external static fixed bin(35,0) dcl 89 ref 219 dm_error_$no_element 000034 external static fixed bin(35,0) dcl 89 ref 212 dm_error_$no_opening 000036 external static fixed bin(35,0) dcl 89 ref 135 dm_work_area based area dcl 58 ref 183 257 262 271 dm_work_area_ptr 000012 internal static pointer initial dcl 102 set ref 173 173* 183 208* 257 262 271 error_table_$unimplemented_version 000046 external static fixed bin(35,0) dcl 305 set ref 308* field_table based structure level 1 dcl 3-36 set ref 195 257 262 field_table_buffer_length 000110 automatic fixed bin(35,0) initial dcl 52 set ref 52* 195* 208* field_table_buffer_ptr 000112 automatic pointer initial dcl 54 set ref 54* 188* 189 192 195 208* 262 262 field_table_element_id 2 based bit(36) initial level 2 in structure "record_collection_header" dcl 2-15 in procedure "rcm_get_opening_info" set ref 208* field_table_element_id 2 000100 automatic bit(36) initial level 2 in structure "local_rc_header" dcl 47 in procedure "rcm_get_opening_info" set ref 47* field_table_ptr 6 based pointer initial level 2 in structure "record_collection_opening_info" dcl 1-11 in procedure "rcm_get_opening_info" set ref 159 183* 188 234* field_table_ptr 000126 automatic pointer dcl 3-65 in procedure "rcm_get_opening_info" set ref 176* 208* 222 234 257 257 file_opening_id 4 based bit(36) initial level 2 dcl 1-11 set ref 183* 184* get_dm_free_area_ 000022 constant entry external dcl 84 ref 173 init 000103 automatic bit(1) initial dcl 48 set ref 48* 120* 143* 180 228 268 length builtin function dcl 62 ref 198 198 length_of_field_names 3 based fixed bin(17,0) level 2 dcl 3-36 ref 195 257 262 local_rc_header 000100 automatic structure level 1 dcl 47 set ref 198 198 198 198 myname 000006 constant varying char(32) initial dcl 71 set ref 292* 308* new_buffer_was_allocated 000105 automatic bit(1) initial dcl 48 set ref 48* 208* 254 null builtin function dcl 62 ref 54 109 114 159 173 176 183 189 198 198 1-22 2-21 257 257 262 271 271 292 292 308 308 number_of_fields 2 based fixed bin(17,0) level 2 dcl 3-36 ref 195 195 257 257 262 262 opening_manager_$get_opening 000014 constant entry external dcl 79 ref 132 opening_manager_$init 000020 constant entry external dcl 83 ref 122 opening_manager_$put_opening 000016 constant entry external dcl 81 ref 228 p_code parameter fixed bin(35,0) dcl 43 set ref 9 108* 122* 123 132* 135 135 198* 201 208* 212 212 215 217 219 228* 232 238 292* p_collection_id parameter bit(36) dcl 40 set ref 9 132 185 198* 228 292* p_correct_versionb store a..g~T,:TX@p@mos_memory_check: EDAC error on mem b store b..^T,;TX4@x@mos_memory_check: EDAC error on mem b store b1.^T,<TH@p@mos_memory_check: EDAC error on mem b store a..T,=Tк@p@mos_memory_check: EDAC error on mem b store b..^T,>T@x@mos_memory_check: EDAC error on mem b store b1.^P ,?TL@@ioi_masked$interrupt: I/O error. B22 tapaP,@Tͨ@@ioi_masked$interrupt: I/O error.-B22 tapaP,AT@@ioi_masked$interrupt: I/O error. B22 tapaP,BT͊@@ioi_masked$interrupt: I/O error.-B22 tapaL,CTӕh@RCP: Detached tapa_00 from Backup.SysDaemon.zL,DT/x@RCP: Unassigned tapa_00 from Backup.SysDaemon.zH,ET'X@RCP: Assigned tapa_00 to Backup.SysDaemon.zoH,FT`@RCP: Attached tapa_00 for Backup.SysDaemon.zH,GTȂbH@RCP: Note (tapa_00) - COM252,den=6250,sysn.z@`,HT@RCP: Mount Reel COM252 with ring on tapa_00 for Backup.SysDaemon.zT,ITI@p@mos_memory_check: EDAC error on mem b store a.r T,JTI@p@mos_memory_check: EDAC error on mem b store b.r ^T,KTI@x@mos_memory_check: EDAC error on mem b store b1. ^d,LTbl@@RCP: Check Mount of COM252 for writing on tapa_00 for Backup.SysDaemon.zH,MTf-%H@RCP: Note (tapa_00) - COM252,den=6250,sys taT,NTQ@p@mos_memory_check: EDAC error on mem b store a._0T,OT@p@mos_memory_check: EDAC error on mem b store b._0^T,PT@x@mos_memory_check: EDAC error on mem b store b1.0^d,QTi@@RCP: Check Mount of COM252 for writing on tapa_00 for Backup.SysDaemon.zH,RT^2H@RCP: Note (tapa_00) - COM252,den=6250,sys taP,ST@@ioi_masked$interrupt: I/O error.0B22 (tapaP,TT4@@ioi_masked$interrupt: I/O error.1B22 (tapaP,UTL@@ioi_masked$interrupt: I/O error.4B22 (BtapaP,VTJ@RCP: Detached tapa_01 from Volume_Dumper.Daemon.zD,WTH@@RCP: Errors (tapa_01, volume AV0012) = 8P,XT.@RCP: Unassigned tapa_01 from Volume_Dumper.Daemon.zH,YTDX@RCP: Assigned tapa_01 to Backup.SysDaemon.zDH,ZTE>`@RCP: Attached tapa_01 for Backup.SysDaemon.zH,[THQH@RCP: Note (tapa_01) - AB3001,den=6250,sysn.z@`,\TKX@RCP: Mount Reel AB3001 with ring on tapa_01 for Backup.SysDaemon.zemP,]T9q@@ioi_masked$interrupt: I/O error.B22 QtapaT,^T:~@p@mos_memory_check: EDAC error on mem b store a.T,_T:@p@mos_memory_check: EDAC error on mem b store b.^T,`T:@x@mos_memory_check: EDAC error on mem b store b1.^P,aTxj@@ioi_masked$interrupt: I/O error.0B22 (tapaP,bTx@@ioi_masked$interrupt: I/O error.1B22 (tapaP,cTy@@ioi_masked$interrupt: I/O error.4B22 (BtapaP,dT@@ioi_masked$interrupt: I/O error.ӁB22 QtapaT,eT_@p@mos_memory_check: EDAC error on mem b store a.T,fTd~@p@mos_memory_check: EDAC error on mem IET_RESTART internal static bit(36) initial dcl 5-7 ACTION_SUPPORT_SIGNAL internal static bit(36) initial dcl 5-7 collection_manager_$allocate_control_interval 000000 constant entry external dcl 6-50 collection_manager_$compact_control_interval 000000 constant entry external dcl 6-52 collection_manager_$create_collection 000000 constant entry external dcl 6-54 collection_manager_$create_file 000000 constant entry external dcl 6-56 collection_manager_$delete 000000 constant entry external dcl 6-64 collection_manager_$delete_from_ci_buffer 000000 constant entry external dcl 6-67 collection_manager_$destroy_collection 000000 constant entry external dcl 6-58 collection_manager_$free_control_interval 000000 constant entry external dcl 6-60 collection_manager_$get_by_ci_ptr 000000 constant entry external dcl 6-80 collection_manager_$get_control_interval_ptr 000000 constant entry external dcl 6-74 collection_manager_$get_from_ci_buffer 000000 constant entry external dcl 6-77 collection_manager_$get_id 000000 constant entry external dcl 6-86 collection_manager_$get_portion 000000 constant entry external dcl 6-89 collection_manager_$get_portion_by_ci_ptr 000000 constant entry external dcl 6-97 collection_manager_$get_portion_from_ci_buffer 000000 constant entry external dcl 6-93 collection_manager_$modify 000000 constant entry external dcl 6-101 collection_manager_$modify_in_ci_buffer 000000 constant entry external dcl 6-107 collection_manager_$modify_portion 000000 constant entry external dcl 6-110 collection_manager_$modify_unprotected 000000 constant entry external dcl 6-104 collection_manager_$postcommit_increments 000000 constant entry external dcl 6-113 collection_manager_$put 000000 constant entry external dcl 6-115 collection_manager_$put_header 000000 constant entry external dcl 6-121 collection_manager_$put_in_ci_buffer 000000 constant entry external dcl 6-118 collection_manager_$put_unprotected_header 000000 constant entry external dcl 6-123 collection_manager_$replace_ci_buffer 000000 constant entry external dcl 6-126 collection_manager_$setup_ci_buffer 000000 constant entry external dcl 6-129 collection_manager_$simple_get_by_ci_ptr 000000 constant entry external dcl 6-132 collection_manager_$simple_get_from_ci_buffer 000000 constant entry external dcl 6-135 field_name based char unaligned dcl 3-71 field_name_length automatic fixed bin(17,0) dcl 3-73 field_name_ptr automatic pointer dcl 3-74 ft_length_of_field_nameb store b.^T,gTg@x@mos_memory_check: EDAC error on mem b store b1.^T,hT+B^@p@mos_memory_check: EDAC error on mem b store a..T,iT+F@p@mos_memory_check: EDAC error on mem b store b..^T,jT+J@x@mos_memory_check: EDAC error on mem b store b1.^h,kTt@ @ioi_masked$interrupt: I/O error. B22 ZtapabcŘT,lT)x@p@mos_memory_check: EDAC error on mem b store a.g~T,mT.4@p@mos_memory_check: EDAC error on mem b store b.^T,nT2`@x@mos_memory_check: EDAC error on mem b store b1.^T,oT @p@mos_memory_check: EDAC error on mem b store a..T,pT @p@mos_memory_check: EDAC error on mem b store b..^T,qT9@x@mos_memory_check: EDAC error on mem b store b1.^P,rT&@@ioi_masked$interrupt: I/O error. B22 tapaP,sT&x@@ioi_masked$interrupt: I/O error.-B22 tapaP,tT& @@ioi_masked$interrupt: I/O error. B22 tapaP,uT' @@ioi_masked$interrupt: I/O error.-B22 tapaL,vT'h@RCP: Detached tapa_00 from Backup.SysDaemon.zL,wT*1kx@RCP: Unassigned tapa_00 from Backup.SysDaemon.zH,xT.X@RCP: Assigned tapa_00 to Backup.SysDaemon.zoH,yT/»`@RCP: Attached tapa_00 for Backup.SysDaemon.zH,zT2zH@RCP: Note (tapa_00) - COM253,den=6250,sysn.z@`,{T5]@RCP: Mount Reel COM253 with ring on tapa_00 for Backup.SysDaemon.zT,|T@p@mos_memory_check: EDAC error on mem b store a.r T,}T@p@mos_memory_check: EDAC error on mem b store b.r ^T,~T@x@mos_memory_check: EDAC error on mem b store b1. ^d,T:@@RCP: Check Mount of COM253 for writing on tapa_00 for Backup.SysDaemon.zH,TЦH@RCP: Note (tapa_00) - COM253,den=6250,sys taT,T Ϝ@p@mos_memory_check: EDAC error on mem b store a._0T,T @x@mos_memory_check: EDAC error on mem b store b1.0^d,T`2@@RCP: Check Mount of COM253 for writing on tapa_00 for Backup.SysDaemon.zH,TcH@RCP: Note (tapa_00) - COM253,den=6250,sys taP,T@ioi_masked$interrupt: I/O error.0B22 (tapaP,T@ioi_masked$interrupt: I/O error.1B22 (tapaP,Tf@ioi_masked$interrupt: I/O error.4B22 (BtapaT,T@pmos_memory_check: EDAC error on mem b store a.T,T@pmos_memory_check: EDAC error on mem b store b.^T,T@xmos_memory_check: EDAC error on mem b store b1.^P,T׎@ioi_masked$interrupt: I/O error.@@B22 QtapaT,T @pmos_memory_check: EDAC error on mem b store a.T,T\@pmos_memory_check: EDAC error on mem b store b.^T,T@xmos_memory_check: EDAC error on mem b store b1.^T,Tvq@pmos_memory_check: EDAC error on mem b store a..T,Tvv@pmos_memory_check: EDAC error on mem b store b..^T,Tvz'@xmos_memory_check: EDAC error on mem b store b1.^T,TW8@pmos_memory_cD THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. call_ext_out_desc call_ext_out call_int_this call_int_other return signal enable ext_entry int_entry alloc_based free_based THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. collection_manager_$get collection_manager_$get_header get_dm_free_area_ opening_manager_$get_opening opening_manager_$init opening_manager_$put_opening sub_err_ sub_err_ transaction_manager_$get_current_txn_id THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. dm_error_$ci_not_allocated dm_error_$ci_not_in_collection dm_error_$misformatted_ci dm_error_$no_element dm_error_$no_opening error_table_$unimplemented_version LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 47 000132 48 000135 52 000140 54 000141 1 22 000143 2 21 000144 9 000147 108 000164 109 000166 111 000170 112 000172 114 000174 120 000201 122 000204 123 000217 125 000231 132 000232 135 000252 143 000267 144 000272 151 000273 155 000315 157 000324 159 000332 164 000340 173 000342 176 000355 178 000357 180 000401 183 000403 184 000422 185 000425 188 000427 189 000432 192 000436 195 000461 198 000500 201 000541 204 000545 208 000567 212 000626 215 000636 217 000642 219 000646 222 000651 225 000674 226 000677 228 000701 232 000724 234 000731 238 000734 241 000741 243 000745 246 000754 249 000766 251 001001 254 001007 257 001013 261 001043 262 001044 268 001067 271 001072 277 001105 280 001106 283 001107 284 001113 289 001114 292 001115 296 001164 298 001165 308 001176 314 001270 318 001271 321 001273 325 001274 327 001306 332 001312 335 001314 ----------------------------------------------------------- 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