COMPILATION LISTING OF SEGMENT test_pnt_manager_ Compiled by: Multics PL/I Compiler, Release 28d, of October 4, 1983 Compiled at: Honeywell Multics Op. - System M Compiled on: 02/06/85 1458.1 mst Wed Options: optimize list 1 /* *********************************************************** 2* * * 3* * Copyright, (C) Honeywell Information Systems Inc., 1984 * 4* * * 5* *********************************************************** */ 6 /* format: style2 */ 7 8 /* TEST_PNT_MANAGER_: This program is used to support the 9* pnt_manager_$test interface. It plays with refnames so that 10* all future references to pnt_manager_ will be made to this 11* program. This program will then serve as a transfer vector 12* to the pnt_db_util_ entrypoints. The result is that the 13* pnt_manager_ entrypoints will function on a designated copy 14* of the PNT in the user ring. */ 15 16 test_pnt_manager_: 17 procedure (P_dirname); 18 19 /* Written 1984-09-14 by E. Swenson */ 20 /* Modified 1985-01-25 by E. Swenson for auditing */ 21 22 /* Parameters */ 23 24 dcl P_acl_ptr ptr parameter; 25 dcl P_area_ptr ptr parameter; 26 dcl P_code fixed bin (35) parameter; 27 dcl P_desired_version char (*) parameter; 28 dcl P_dirname char (*) parameter; 29 dcl P_entryname char (*) parameter; 30 dcl P_error_on_target bit (1) aligned parameter; 31 dcl P_new_entryname char (*) parameter; 32 dcl P_no_sysdaemon bit (1) aligned parameter; 33 dcl P_num_entries fixed bin (35) parameter; 34 dcl P_old_entryname char (*) parameter; 35 dcl P_password char (*) parameter; 36 dcl P_person_id char (*) parameter; 37 dcl P_pnt_entry_ptr ptr parameter; 38 dcl P_pnt_info_ptr ptr parameter; 39 dcl P_pnt_size fixed bin (35) parameter; 40 dcl P_record_no fixed bin (35) parameter; 41 dcl P_set_network_password bit (1) aligned parameter; 42 dcl P_set_password bit (1) aligned parameter; 43 dcl P_short_password bit (1) aligned parameter; 44 dcl P_target_dirname char (*) parameter; 45 dcl P_target_entryname char (*) parameter; 46 47 /* Automatic */ 48 49 dcl code fixed bin (35); 50 dcl dirname char (168); 51 dcl dirname_lth fixed bin (21); 52 dcl entryname char (32); 53 dcl seg_ptr ptr; 54 55 /* External Entries */ 56 57 dcl hcs_$fs_get_path_name entry (ptr, char (*), fixed bin, char (*), fixed bin (35)); 58 dcl hcs_$fs_get_seg_ptr entry (char (*), ptr, fixed bin (35)); 59 dcl hcs_$initiate entry (char (*), char (*), char (*), fixed bin (1), fixed bin (2), ptr, 60 fixed bin (35)); 61 dcl pathname_ entry (char (*), char (*)) returns (char (168)); 62 dcl pnt_db_util_$add_entry entry (ptr, bit (1) aligned, char (*), ptr, fixed bin (35)); 63 dcl pnt_db_util_$admin_get_entry 64 entry (ptr, bit (1) aligned, char (*), ptr, fixed bin (35)); 65 dcl pnt_db_util_$close entry (ptr, bit (1) aligned, fixed bin (35)); 66 dcl pnt_db_util_$get_abs_entry 67 entry (ptr, bit (1) aligned, fixed bin (35), ptr, fixed bin (35)); 68 dcl pnt_db_util_$get_network_password 69 entry (ptr, bit (1) aligned, char (*), char (*), bit (1) aligned, fixed bin (35)) 70 ; 71 dcl pnt_db_util_$login_get_entry 72 entry (ptr, bit (1) aligned, char (*), char (*), ptr, fixed bin (35)); 73 dcl pnt_db_util_$network_get_entry 74 entry (ptr, bit (1) aligned, char (*), char (*), ptr, fixed bin (35)); 75 dcl pnt_db_util_$open entry (char (*), char (*), bit (1) aligned, ptr, fixed bin (35)); 76 dcl pnt_db_util_$priv_get_abs_entry 77 entry (ptr, bit (1) aligned, fixed bin (35), ptr, fixed bin (35)); 78 dcl pnt_db_util_$priv_get_entry 79 entry (ptr, bit (1) aligned, char (*), ptr, fixed bin (35)); 80 dcl pnt_db_util_$remove_entry 81 entry (ptr, bit (1) aligned, char (*), fixed bin (35)); 82 dcl pnt_db_util_$table_data 83 entry (ptr, bit (1) aligned, ptr, fixed bin (35), fixed bin (35)); 84 dcl pnt_db_util_$update_entry 85 entry (ptr, bit (1) aligned, ptr, bit (1) aligned, bit (1) aligned, 86 fixed bin (35)); 87 dcl pnt_db_util_$validate_entry 88 entry (ptr, bit (1) aligned, char (*), fixed bin (35)); 89 90 dcl pnt_fs_util_$add_acl_entries 91 entry (char (*), char (*), ptr, fixed bin (35)); 92 dcl pnt_fs_util_$chname_file 93 entry (char (*), char (*), char (*), char (*), fixed bin (35)); 94 dcl pnt_fs_util_$copy entry (char (*), char (*), char (*), char (*), bit (1) aligned, fixed bin (35)); 95 dcl pnt_fs_util_$create entry (char (*), char (*), fixed bin (35), fixed bin (35)); 96 dcl pnt_fs_util_$delete entry (char (*), char (*), fixed bin (35)); 97 dcl pnt_fs_util_$delete_acl_entries 98 entry (char (*), char (*), ptr, fixed bin (35)); 99 dcl pnt_fs_util_$list_acl entry (char (*), char (*), char (*), ptr, ptr, fixed bin (35)); 100 dcl pnt_fs_util_$replace_acl 101 entry (char (*), char (*), ptr, bit (1) aligned, fixed bin (35)); 102 dcl pnt_fs_util_$validate entry (char (*), char (*), fixed bin (35)); 103 dcl sub_err_ entry () options (variable); 104 dcl term_$single_refname entry (char (*), fixed bin (35)); 105 dcl unique_chars_ entry (bit (*)) returns (char (15)); 106 dcl unique_bits_ entry () returns (bit (70)); 107 108 /* Internal Static */ 109 110 dcl already_swapped_refnames 111 bit (1) aligned internal static initial ("0"b); 112 dcl pnt_ptr ptr initial (null ()) internal static; 113 114 dcl saved_pnt_dir char (168) initial (" ") internal static; 115 116 /* External Static */ 117 118 dcl error_table_$segknown fixed bin (35) external static; 119 120 /* Constant */ 121 122 dcl ME char (32) initial ("test_pnt_manager_") internal static options (constant); 123 dcl NO_AUDIT bit (1) aligned initial ("0"b) internal static options (constant); 124 dcl PNT_NAME char (7) initial ("PNT.pnt") internal static options (constant); 125 126 /* Conditions */ 127 128 dcl cleanup condition; 129 130 /* Builtin */ 131 132 dcl (addr, codeptr, null) builtin; 133 134 /* Program */ 135 136 test: 137 entry (P_dirname); /* In case we try to run pnt_manager_$test again. */ 138 139 if saved_pnt_dir = "" 140 then saved_pnt_dir = P_dirname; 141 else if P_dirname = saved_pnt_dir 142 then return; 143 else do; /* New test directory */ 144 saved_pnt_dir = P_dirname; 145 if pnt_ptr ^= null () 146 then /* We had an old one */ 147 call CLEAN_UP (); 148 end; 149 150 if already_swapped_refnames 151 then /* only need do this once */ 152 return; 153 154 /**** We first add a shriekname reference name to pnt_manager_, then 155* we terminate the reference name "pnt_manager_" and initiate 156* this program with the reference name "pnt_manager_". All future 157* calls to pnt_manager_ will actually be made to this program. */ 158 159 call hcs_$fs_get_seg_ptr ("pnt_manager_", seg_ptr, code); 160 if code ^= 0 161 then do; 162 call CLEAN_UP (); 163 call sub_err_ (code, ME, ACTION_CANT_RESTART, null (), (0), "Attempting to get ptr to pnt_manager_."); 164 return; 165 end; 166 167 call hcs_$fs_get_path_name (seg_ptr, dirname, (0), entryname, code); 168 if code ^= 0 169 then do; 170 call CLEAN_UP (); 171 call sub_err_ (code, ME, ACTION_CANT_RESTART, null (), (0), 172 "Attempting to get pathname of ""pnt_manager_""."); 173 return; 174 end; 175 176 call hcs_$initiate ((dirname), entryname, unique_chars_ (unique_bits_ ()), 0, 0, seg_ptr, code); 177 if code ^= error_table_$segknown & code ^= 0 178 then do; 179 call CLEAN_UP (); 180 call sub_err_ (code, ME, ACTION_CANT_RESTART, null (), (0), 181 "Attempting to add shriekname reference name to ^a", pathname_ (dirname, entryname)); 182 return; 183 end; 184 185 call term_$single_refname ("pnt_manager_", code); 186 if code ^= 0 187 then do; 188 call CLEAN_UP (); 189 call sub_err_ (code, ME, ACTION_CANT_RESTART, null (), (0), 190 "Attempting to terminate reference name ""pnt_manager_"""); 191 return; 192 end; 193 194 call hcs_$fs_get_path_name (codeptr (test_pnt_manager_), dirname, (0), entryname, code); 195 if code ^= 0 196 then do; 197 call CLEAN_UP (); 198 call sub_err_ (code, ME, ACTION_CANT_RESTART, null (), (0), "Attempting to get pathname of ^a", ME); 199 return; 200 end; 201 202 call hcs_$initiate (dirname, entryname, "pnt_manager_", 0, 0, seg_ptr, code); 203 if code ^= 0 & code ^= error_table_$segknown 204 then do; 205 call CLEAN_UP (); 206 call sub_err_ (code, ME, ACTION_CANT_RESTART, null (), (0), 207 "Attempting to add refname of ""pnt_manager_"" to ^a", pathname_ (dirname, entryname)); 208 return; 209 end; 210 211 already_swapped_refnames = "1"b; 212 213 return; 214 215 /**** Here follow entries which correspond to the entries in the real 216* pnt_manager_. In this program, we just transfer to the appropriate 217* pnt_db_util_ or pnt_fs_util_ entrypoint after possibly changing 218* the first argument. */ 219 220 add_acl_entries: 221 entry (P_dirname, P_entryname, P_acl_ptr, P_code); 222 223 call pnt_fs_util_$add_acl_entries (P_dirname, P_entryname, P_acl_ptr, P_code); 224 return; 225 226 add_entry: 227 entry (P_person_id, P_pnt_entry_ptr, P_code); 228 229 call INITIALIZE (); 230 call pnt_db_util_$add_entry (pnt_ptr, NO_AUDIT, P_person_id, P_pnt_entry_ptr, P_code); 231 return; 232 233 admin_get_entry: 234 entry (P_person_id, P_pnt_entry_ptr, P_code); 235 236 call INITIALIZE (); 237 call pnt_db_util_$admin_get_entry (pnt_ptr, NO_AUDIT, P_person_id, P_pnt_entry_ptr, P_code); 238 return; 239 240 chname_file: 241 entry (P_dirname, P_entryname, P_old_entryname, P_new_entryname, P_code); 242 243 call pnt_fs_util_$chname_file (P_dirname, P_entryname, P_old_entryname, P_new_entryname, P_code); 244 return; 245 246 copy: 247 entry (P_dirname, P_entryname, P_target_dirname, P_target_entryname, P_error_on_target, P_code); 248 249 call pnt_fs_util_$copy (P_dirname, P_entryname, P_target_dirname, P_target_entryname, P_error_on_target, P_code) 250 ; 251 return; 252 253 create: 254 entry (P_dirname, P_entryname, P_pnt_size, P_code); 255 256 call pnt_fs_util_$create (P_dirname, P_entryname, P_pnt_size, P_code); 257 return; 258 259 delete: 260 entry (P_dirname, P_entryname, P_code); 261 262 call pnt_fs_util_$delete (P_dirname, P_entryname, P_code); 263 return; 264 265 delete_acl_entries: 266 entry (P_dirname, P_entryname, P_acl_ptr, P_code); 267 268 call pnt_fs_util_$delete_acl_entries (P_dirname, P_entryname, P_acl_ptr, P_code); 269 return; 270 271 get_abs_entry: 272 entry (P_record_no, P_pnt_entry_ptr, P_code); 273 274 call INITIALIZE (); 275 call pnt_db_util_$get_abs_entry (pnt_ptr, NO_AUDIT, P_record_no, P_pnt_entry_ptr, P_code); 276 return; 277 278 get_entry: 279 entry (P_person_id, P_pnt_entry_ptr, P_code); 280 281 call INITIALIZE (); 282 call pnt_db_util_$admin_get_entry (pnt_ptr, NO_AUDIT, P_person_id, P_pnt_entry_ptr, P_code); 283 return; 284 285 get_network_password: 286 entry (P_person_id, P_password, P_short_password, P_code); 287 288 call INITIALIZE (); 289 call pnt_db_util_$get_network_password (pnt_ptr, NO_AUDIT, P_person_id, P_password, P_short_password, P_code); 290 return; 291 292 list_acl: 293 entry (P_dirname, P_entryname, P_desired_version, P_area_ptr, P_acl_ptr, P_code); 294 295 call pnt_fs_util_$list_acl (P_dirname, P_entryname, P_desired_version, P_area_ptr, P_acl_ptr, P_code); 296 return; 297 298 login_get_entry: 299 entry (P_person_id, P_password, P_pnt_entry_ptr, P_code); 300 301 call INITIALIZE (); 302 call pnt_db_util_$login_get_entry (pnt_ptr, NO_AUDIT, P_person_id, P_password, P_pnt_entry_ptr, P_code); 303 return; 304 305 network_get_entry: 306 entry (P_person_id, P_password, P_pnt_entry_ptr, P_code); 307 308 call INITIALIZE (); 309 call pnt_db_util_$network_get_entry (pnt_ptr, NO_AUDIT, P_person_id, P_password, P_pnt_entry_ptr, P_code); 310 return; 311 312 priv_get_abs_entry: 313 entry (P_record_no, P_pnt_entry_ptr, P_code); 314 315 call INITIALIZE (); 316 call pnt_db_util_$priv_get_abs_entry (pnt_ptr, NO_AUDIT, P_record_no, P_pnt_entry_ptr, P_code); 317 return; 318 319 priv_get_entry: 320 entry (P_person_id, P_pnt_entry_ptr, P_code); 321 322 call INITIALIZE (); 323 call pnt_db_util_$priv_get_entry (pnt_ptr, NO_AUDIT, P_person_id, P_pnt_entry_ptr, P_code); 324 return; 325 326 remove_entry: 327 entry (P_person_id, P_code); 328 329 call INITIALIZE (); 330 call pnt_db_util_$remove_entry (pnt_ptr, NO_AUDIT, P_person_id, P_code); 331 return; 332 333 replace_acl: 334 entry (P_dirname, P_entryname, P_acl_ptr, P_no_sysdaemon, P_code); 335 336 call pnt_fs_util_$replace_acl (P_dirname, P_entryname, P_acl_ptr, P_no_sysdaemon, P_code); 337 return; 338 339 table_data: 340 entry (P_pnt_info_ptr, P_num_entries, P_code); 341 342 call INITIALIZE (); 343 call pnt_db_util_$table_data (pnt_ptr, NO_AUDIT, P_pnt_info_ptr, P_num_entries, P_code); 344 return; 345 346 update_entry: 347 entry (P_pnt_entry_ptr, P_set_password, P_set_network_password, P_code); 348 349 call INITIALIZE (); 350 call pnt_db_util_$update_entry (pnt_ptr, NO_AUDIT, P_pnt_entry_ptr, P_set_password, P_set_network_password, 351 P_code); 352 return; 353 354 validate: 355 entry (P_dirname, P_entryname, P_code); 356 357 call pnt_fs_util_$validate (P_dirname, P_entryname, P_code); 358 return; 359 360 validate_entry: 361 entry (P_person_id, P_code); 362 363 call INITIALIZE (); 364 call pnt_db_util_$validate_entry (pnt_ptr, NO_AUDIT, P_person_id, P_code); 365 return; 366 367 INITIALIZE: 368 procedure (); 369 370 if pnt_ptr ^= null /* already initialized */ 371 then return; 372 373 TRY_TO_OPEN_PNT: 374 call pnt_db_util_$open (saved_pnt_dir, PNT_NAME, NO_AUDIT, pnt_ptr, code); 375 if code ^= 0 376 then do; 377 call sub_err_ (code, ME, ACTION_CAN_RESTART, null (), (0), "Cannot open the PNT in ^a.", 378 pathname_ (saved_pnt_dir, PNT_NAME)); 379 goto TRY_TO_OPEN_PNT; 380 end; 381 382 return; 383 end INITIALIZE; 384 385 CLEAN_UP: 386 procedure (); 387 388 /**** This internal procedure is called in the event of an error in the 389* reference name manipulation to close the PNT since it is of no 390* use in the case of an error. */ 391 392 call pnt_db_util_$close (pnt_ptr, NO_AUDIT, (0)); 393 return; 394 end CLEAN_UP; 395 396 /* format: off */ 397 /* BEGIN INCLUDE FILE sub_err_flags.incl.pl1 BIM 11/81 */ 1 2 /* format: style3 */ 1 3 1 4 /* These constants are to be used for the flags argument of sub_err_ */ 1 5 /* They are just "string (condition_info_header.action_flags)" */ 1 6 1 7 declare ( 1 8 ACTION_CAN_RESTART init (""b), 1 9 ACTION_CANT_RESTART init ("1"b), 1 10 ACTION_DEFAULT_RESTART 1 11 init ("01"b), 1 12 ACTION_QUIET_RESTART 1 13 init ("001"b), 1 14 ACTION_SUPPORT_SIGNAL 1 15 init ("0001"b) 1 16 ) bit (36) aligned internal static options (constant); 1 17 1 18 /* End include file */ 397 398 /* format: on */ 399 400 end test_pnt_manager_; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 02/06/85 1406.1 test_pnt_manager_.pl1 >spec>on>41-7>test_pnt_manager_.pl1 397 1 04/16/82 0958.1 sub_err_flags.incl.pl1 >ldd>include>sub_err_flags.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 000014 constant bit(36) initial dcl 1-7 set ref 163* 171* 180* 189* 198* 206* ACTION_CAN_RESTART 000033 constant bit(36) initial dcl 1-7 set ref 377* ME 000002 constant char(32) initial unaligned dcl 122 set ref 163* 171* 180* 189* 198* 198* 206* 377* NO_AUDIT 000033 constant bit(1) initial dcl 123 set ref 230* 237* 275* 282* 289* 302* 309* 316* 323* 330* 343* 350* 364* 373* 392* PNT_NAME 000000 constant char(7) initial unaligned dcl 124 set ref 373* 377* 377* P_acl_ptr parameter pointer dcl 24 set ref 220 223* 265 268* 292 295* 333 336* P_area_ptr parameter pointer dcl 25 set ref 292 295* P_code parameter fixed bin(35,0) dcl 26 set ref 220 223* 226 230* 233 237* 240 243* 246 249* 253 256* 259 262* 265 268* 271 275* 278 282* 285 289* 292 295* 298 302* 305 309* 312 316* 319 323* 326 330* 333 336* 339 343* 346 350* 354 357* 360 364* P_desired_version parameter char unaligned dcl 27 set ref 292 295* P_dirname parameter char unaligned dcl 28 set ref 16 136 139 141 144 220 223* 240 243* 246 249* 253 256* 259 262* 265 268* 292 295* 333 336* 354 357* P_entryname parameter char unaligned dcl 29 set ref 220 223* 240 243* 246 249* 253 256* 259 262* 265 268* 292 295* 333 336* 354 357* P_error_on_target parameter bit(1) dcl 30 set ref 246 249* P_new_entryname parameter char unaligned dcl 31 set ref 240 243* P_no_sysdaemon parameter bit(1) dcl 32 set ref 333 336* P_num_entries parameter fixed bin(35,0) dcl 33 set ref 339 343* P_old_entryname parameter char unaligned dcl 34 set ref 240 243* P_password parameter char unaligned dcl 35 set ref 285 289* 298 302* 305 309* P_person_id parameter char unaligned dcl 36 set ref 226 230* 233 237* 278 282* 285 289* 298 302* 305 309* 319 323* 326 330* 360 364* P_pnt_entry_ptr parameter pointer dcl 37 set ref 226 230* 233 237* 271 275* 278 282* 298 302* 305 309* 312 316* 319 323* 346 350* P_pnt_info_ptr parameter pointer dcl 38 set ref 339 343* P_pnt_size parameter fixed bin(35,0) dcl 39 set ref 253 256* P_record_no parameter fixed bin(35,0) dcl 40 set ref 271 275* 312 316* P_set_network_password parameter bit(1) dcl 41 set ref 346 350* P_set_password parameter bit(1) dcl 42 set ref 346 350* P_short_password parameter bit(1) dcl 43 set ref 285 289* P_target_dirname parameter char unaligned dcl 44 set ref 246 249* P_target_entryname parameter char unaligned dcl 45 set ref 246 249* already_swapped_refnames 000010 internal static bit(1) initial dcl 110 set ref 150 211* code 000100 automatic fixed bin(35,0) dcl 49 set ref 159* 160 163* 167* 168 171* 176* 177 177 180* 185* 186 189* 194* 195 198* 202* 203 203 206* 373* 375 377* codeptr builtin function dcl 132 ref 194 194 dirname 000101 automatic char(168) unaligned dcl 50 set ref 167* 176 180* 180* 194* 202* 206* 206* entryname 000153 automatic char(32) unaligned dcl 52 set ref 167* 176* 180* 180* 194* 202* 206* 206* error_table_$segknown 000164 external static fixed bin(35,0) dcl 118 ref 177 203 hcs_$fs_get_path_name 000066 constant entry external dcl 57 ref 167 194 hcs_$fs_get_seg_ptr 000070 constant entry external dcl 58 ref 159 hcs_$initiate 000072 constant entry external dcl 59 ref 176 202 null builtin function dcl 132 ref 145 163 163 171 171 180 180 189 189 198 198 206 206 370 377 377 pathname_ 000074 constant entry external dcl 61 ref 180 180 206 206 377 377 pnt_db_util_$add_entry 000076 constant entry external dcl 62 ref 230 pnt_db_util_$admin_get_entry 000100 constant entry external dcl 63 ref 237 282 pnt_db_util_$close 000102 constant entry external dcl 65 ref 392 pnt_db_util_$get_abs_entry 000104 constant entry external dcl 66 ref 275 pnt_db_util_$get_network_password 000106 constant entry external dcl 68 ref 289 pnt_db_util_$login_get_entry 000110 constant entry external dcl 71 ref 302 pnt_db_util_$network_get_entry 000112 constant entry external dcl 73 ref 309 pnt_db_util_$open 000114 constant entry external dcl 75 ref 373 pnt_db_util_$priv_get_abs_entry 000116 constant entry external dcl 76 ref 316 pnt_db_util_$priv_get_entry 000120 constant entry external dcl 78 ref 323 pnt_db_util_$remove_entry 000122 constant entry external dcl 80 ref 330 pnt_db_util_$table_data 000124 constant entry external dcl 82 ref 343 pnt_db_util_$update_entry 000126 constant entry external dcl 84 ref 350 pnt_db_util_$validate_entry 000130 constant entry external dcl 87 ref 364 pnt_fs_util_$add_acl_entries 000132 constant entry external dcl 90 ref 223 pnt_fs_util_$chname_file 000134 constant entry external dcl 92 ref 243 pnt_fs_util_$copy 000136 constant entry external dcl 94 ref 249 pnt_fs_util_$create 000140 constant entry external dcl 95 ref 256 pnt_fs_util_$delete 000142 constant entry external dcl 96 ref 262 pnt_fs_util_$delete_acl_entries 000144 constant entry external dcl 97 ref 268 pnt_fs_util_$list_acl 000146 constant entry external dcl 99 ref 295 pnt_fs_util_$replace_acl 000150 constant entry external dcl 100 ref 336 pnt_fs_util_$validate 000152 constant entry external dcl 102 ref 357 pnt_ptr 000012 internal static pointer initial dcl 112 set ref 145 230* 237* 275* 282* 289* 302* 309* 316* 323* 330* 343* 350* 364* 370 373* 392* saved_pnt_dir 000014 internal static char(168) initial unaligned dcl 114 set ref 139 139* 141 144* 373* 377* 377* seg_ptr 000164 automatic pointer dcl 53 set ref 159* 167* 176* 202* sub_err_ 000154 constant entry external dcl 103 ref 163 171 180 189 198 206 377 term_$single_refname 000156 constant entry external dcl 104 ref 185 unique_bits_ 000162 constant entry external dcl 106 ref 176 176 176 176 unique_chars_ 000160 constant entry external dcl 105 ref 176 176 NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. ACTION_DEFAULT_RESTART internal static bit(36) initial dcl 1-7 ACTION_QUIET_RESTART internal static bit(36) initial dcl 1-7 ACTION_SUPPORT_SIGNAL internal static bit(36) initial dcl 1-7 addr builtin function dcl 132 cleanup 000000 stack reference condition dcl 128 dirname_lth automatic fixed bin(21,0) dcl 51 NAMES DECLARED BY EXPLICIT CONTEXT. CLEAN_UP 003362 constant entry internal dcl 385 ref 145 162 170 179 188 197 205 INITIALIZE 003227 constant entry internal dcl 367 ref 229 236 274 281 288 301 308 315 322 329 342 349 363 TRY_TO_OPEN_PNT 003236 constant label dcl 373 ref 379 add_acl_entries 001217 constant entry external dcl 220 add_entry 001300 constant entry external dcl 226 admin_get_entry 001356 constant entry external dcl 233 chname_file 001437 constant entry external dcl 240 copy 001536 constant entry external dcl 246 create 001640 constant entry external dcl 253 delete 001716 constant entry external dcl 259 delete_acl_entries 001767 constant entry external dcl 265 get_abs_entry 002050 constant entry external dcl 271 get_entry 002106 constant entry external dcl 278 get_network_password 002167 constant entry external dcl 285 list_acl 002260 constant entry external dcl 292 login_get_entry 002353 constant entry external dcl 298 network_get_entry 002442 constant entry external dcl 305 priv_get_abs_entry 002531 constant entry external dcl 312 priv_get_entry 002567 constant entry external dcl 319 remove_entry 002647 constant entry external dcl 326 replace_acl 002723 constant entry external dcl 333 table_data 003010 constant entry external dcl 339 test 000211 constant entry external dcl 136 test_pnt_manager_ 000173 constant entry external dcl 16 ref 194 194 update_entry 003047 constant entry external dcl 346 validate 003107 constant entry external dcl 354 validate_entry 003160 constant entry external dcl 360 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 4102 4270 3400 4112 Length 4622 3400 166 315 502 56 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME test_pnt_manager_ 380 external procedure is an external procedure. INITIALIZE internal procedure shares stack frame of external procedure test_pnt_manager_. CLEAN_UP internal procedure shares stack frame of external procedure test_pnt_manager_. STORAGE FOR INTERNAL STATIC VARIABLES. LOC IDENTIFIER BLOCK NAME 000010 already_swapped_refnames test_pnt_manager_ 000012 pnt_ptr test_pnt_manager_ 000014 saved_pnt_dir test_pnt_manager_ STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME test_pnt_manager_ 000100 code test_pnt_manager_ 000101 dirname test_pnt_manager_ 000153 entryname test_pnt_manager_ 000164 seg_ptr test_pnt_manager_ THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. call_ext_out_desc call_ext_out return ext_entry ext_entry_desc THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. hcs_$fs_get_path_name hcs_$fs_get_seg_ptr hcs_$initiate pathname_ pnt_db_util_$add_entry pnt_db_util_$admin_get_entry pnt_db_util_$close pnt_db_util_$get_abs_entry pnt_db_util_$get_network_password pnt_db_util_$login_get_entry pnt_db_util_$network_get_entry pnt_db_util_$open pnt_db_util_$priv_get_abs_entry pnt_db_util_$priv_get_entry pnt_db_util_$remove_entry pnt_db_util_$table_data pnt_db_util_$update_entry pnt_db_util_$validate_entry pnt_fs_util_$add_acl_entries pnt_fs_util_$chname_file pnt_fs_util_$copy pnt_fs_util_$create pnt_fs_util_$delete pnt_fs_util_$delete_acl_entries pnt_fs_util_$list_acl pnt_fs_util_$replace_acl pnt_fs_util_$validate sub_err_ term_$single_refname unique_bits_ unique_chars_ THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. error_table_$segknown CONSTANTS 000000 aa 120 116 124 056 PNT. 000001 aa 160 156 164 000 pnt 000002 aa 164 145 163 164 test 000003 aa 137 160 156 164 _pnt 000004 aa 137 155 141 156 _man 000005 aa 141 147 145 162 ager 000006 aa 137 040 040 040 _ 000007 aa 040 040 040 040 000010 aa 040 040 040 040 000011 aa 040 040 040 040 000012 aa 524000000033 000013 aa 526000000007 000014 aa 400000000000 000015 aa 524000000040 000016 aa 524000000065 000017 aa 524000000061 000020 aa 404000000002 000021 aa 404000000001 000022 aa 524000000017 000023 aa 514000000106 000024 aa 524000000250 000025 aa 524000000055 000026 aa 404000000021 000027 aa 524000000046 000030 aa 404000000005 000031 aa 514000000044 000032 aa 526000000040 000033 aa 000000000000 000034 aa 524000000014 000035 aa 516000000106 000036 aa 526000000017 000037 aa 526000000250 000040 aa 514000000001 000041 aa 526077777777 000042 aa 404000000043 000043 aa 464000000000 000044 aa 077777000043 000045 aa 000001000000 000046 aa 143 154 145 141 clea 000047 aa 156 165 160 000 nup 000050 aa 160 156 164 137 pnt_ 000051 aa 155 141 156 141 mana 000052 aa 147 145 162 137 ger_ 000053 aa 103 141 156 156 Cann 000054 aa 157 164 040 157 ot o 000055 aa 160 145 156 040 pen 000056 aa 040 164 150 145 the 000057 aa 040 120 116 124 PNT 000060 aa 040 151 156 040 in 000061 aa 136 141 056 000 ^a. 000062 aa 101 164 164 145 Atte 000063 aa 155 160 164 151 mpti 000064 aa 156 147 040 164 ng t 000065 aa 157 040 147 145 o ge 000066 aa 164 040 160 141 t pa 000067 aa 164 150 156 141 thna 000070 aa 155 145 040 157 me o 000071 aa 146 040 136 141 f ^a 000072 aa 101 164 164 145 Atte 000073 aa 155 160 164 151 mpti 000074 aa 156 147 040 164 ng t 000075 aa 157 040 147 145 o ge 000076 aa 164 040 160 164 t pt 000077 aa 162 040 164 157 r to 000100 aa 040 160 156 164 pnt 000101 aa 137 155 141 156 _man 000102 aa 141 147 145 162 ager 000103 aa 137 056 000 000 _. 000104 aa 101 164 164 145 Atte 000105 aa 155 160 164 151 mpti 000106 aa 156 147 040 164 ng t 000107 aa 157 040 147 145 o ge 000110 aa 164 040 160 141 t pa 000111 aa 164 150 156 141 thna 000112 aa 155 145 040 157 me o 000113 aa 146 040 042 160 f "p 000114 aa 156 164 137 155 nt_m 000115 aa 141 156 141 147 anag 000116 aa 145 162 137 042 er_" 000117 aa 056 000 000 000 . 000120 aa 101 164 164 145 Atte 000121 aa 155 160 164 151 mpti 000122 aa 156 147 040 164 ng t 000123 aa 157 040 141 144 o ad 000124 aa 144 040 162 145 d re 000125 aa 146 156 141 155 fnam 000126 aa 145 040 157 146 e of 000127 aa 040 042 160 156 "pn 000130 aa 164 137 155 141 t_ma 000131 aa 156 141 147 145 nage 000132 aa 162 137 042 040 r_" 000133 aa 164 157 040 136 to ^ 000134 aa 141 000 000 000 a 000135 aa 101 164 164 145 Atte 000136 aa 155 160 164 151 mpti 000137 aa 156 147 040 164 ng t 000140 aa 157 040 141 144 o ad 000141 aa 144 040 163 150 d sh 000142 aa 162 151 145 153 riek 000143 aa 156 141 155 145 name 000144 aa 040 162 145 146 ref 000145 aa 145 162 145 156 eren 000146 aa 143 145 040 156 ce n 000147 aa 141 155 145 040 ame 000150 aa 164 157 040 136 to ^ 000151 aa 141 000 000 000 a 000152 aa 101 164 164 145 Atte 000153 aa 155 160 164 151 mpti 000154 aa 156 147 040 164 ng t 000155 aa 157 040 164 145 o te 000156 aa 162 155 151 156 rmin 000157 aa 141 164 145 040 ate 000160 aa 162 145 146 145 refe 000161 aa 162 145 156 143 renc 000162 aa 145 040 156 141 e na 000163 aa 155 145 040 042 me " 000164 aa 160 156 164 137 pnt_ 000165 aa 155 141 156 141 mana 000166 aa 147 145 162 137 ger_ 000167 aa 042 000 000 000 " BEGIN PROCEDURE test_pnt_manager_ ENTRY TO test_pnt_manager_ STATEMENT 1 ON LINE 16 test_pnt_manager_: procedure (P_dirname); 000170 at 000001000041 000171 ta 000170000000 000172 da 000364300000 000173 aa 000600 6270 00 eax7 384 000174 aa 7 00034 3521 20 epp2 pr7|28,* 000175 aa 2 01046 2721 00 tsp2 pr2|550 ext_entry_desc 000176 aa 000002000000 000177 aa 000000000000 000200 aa 6 00042 3735 20 epp7 pr6|34,* 000201 aa 7 00000 2361 20 ldq pr7|0,* 000202 aa 000002 6040 04 tmi 2,ic 000204 000203 aa 777777 3760 07 anq 262143,dl 000204 aa 0 00250 3761 00 anq pr0|168 = 000077777777 000205 aa 6 00210 7561 00 stq pr6|136 STATEMENT 1 ON LINE 136 test: entry (P_dirname); 000206 aa 000016 7100 04 tra 14,ic 000224 ENTRY TO test STATEMENT 1 ON LINE 136 test: entry (P_dirname); 000207 ta 000170000000 000210 da 000371300000 000211 aa 000600 6270 00 eax7 384 000212 aa 7 00034 3521 20 epp2 pr7|28,* 000213 aa 2 01046 2721 00 tsp2 pr2|550 ext_entry_desc 000214 aa 000002000000 000215 aa 000000000000 000216 aa 6 00042 3735 20 epp7 pr6|34,* 000217 aa 7 00000 2361 20 ldq pr7|0,* 000220 aa 000002 6040 04 tmi 2,ic 000222 000221 aa 777777 3760 07 anq 262143,dl 000222 aa 0 00250 3761 00 anq pr0|168 = 000077777777 000223 aa 6 00210 7561 00 stq pr6|136 STATEMENT 1 ON LINE 139 if saved_pnt_dir = "" then saved_pnt_dir = P_dirname; 000224 aa 040 004 106 500 cmpc (pr),(ic),fill(040) 000225 ia 4 00014 00 0250 desc9a pr4|12,168 saved_pnt_dir 000226 aa 003154 00 0000 desc9a 1644,0 003400 = 000010000000 000227 aa 000007 6010 04 tnz 7,ic 000236 000230 aa 6 00032 3715 20 epp5 pr6|26,* 000231 aa 5 00002 3535 20 epp3 pr5|2,* 000232 aa 040 100 100 540 mlr (pr,rl),(pr),fill(040) 000233 aa 3 00000 00 0006 desc9a pr3|0,ql P_dirname 000234 ia 4 00014 00 0250 desc9a pr4|12,168 saved_pnt_dir 000235 aa 000017 7100 04 tra 15,ic 000254 STATEMENT 1 ON LINE 141 else if P_dirname = saved_pnt_dir then return; 000236 aa 6 00032 3715 20 epp5 pr6|26,* 000237 aa 5 00002 3535 20 epp3 pr5|2,* 000240 aa 040 100 106 540 cmpc (pr,rl),(pr),fill(040) 000241 aa 3 00000 00 0006 desc9a pr3|0,ql P_dirname 000242 ia 4 00014 00 0250 desc9a pr4|12,168 saved_pnt_dir 000243 aa 0 00631 6001 00 tze pr0|409 return STATEMENT 1 ON LINE 143 else do; STATEMENT 1 ON LINE 144 saved_pnt_dir = P_dirname; 000244 aa 040 100 100 540 mlr (pr,rl),(pr),fill(040) 000245 aa 3 00000 00 0006 desc9a pr3|0,ql P_dirname 000246 ia 4 00014 00 0250 desc9a pr4|12,168 saved_pnt_dir STATEMENT 1 ON LINE 145 if pnt_ptr ^= null () then /* We had an old one */ call CLEAN_UP (); 000247 ia 4 00012 2371 00 ldaq pr4|10 pnt_ptr 000250 aa 777574 6770 04 eraq -132,ic 000044 = 077777000043 000001000000 000251 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 000252 aa 000002 6000 04 tze 2,ic 000254 000253 aa 003107 6700 04 tsp4 1607,ic 003362 STATEMENT 1 ON LINE 148 end; STATEMENT 1 ON LINE 150 if already_swapped_refnames then /* only need do this once */ return; 000254 aa 6 00044 3701 20 epp4 pr6|36,* 000255 ia 4 00010 2351 00 lda pr4|8 already_swapped_refnames 000256 aa 0 00631 6011 00 tnz pr0|409 return STATEMENT 1 ON LINE 159 call hcs_$fs_get_seg_ptr ("pnt_manager_", seg_ptr, code); 000257 aa 777571 2370 04 ldaq -135,ic 000050 = 160156164137 155141156141 000260 aa 6 00212 7571 00 staq pr6|138 000261 aa 777571 2350 04 lda -135,ic 000052 = 147145162137 000262 aa 6 00214 7551 00 sta pr6|140 000263 aa 6 00212 3521 00 epp2 pr6|138 000264 aa 6 00220 2521 00 spri2 pr6|144 000265 aa 6 00164 3521 00 epp2 pr6|116 seg_ptr 000266 aa 6 00222 2521 00 spri2 pr6|146 000267 aa 6 00100 3521 00 epp2 pr6|64 code 000270 aa 6 00224 2521 00 spri2 pr6|148 000271 aa 777543 3520 04 epp2 -157,ic 000034 = 524000000014 000272 aa 6 00226 2521 00 spri2 pr6|150 000273 aa 777550 3520 04 epp2 -152,ic 000043 = 464000000000 000274 aa 6 00230 2521 00 spri2 pr6|152 000275 aa 777545 3520 04 epp2 -155,ic 000042 = 404000000043 000276 aa 6 00232 2521 00 spri2 pr6|154 000277 aa 6 00216 6211 00 eax1 pr6|142 000300 aa 014000 4310 07 fld 6144,dl 000301 la 4 00070 3521 20 epp2 pr4|56,* hcs_$fs_get_seg_ptr 000302 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 160 if code ^= 0 then do; 000303 aa 6 00100 2361 00 ldq pr6|64 code 000304 aa 000046 6000 04 tze 38,ic 000352 STATEMENT 1 ON LINE 162 call CLEAN_UP (); 000305 aa 003055 6700 04 tsp4 1581,ic 003362 STATEMENT 1 ON LINE 163 call sub_err_ (code, ME, ACTION_CANT_RESTART, null (), (0), "Attempting to get ptr to pnt_manager_."); 000306 aa 777536 3734 24 epp7 -162,ic* 000307 aa 6 00234 6535 00 spri7 pr6|156 000310 aa 6 00215 4501 00 stz pr6|141 000311 aa 000 100 100 404 mlr (ic),(pr),fill(000) 000312 aa 777561 00 0050 desc9a -143,40 000072 = 101164164145 000313 aa 6 00216 00 0050 desc9a pr6|142,40 000314 aa 6 00100 3521 00 epp2 pr6|64 code 000315 aa 6 00240 2521 00 spri2 pr6|160 000316 aa 777464 3520 04 epp2 -204,ic 000002 = 164145163164 000317 aa 6 00242 2521 00 spri2 pr6|162 000320 aa 777474 3520 04 epp2 -196,ic 000014 = 400000000000 000321 aa 6 00244 2521 00 spri2 pr6|164 000322 aa 6 00234 3521 00 epp2 pr6|156 000323 aa 6 00246 2521 00 spri2 pr6|166 000324 aa 6 00215 3521 00 epp2 pr6|141 000325 aa 6 00250 2521 00 spri2 pr6|168 000326 aa 6 00216 3521 00 epp2 pr6|142 000327 aa 6 00252 2521 00 spri2 pr6|170 000330 aa 777512 3520 04 epp2 -182,ic 000042 = 404000000043 000331 aa 6 00254 2521 00 spri2 pr6|172 000332 aa 777500 3520 04 epp2 -192,ic 000032 = 526000000040 000333 aa 6 00256 2521 00 spri2 pr6|174 000334 aa 777475 3520 04 epp2 -195,ic 000031 = 514000000044 000335 aa 6 00260 2521 00 spri2 pr6|176 000336 aa 777505 3520 04 epp2 -187,ic 000043 = 464000000000 000337 aa 6 00262 2521 00 spri2 pr6|178 000340 aa 777470 3520 04 epp2 -200,ic 000030 = 404000000005 000341 aa 6 00264 2521 00 spri2 pr6|180 000342 aa 777465 3520 04 epp2 -203,ic 000027 = 524000000046 000343 aa 6 00266 2521 00 spri2 pr6|182 000344 aa 6 00236 6211 00 eax1 pr6|158 000345 aa 030000 4310 07 fld 12288,dl 000346 aa 6 00044 3701 20 epp4 pr6|36,* 000347 la 4 00154 3521 20 epp2 pr4|108,* sub_err_ 000350 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 164 return; 000351 aa 0 00631 7101 00 tra pr0|409 return STATEMENT 1 ON LINE 165 end; STATEMENT 1 ON LINE 167 call hcs_$fs_get_path_name (seg_ptr, dirname, (0), entryname, code); 000352 aa 6 00215 4501 00 stz pr6|141 000353 aa 6 00164 3521 00 epp2 pr6|116 seg_ptr 000354 aa 6 00240 2521 00 spri2 pr6|160 000355 aa 6 00101 3521 00 epp2 pr6|65 dirname 000356 aa 6 00242 2521 00 spri2 pr6|162 000357 aa 6 00215 3521 00 epp2 pr6|141 000360 aa 6 00244 2521 00 spri2 pr6|164 000361 aa 6 00153 3521 00 epp2 pr6|107 entryname 000362 aa 6 00246 2521 00 spri2 pr6|166 000363 aa 6 00100 3521 00 epp2 pr6|64 code 000364 aa 6 00250 2521 00 spri2 pr6|168 000365 aa 777456 3520 04 epp2 -210,ic 000043 = 464000000000 000366 aa 6 00252 2521 00 spri2 pr6|170 000367 aa 777450 3520 04 epp2 -216,ic 000037 = 526000000250 000370 aa 6 00254 2521 00 spri2 pr6|172 000371 aa 777435 3520 04 epp2 -227,ic 000026 = 404000000021 000372 aa 6 00256 2521 00 spri2 pr6|174 000373 aa 777437 3520 04 epp2 -225,ic 000032 = 526000000040 000374 aa 6 00260 2521 00 spri2 pr6|176 000375 aa 777445 3520 04 epp2 -219,ic 000042 = 404000000043 000376 aa 6 00262 2521 00 spri2 pr6|178 000377 aa 6 00236 6211 00 eax1 pr6|158 000400 aa 024000 4310 07 fld 10240,dl 000401 aa 6 00044 3701 20 epp4 pr6|36,* 000402 la 4 00066 3521 20 epp2 pr4|54,* hcs_$fs_get_path_name 000403 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 168 if code ^= 0 then do; 000404 aa 6 00100 2361 00 ldq pr6|64 code 000405 aa 000046 6000 04 tze 38,ic 000453 STATEMENT 1 ON LINE 170 call CLEAN_UP (); 000406 aa 002754 6700 04 tsp4 1516,ic 003362 STATEMENT 1 ON LINE 171 call sub_err_ (code, ME, ACTION_CANT_RESTART, null (), (0), "Attempting to get pathname of ""pnt_manager_""."); 000407 aa 777435 3734 24 epp7 -227,ic* 000410 aa 6 00234 6535 00 spri7 pr6|156 000411 aa 6 00215 4501 00 stz pr6|141 000412 aa 000 100 100 404 mlr (ic),(pr),fill(000) 000413 aa 777472 00 0060 desc9a -198,48 000104 = 101164164145 000414 aa 6 00216 00 0060 desc9a pr6|142,48 000415 aa 6 00100 3521 00 epp2 pr6|64 code 000416 aa 6 00240 2521 00 spri2 pr6|160 000417 aa 777363 3520 04 epp2 -269,ic 000002 = 164145163164 000420 aa 6 00242 2521 00 spri2 pr6|162 000421 aa 777373 3520 04 epp2 -261,ic 000014 = 400000000000 000422 aa 6 00244 2521 00 spri2 pr6|164 000423 aa 6 00234 3521 00 epp2 pr6|156 000424 aa 6 00246 2521 00 spri2 pr6|166 000425 aa 6 00215 3521 00 epp2 pr6|141 000426 aa 6 00250 2521 00 spri2 pr6|168 000427 aa 6 00216 3521 00 epp2 pr6|142 000430 aa 6 00252 2521 00 spri2 pr6|170 000431 aa 777411 3520 04 epp2 -247,ic 000042 = 404000000043 000432 aa 6 00254 2521 00 spri2 pr6|172 000433 aa 777377 3520 04 epp2 -257,ic 000032 = 526000000040 000434 aa 6 00256 2521 00 spri2 pr6|174 000435 aa 777374 3520 04 epp2 -260,ic 000031 = 514000000044 000436 aa 6 00260 2521 00 spri2 pr6|176 000437 aa 777404 3520 04 epp2 -252,ic 000043 = 464000000000 000440 aa 6 00262 2521 00 spri2 pr6|178 000441 aa 777367 3520 04 epp2 -265,ic 000030 = 404000000005 000442 aa 6 00264 2521 00 spri2 pr6|180 000443 aa 777362 3520 04 epp2 -270,ic 000025 = 524000000055 000444 aa 6 00266 2521 00 spri2 pr6|182 000445 aa 6 00236 6211 00 eax1 pr6|158 000446 aa 030000 4310 07 fld 12288,dl 000447 aa 6 00044 3701 20 epp4 pr6|36,* 000450 la 4 00154 3521 20 epp2 pr4|108,* sub_err_ 000451 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 173 return; 000452 aa 0 00631 7101 00 tra pr0|409 return STATEMENT 1 ON LINE 174 end; STATEMENT 1 ON LINE 176 call hcs_$initiate ((dirname), entryname, unique_chars_ (unique_bits_ ()), 0, 0, seg_ptr, code); 000453 aa 000 100 100 500 mlr (pr),(pr),fill(000) 000454 aa 6 00101 00 0250 desc9a pr6|65,168 dirname 000455 aa 6 00270 00 0250 desc9a pr6|184,168 000456 aa 6 00234 3521 00 epp2 pr6|156 000457 aa 6 00220 2521 00 spri2 pr6|144 000460 aa 6 00216 6211 00 eax1 pr6|142 000461 aa 004000 4310 07 fld 2048,dl 000462 aa 6 00044 3701 20 epp4 pr6|36,* 000463 la 4 00162 3521 20 epp2 pr4|114,* unique_bits_ 000464 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out 000465 aa 6 00234 3521 00 epp2 pr6|156 000466 aa 6 00240 2521 00 spri2 pr6|160 000467 aa 6 00216 3521 00 epp2 pr6|142 000470 aa 6 00242 2521 00 spri2 pr6|162 000471 aa 777332 3520 04 epp2 -294,ic 000023 = 514000000106 000472 aa 6 00244 2521 00 spri2 pr6|164 000473 aa 777343 3520 04 epp2 -285,ic 000036 = 526000000017 000474 aa 6 00246 2521 00 spri2 pr6|166 000475 aa 6 00236 6211 00 eax1 pr6|158 000476 aa 010000 4310 07 fld 4096,dl 000477 aa 6 00044 3701 20 epp4 pr6|36,* 000500 la 4 00160 3521 20 epp2 pr4|112,* unique_chars_ 000501 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 000502 aa 6 00215 4501 00 stz pr6|141 000503 aa 6 00211 4501 00 stz pr6|137 000504 aa 6 00270 3521 00 epp2 pr6|184 000505 aa 6 00344 2521 00 spri2 pr6|228 000506 aa 6 00153 3521 00 epp2 pr6|107 entryname 000507 aa 6 00346 2521 00 spri2 pr6|230 000510 aa 6 00216 3521 00 epp2 pr6|142 000511 aa 6 00350 2521 00 spri2 pr6|232 000512 aa 6 00215 3521 00 epp2 pr6|141 000513 aa 6 00352 2521 00 spri2 pr6|234 000514 aa 6 00211 3521 00 epp2 pr6|137 000515 aa 6 00354 2521 00 spri2 pr6|236 000516 aa 6 00164 3521 00 epp2 pr6|116 seg_ptr 000517 aa 6 00356 2521 00 spri2 pr6|238 000520 aa 6 00100 3521 00 epp2 pr6|64 code 000521 aa 6 00360 2521 00 spri2 pr6|240 000522 aa 777302 3520 04 epp2 -318,ic 000024 = 524000000250 000523 aa 6 00362 2521 00 spri2 pr6|242 000524 aa 777306 3520 04 epp2 -314,ic 000032 = 526000000040 000525 aa 6 00364 2521 00 spri2 pr6|244 000526 aa 777274 3520 04 epp2 -324,ic 000022 = 524000000017 000527 aa 6 00366 2521 00 spri2 pr6|246 000530 aa 777271 3520 04 epp2 -327,ic 000021 = 404000000001 000531 aa 6 00370 2521 00 spri2 pr6|248 000532 aa 777266 3520 04 epp2 -330,ic 000020 = 404000000002 000533 aa 6 00372 2521 00 spri2 pr6|250 000534 aa 777307 3520 04 epp2 -313,ic 000043 = 464000000000 000535 aa 6 00374 2521 00 spri2 pr6|252 000536 aa 777304 3520 04 epp2 -316,ic 000042 = 404000000043 000537 aa 6 00376 2521 00 spri2 pr6|254 000540 aa 6 00342 6211 00 eax1 pr6|226 000541 aa 034000 4310 07 fld 14336,dl 000542 aa 6 00044 3701 20 epp4 pr6|36,* 000543 la 4 00072 3521 20 epp2 pr4|58,* hcs_$initiate 000544 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 177 if code ^= error_table_$segknown & code ^= 0 then do; 000545 aa 6 00100 2361 00 ldq pr6|64 code 000546 aa 6 00044 3701 20 epp4 pr6|36,* 000547 la 4 00164 1161 20 cmpq pr4|116,* error_table_$segknown 000550 aa 000074 6000 04 tze 60,ic 000644 000551 aa 6 00100 2361 00 ldq pr6|64 code 000552 aa 000072 6000 04 tze 58,ic 000644 STATEMENT 1 ON LINE 179 call CLEAN_UP (); 000553 aa 002607 6700 04 tsp4 1415,ic 003362 STATEMENT 1 ON LINE 180 call sub_err_ (code, ME, ACTION_CANT_RESTART, null (), (0), "Attempting to add shriekname reference name to ^a", pathname_ (dirname, entryname)); 000554 aa 777270 3734 24 epp7 -328,ic* 000555 aa 6 00234 6535 00 spri7 pr6|156 000556 aa 6 00211 4501 00 stz pr6|137 000557 aa 000 100 100 404 mlr (ic),(pr),fill(000) 000560 aa 777356 00 0064 desc9a -274,52 000135 = 101164164145 000561 aa 6 00216 00 0064 desc9a pr6|142,52 000562 aa 6 00101 3521 00 epp2 pr6|65 dirname 000563 aa 6 00240 2521 00 spri2 pr6|160 000564 aa 6 00153 3521 00 epp2 pr6|107 entryname 000565 aa 6 00242 2521 00 spri2 pr6|162 000566 aa 6 00270 3521 00 epp2 pr6|184 000567 aa 6 00244 2521 00 spri2 pr6|164 000570 aa 777247 3520 04 epp2 -345,ic 000037 = 526000000250 000571 aa 6 00246 2521 00 spri2 pr6|166 000572 aa 6 00252 2521 00 spri2 pr6|170 000573 aa 777237 3520 04 epp2 -353,ic 000032 = 526000000040 000574 aa 6 00250 2521 00 spri2 pr6|168 000575 aa 6 00236 6211 00 eax1 pr6|158 000576 aa 014000 4310 07 fld 6144,dl 000577 aa 6 00044 3701 20 epp4 pr6|36,* 000600 la 4 00074 3521 20 epp2 pr4|60,* pathname_ 000601 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 000602 aa 6 00100 3521 00 epp2 pr6|64 code 000603 aa 6 00344 2521 00 spri2 pr6|228 000604 aa 777176 3520 04 epp2 -386,ic 000002 = 164145163164 000605 aa 6 00346 2521 00 spri2 pr6|230 000606 aa 777206 3520 04 epp2 -378,ic 000014 = 400000000000 000607 aa 6 00350 2521 00 spri2 pr6|232 000610 aa 6 00234 3521 00 epp2 pr6|156 000611 aa 6 00352 2521 00 spri2 pr6|234 000612 aa 6 00211 3521 00 epp2 pr6|137 000613 aa 6 00354 2521 00 spri2 pr6|236 000614 aa 6 00216 3521 00 epp2 pr6|142 000615 aa 6 00356 2521 00 spri2 pr6|238 000616 aa 6 00270 3521 00 epp2 pr6|184 000617 aa 6 00360 2521 00 spri2 pr6|240 000620 aa 777222 3520 04 epp2 -366,ic 000042 = 404000000043 000621 aa 6 00362 2521 00 spri2 pr6|242 000622 aa 777210 3520 04 epp2 -376,ic 000032 = 526000000040 000623 aa 6 00364 2521 00 spri2 pr6|244 000624 aa 777205 3520 04 epp2 -379,ic 000031 = 514000000044 000625 aa 6 00366 2521 00 spri2 pr6|246 000626 aa 777215 3520 04 epp2 -371,ic 000043 = 464000000000 000627 aa 6 00370 2521 00 spri2 pr6|248 000630 aa 777200 3520 04 epp2 -384,ic 000030 = 404000000005 000631 aa 6 00372 2521 00 spri2 pr6|250 000632 aa 777165 3520 04 epp2 -395,ic 000017 = 524000000061 000633 aa 6 00374 2521 00 spri2 pr6|252 000634 aa 777170 3520 04 epp2 -392,ic 000024 = 524000000250 000635 aa 6 00376 2521 00 spri2 pr6|254 000636 aa 6 00342 6211 00 eax1 pr6|226 000637 aa 034000 4310 07 fld 14336,dl 000640 aa 6 00044 3701 20 epp4 pr6|36,* 000641 la 4 00154 3521 20 epp2 pr4|108,* sub_err_ 000642 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 182 return; 000643 aa 0 00631 7101 00 tra pr0|409 return STATEMENT 1 ON LINE 183 end; STATEMENT 1 ON LINE 185 call term_$single_refname ("pnt_manager_", code); 000644 aa 777204 2370 04 ldaq -380,ic 000050 = 160156164137 155141156141 000645 aa 6 00212 7571 00 staq pr6|138 000646 aa 777204 2350 04 lda -380,ic 000052 = 147145162137 000647 aa 6 00214 7551 00 sta pr6|140 000650 aa 6 00212 3521 00 epp2 pr6|138 000651 aa 6 00220 2521 00 spri2 pr6|144 000652 aa 6 00100 3521 00 epp2 pr6|64 code 000653 aa 6 00222 2521 00 spri2 pr6|146 000654 aa 777160 3520 04 epp2 -400,ic 000034 = 524000000014 000655 aa 6 00224 2521 00 spri2 pr6|148 000656 aa 777164 3520 04 epp2 -396,ic 000042 = 404000000043 000657 aa 6 00226 2521 00 spri2 pr6|150 000660 aa 6 00216 6211 00 eax1 pr6|142 000661 aa 010000 4310 07 fld 4096,dl 000662 la 4 00156 3521 20 epp2 pr4|110,* term_$single_refname 000663 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 186 if code ^= 0 then do; 000664 aa 6 00100 2361 00 ldq pr6|64 code 000665 aa 000046 6000 04 tze 38,ic 000733 STATEMENT 1 ON LINE 188 call CLEAN_UP (); 000666 aa 002474 6700 04 tsp4 1340,ic 003362 STATEMENT 1 ON LINE 189 call sub_err_ (code, ME, ACTION_CANT_RESTART, null (), (0), "Attempting to terminate reference name ""pnt_manager_"""); 000667 aa 777155 3734 24 epp7 -403,ic* 000670 aa 6 00234 6535 00 spri7 pr6|156 000671 aa 6 00211 4501 00 stz pr6|137 000672 aa 000 100 100 404 mlr (ic),(pr),fill(000) 000673 aa 777260 00 0070 desc9a -336,56 000152 = 101164164145 000674 aa 6 00216 00 0070 desc9a pr6|142,56 000675 aa 6 00100 3521 00 epp2 pr6|64 code 000676 aa 6 00240 2521 00 spri2 pr6|160 000677 aa 777103 3520 04 epp2 -445,ic 000002 = 164145163164 000700 aa 6 00242 2521 00 spri2 pr6|162 000701 aa 777113 3520 04 epp2 -437,ic 000014 = 400000000000 000702 aa 6 00244 2521 00 spri2 pr6|164 000703 aa 6 00234 3521 00 epp2 pr6|156 000704 aa 6 00246 2521 00 spri2 pr6|166 000705 aa 6 00211 3521 00 epp2 pr6|137 000706 aa 6 00250 2521 00 spri2 pr6|168 000707 aa 6 00216 3521 00 epp2 pr6|142 000710 aa 6 00252 2521 00 spri2 pr6|170 000711 aa 777131 3520 04 epp2 -423,ic 000042 = 404000000043 000712 aa 6 00254 2521 00 spri2 pr6|172 000713 aa 777117 3520 04 epp2 -433,ic 000032 = 526000000040 000714 aa 6 00256 2521 00 spri2 pr6|174 000715 aa 777114 3520 04 epp2 -436,ic 000031 = 514000000044 000716 aa 6 00260 2521 00 spri2 pr6|176 000717 aa 777124 3520 04 epp2 -428,ic 000043 = 464000000000 000720 aa 6 00262 2521 00 spri2 pr6|178 000721 aa 777107 3520 04 epp2 -441,ic 000030 = 404000000005 000722 aa 6 00264 2521 00 spri2 pr6|180 000723 aa 777073 3520 04 epp2 -453,ic 000016 = 524000000065 000724 aa 6 00266 2521 00 spri2 pr6|182 000725 aa 6 00236 6211 00 eax1 pr6|158 000726 aa 030000 4310 07 fld 12288,dl 000727 aa 6 00044 3701 20 epp4 pr6|36,* 000730 la 4 00154 3521 20 epp2 pr4|108,* sub_err_ 000731 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 191 return; 000732 aa 0 00631 7101 00 tra pr0|409 return STATEMENT 1 ON LINE 192 end; STATEMENT 1 ON LINE 194 call hcs_$fs_get_path_name (codeptr (test_pnt_manager_), dirname, (0), entryname, code); 000733 aa 777240 3520 04 epp2 -352,ic 000173 = 000600627000 000734 aa 6 00234 2521 00 spri2 pr6|156 000735 aa 6 00211 4501 00 stz pr6|137 000736 aa 6 00234 3521 00 epp2 pr6|156 000737 aa 6 00240 2521 00 spri2 pr6|160 000740 aa 6 00101 3521 00 epp2 pr6|65 dirname 000741 aa 6 00242 2521 00 spri2 pr6|162 000742 aa 6 00211 3521 00 epp2 pr6|137 000743 aa 6 00244 2521 00 spri2 pr6|164 000744 aa 6 00153 3521 00 epp2 pr6|107 entryname 000745 aa 6 00246 2521 00 spri2 pr6|166 000746 aa 6 00100 3521 00 epp2 pr6|64 code 000747 aa 6 00250 2521 00 spri2 pr6|168 000750 aa 777073 3520 04 epp2 -453,ic 000043 = 464000000000 000751 aa 6 00252 2521 00 spri2 pr6|170 000752 aa 777065 3520 04 epp2 -459,ic 000037 = 526000000250 000753 aa 6 00254 2521 00 spri2 pr6|172 000754 aa 777052 3520 04 epp2 -470,ic 000026 = 404000000021 000755 aa 6 00256 2521 00 spri2 pr6|174 000756 aa 777054 3520 04 epp2 -468,ic 000032 = 526000000040 000757 aa 6 00260 2521 00 spri2 pr6|176 000760 aa 777062 3520 04 epp2 -462,ic 000042 = 404000000043 000761 aa 6 00262 2521 00 spri2 pr6|178 000762 aa 6 00236 6211 00 eax1 pr6|158 000763 aa 024000 4310 07 fld 10240,dl 000764 aa 6 00044 3701 20 epp4 pr6|36,* 000765 la 4 00066 3521 20 epp2 pr4|54,* hcs_$fs_get_path_name 000766 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 195 if code ^= 0 then do; 000767 aa 6 00100 2361 00 ldq pr6|64 code 000770 aa 000051 6000 04 tze 41,ic 001041 STATEMENT 1 ON LINE 197 call CLEAN_UP (); 000771 aa 002371 6700 04 tsp4 1273,ic 003362 STATEMENT 1 ON LINE 198 call sub_err_ (code, ME, ACTION_CANT_RESTART, null (), (0), "Attempting to get pathname of ^a", ME); 000772 aa 777052 3734 24 epp7 -470,ic* 000773 aa 6 00234 6535 00 spri7 pr6|156 000774 aa 6 00211 4501 00 stz pr6|137 000775 aa 000 100 100 404 mlr (ic),(pr),fill(000) 000776 aa 777065 00 0040 desc9a -459,32 000062 = 101164164145 000777 aa 6 00216 00 0040 desc9a pr6|142,32 001000 aa 6 00100 3521 00 epp2 pr6|64 code 001001 aa 6 00344 2521 00 spri2 pr6|228 001002 aa 777000 3520 04 epp2 -512,ic 000002 = 164145163164 001003 aa 6 00346 2521 00 spri2 pr6|230 001004 aa 777010 3520 04 epp2 -504,ic 000014 = 400000000000 001005 aa 6 00350 2521 00 spri2 pr6|232 001006 aa 6 00234 3521 00 epp2 pr6|156 001007 aa 6 00352 2521 00 spri2 pr6|234 001010 aa 6 00211 3521 00 epp2 pr6|137 001011 aa 6 00354 2521 00 spri2 pr6|236 001012 aa 6 00216 3521 00 epp2 pr6|142 001013 aa 6 00356 2521 00 spri2 pr6|238 001014 aa 776766 3520 04 epp2 -522,ic 000002 = 164145163164 001015 aa 6 00360 2521 00 spri2 pr6|240 001016 aa 777024 3520 04 epp2 -492,ic 000042 = 404000000043 001017 aa 6 00362 2521 00 spri2 pr6|242 001020 aa 777012 3520 04 epp2 -502,ic 000032 = 526000000040 001021 aa 6 00364 2521 00 spri2 pr6|244 001022 aa 6 00376 2521 00 spri2 pr6|254 001023 aa 777006 3520 04 epp2 -506,ic 000031 = 514000000044 001024 aa 6 00366 2521 00 spri2 pr6|246 001025 aa 777016 3520 04 epp2 -498,ic 000043 = 464000000000 001026 aa 6 00370 2521 00 spri2 pr6|248 001027 aa 777001 3520 04 epp2 -511,ic 000030 = 404000000005 001030 aa 6 00372 2521 00 spri2 pr6|250 001031 aa 776764 3520 04 epp2 -524,ic 000015 = 524000000040 001032 aa 6 00374 2521 00 spri2 pr6|252 001033 aa 6 00342 6211 00 eax1 pr6|226 001034 aa 034000 4310 07 fld 14336,dl 001035 aa 6 00044 3701 20 epp4 pr6|36,* 001036 la 4 00154 3521 20 epp2 pr4|108,* sub_err_ 001037 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 199 return; 001040 aa 0 00631 7101 00 tra pr0|409 return STATEMENT 1 ON LINE 200 end; STATEMENT 1 ON LINE 202 call hcs_$initiate (dirname, entryname, "pnt_manager_", 0, 0, seg_ptr, code); 001041 aa 777007 2370 04 ldaq -505,ic 000050 = 160156164137 155141156141 001042 aa 6 00212 7571 00 staq pr6|138 001043 aa 777007 2350 04 lda -505,ic 000052 = 147145162137 001044 aa 6 00214 7551 00 sta pr6|140 001045 aa 6 00211 4501 00 stz pr6|137 001046 aa 6 00215 4501 00 stz pr6|141 001047 aa 6 00101 3521 00 epp2 pr6|65 dirname 001050 aa 6 00344 2521 00 spri2 pr6|228 001051 aa 6 00153 3521 00 epp2 pr6|107 entryname 001052 aa 6 00346 2521 00 spri2 pr6|230 001053 aa 6 00212 3521 00 epp2 pr6|138 001054 aa 6 00350 2521 00 spri2 pr6|232 001055 aa 6 00211 3521 00 epp2 pr6|137 001056 aa 6 00352 2521 00 spri2 pr6|234 001057 aa 6 00215 3521 00 epp2 pr6|141 001060 aa 6 00354 2521 00 spri2 pr6|236 001061 aa 6 00164 3521 00 epp2 pr6|116 seg_ptr 001062 aa 6 00356 2521 00 spri2 pr6|238 001063 aa 6 00100 3521 00 epp2 pr6|64 code 001064 aa 6 00360 2521 00 spri2 pr6|240 001065 aa 776752 3520 04 epp2 -534,ic 000037 = 526000000250 001066 aa 6 00362 2521 00 spri2 pr6|242 001067 aa 776743 3520 04 epp2 -541,ic 000032 = 526000000040 001070 aa 6 00364 2521 00 spri2 pr6|244 001071 aa 776743 3520 04 epp2 -541,ic 000034 = 524000000014 001072 aa 6 00366 2521 00 spri2 pr6|246 001073 aa 776726 3520 04 epp2 -554,ic 000021 = 404000000001 001074 aa 6 00370 2521 00 spri2 pr6|248 001075 aa 776723 3520 04 epp2 -557,ic 000020 = 404000000002 001076 aa 6 00372 2521 00 spri2 pr6|250 001077 aa 776744 3520 04 epp2 -540,ic 000043 = 464000000000 001100 aa 6 00374 2521 00 spri2 pr6|252 001101 aa 776741 3520 04 epp2 -543,ic 000042 = 404000000043 001102 aa 6 00376 2521 00 spri2 pr6|254 001103 aa 6 00342 6211 00 eax1 pr6|226 001104 aa 034000 4310 07 fld 14336,dl 001105 aa 6 00044 3701 20 epp4 pr6|36,* 001106 la 4 00072 3521 20 epp2 pr4|58,* hcs_$initiate 001107 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 203 if code ^= 0 & code ^= error_table_$segknown then do; 001110 aa 6 00100 2361 00 ldq pr6|64 code 001111 aa 000075 6000 04 tze 61,ic 001206 001112 aa 6 00044 3701 20 epp4 pr6|36,* 001113 la 4 00164 1161 20 cmpq pr4|116,* error_table_$segknown 001114 aa 000072 6000 04 tze 58,ic 001206 STATEMENT 1 ON LINE 205 call CLEAN_UP (); 001115 aa 002245 6700 04 tsp4 1189,ic 003362 STATEMENT 1 ON LINE 206 call sub_err_ (code, ME, ACTION_CANT_RESTART, null (), (0), "Attempting to add refname of ""pnt_manager_"" to ^a", pathname_ (dirname, entryname)); 001116 aa 776726 3734 24 epp7 -554,ic* 001117 aa 6 00234 6535 00 spri7 pr6|156 001120 aa 6 00215 4501 00 stz pr6|141 001121 aa 000 100 100 404 mlr (ic),(pr),fill(000) 001122 aa 776777 00 0064 desc9a -513,52 000120 = 101164164145 001123 aa 6 00216 00 0064 desc9a pr6|142,52 001124 aa 6 00101 3521 00 epp2 pr6|65 dirname 001125 aa 6 00240 2521 00 spri2 pr6|160 001126 aa 6 00153 3521 00 epp2 pr6|107 entryname 001127 aa 6 00242 2521 00 spri2 pr6|162 001130 aa 6 00270 3521 00 epp2 pr6|184 001131 aa 6 00244 2521 00 spri2 pr6|164 001132 aa 776705 3520 04 epp2 -571,ic 000037 = 526000000250 001133 aa 6 00246 2521 00 spri2 pr6|166 001134 aa 6 00252 2521 00 spri2 pr6|170 001135 aa 776675 3520 04 epp2 -579,ic 000032 = 526000000040 001136 aa 6 00250 2521 00 spri2 pr6|168 001137 aa 6 00236 6211 00 eax1 pr6|158 001140 aa 014000 4310 07 fld 6144,dl 001141 aa 6 00044 3701 20 epp4 pr6|36,* 001142 la 4 00074 3521 20 epp2 pr4|60,* pathname_ 001143 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 001144 aa 6 00100 3521 00 epp2 pr6|64 code 001145 aa 6 00344 2521 00 spri2 pr6|228 001146 aa 776634 3520 04 epp2 -612,ic 000002 = 164145163164 001147 aa 6 00346 2521 00 spri2 pr6|230 001150 aa 776644 3520 04 epp2 -604,ic 000014 = 400000000000 001151 aa 6 00350 2521 00 spri2 pr6|232 001152 aa 6 00234 3521 00 epp2 pr6|156 001153 aa 6 00352 2521 00 spri2 pr6|234 001154 aa 6 00215 3521 00 epp2 pr6|141 001155 aa 6 00354 2521 00 spri2 pr6|236 001156 aa 6 00216 3521 00 epp2 pr6|142 001157 aa 6 00356 2521 00 spri2 pr6|238 001160 aa 6 00270 3521 00 epp2 pr6|184 001161 aa 6 00360 2521 00 spri2 pr6|240 001162 aa 776660 3520 04 epp2 -592,ic 000042 = 404000000043 001163 aa 6 00362 2521 00 spri2 pr6|242 001164 aa 776646 3520 04 epp2 -602,ic 000032 = 526000000040 001165 aa 6 00364 2521 00 spri2 pr6|244 001166 aa 776643 3520 04 epp2 -605,ic 000031 = 514000000044 001167 aa 6 00366 2521 00 spri2 pr6|246 001170 aa 776653 3520 04 epp2 -597,ic 000043 = 464000000000 001171 aa 6 00370 2521 00 spri2 pr6|248 001172 aa 776636 3520 04 epp2 -610,ic 000030 = 404000000005 001173 aa 6 00372 2521 00 spri2 pr6|250 001174 aa 776623 3520 04 epp2 -621,ic 000017 = 524000000061 001175 aa 6 00374 2521 00 spri2 pr6|252 001176 aa 776626 3520 04 epp2 -618,ic 000024 = 524000000250 001177 aa 6 00376 2521 00 spri2 pr6|254 001200 aa 6 00342 6211 00 eax1 pr6|226 001201 aa 034000 4310 07 fld 14336,dl 001202 aa 6 00044 3701 20 epp4 pr6|36,* 001203 la 4 00154 3521 20 epp2 pr4|108,* sub_err_ 001204 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 208 return; 001205 aa 0 00631 7101 00 tra pr0|409 return STATEMENT 1 ON LINE 209 end; STATEMENT 1 ON LINE 211 already_swapped_refnames = "1"b; 001206 aa 400000 2350 03 lda 131072,du 001207 aa 6 00044 3701 20 epp4 pr6|36,* 001210 ia 4 00010 7551 00 sta pr4|8 already_swapped_refnames STATEMENT 1 ON LINE 213 return; 001211 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO add_acl_entries STATEMENT 1 ON LINE 220 add_acl_entries: entry (P_dirname, P_entryname, P_acl_ptr, P_code); 001212 at 000004000041 001213 tt 000041000043 001214 ta 000042000000 001215 ta 001212000000 001216 da 000374300000 001217 aa 000600 6270 00 eax7 384 001220 aa 7 00034 3521 20 epp2 pr7|28,* 001221 aa 2 01046 2721 00 tsp2 pr2|550 ext_entry_desc 001222 aa 000010000000 001223 aa 000000000000 001224 aa 6 00042 3735 20 epp7 pr6|34,* 001225 aa 7 00000 2361 20 ldq pr7|0,* 001226 aa 000002 6040 04 tmi 2,ic 001230 001227 aa 777777 3760 07 anq 262143,dl 001230 aa 0 00250 3761 00 anq pr0|168 = 000077777777 001231 aa 6 00210 7561 00 stq pr6|136 001232 aa 7 00002 2361 20 ldq pr7|2,* 001233 aa 000002 6040 04 tmi 2,ic 001235 001234 aa 777777 3760 07 anq 262143,dl 001235 aa 0 00250 3761 00 anq pr0|168 = 000077777777 001236 aa 6 00400 7561 00 stq pr6|256 001237 aa 6 00032 3715 20 epp5 pr6|26,* 001240 aa 5 00006 3535 20 epp3 pr5|6,* 001241 aa 6 00166 2535 00 spri3 pr6|118 001242 aa 5 00010 3515 20 epp1 pr5|8,* 001243 aa 6 00170 2515 00 spri1 pr6|120 STATEMENT 1 ON LINE 223 call pnt_fs_util_$add_acl_entries (P_dirname, P_entryname, P_acl_ptr, P_code); 001244 aa 6 00032 3735 20 epp7 pr6|26,* 001245 aa 7 00002 3521 20 epp2 pr7|2,* P_dirname 001246 aa 6 00240 2521 00 spri2 pr6|160 001247 aa 7 00004 3521 20 epp2 pr7|4,* P_entryname 001250 aa 6 00242 2521 00 spri2 pr6|162 001251 aa 6 00166 3521 20 epp2 pr6|118,* P_acl_ptr 001252 aa 6 00244 2521 00 spri2 pr6|164 001253 aa 6 00170 3521 20 epp2 pr6|120,* P_code 001254 aa 6 00246 2521 00 spri2 pr6|166 001255 aa 6 00042 3715 20 epp5 pr6|34,* 001256 aa 5 00000 3521 20 epp2 pr5|0,* 001257 aa 6 00250 2521 00 spri2 pr6|168 001260 aa 5 00002 3521 20 epp2 pr5|2,* 001261 aa 6 00252 2521 00 spri2 pr6|170 001262 aa 776561 3520 04 epp2 -655,ic 000043 = 464000000000 001263 aa 6 00254 2521 00 spri2 pr6|172 001264 aa 776556 3520 04 epp2 -658,ic 000042 = 404000000043 001265 aa 6 00256 2521 00 spri2 pr6|174 001266 aa 6 00236 6211 00 eax1 pr6|158 001267 aa 020000 4310 07 fld 8192,dl 001270 aa 6 00044 3701 20 epp4 pr6|36,* 001271 la 4 00132 3521 20 epp2 pr4|90,* pnt_fs_util_$add_acl_entries 001272 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 224 return; 001273 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO add_entry STATEMENT 1 ON LINE 226 add_entry: entry (P_person_id, P_pnt_entry_ptr, P_code); 001274 at 000003000041 001275 tt 000043000042 001276 ta 001274000000 001277 da 000377300000 001300 aa 000600 6270 00 eax7 384 001301 aa 7 00034 3521 20 epp2 pr7|28,* 001302 aa 2 01046 2721 00 tsp2 pr2|550 ext_entry_desc 001303 aa 000006000000 001304 aa 000000000000 001305 aa 6 00042 3735 20 epp7 pr6|34,* 001306 aa 7 00000 2361 20 ldq pr7|0,* 001307 aa 000002 6040 04 tmi 2,ic 001311 001310 aa 777777 3760 07 anq 262143,dl 001311 aa 0 00250 3761 00 anq pr0|168 = 000077777777 001312 aa 6 00210 7561 00 stq pr6|136 001313 aa 6 00032 3715 20 epp5 pr6|26,* 001314 aa 5 00004 3535 20 epp3 pr5|4,* 001315 aa 6 00172 2535 00 spri3 pr6|122 001316 aa 5 00006 3515 20 epp1 pr5|6,* 001317 aa 6 00170 2515 00 spri1 pr6|120 STATEMENT 1 ON LINE 229 call INITIALIZE (); 001320 aa 001707 6700 04 tsp4 967,ic 003227 STATEMENT 1 ON LINE 230 call pnt_db_util_$add_entry (pnt_ptr, NO_AUDIT, P_person_id, P_pnt_entry_ptr, P_code); 001321 aa 6 00044 3701 20 epp4 pr6|36,* 001322 ia 4 00012 3521 00 epp2 pr4|10 pnt_ptr 001323 aa 6 00240 2521 00 spri2 pr6|160 001324 aa 776507 3520 04 epp2 -697,ic 000033 = 000000000000 001325 aa 6 00242 2521 00 spri2 pr6|162 001326 aa 6 00032 3735 20 epp7 pr6|26,* 001327 aa 7 00002 3521 20 epp2 pr7|2,* P_person_id 001330 aa 6 00244 2521 00 spri2 pr6|164 001331 aa 6 00172 3521 20 epp2 pr6|122,* P_pnt_entry_ptr 001332 aa 6 00246 2521 00 spri2 pr6|166 001333 aa 6 00170 3521 20 epp2 pr6|120,* P_code 001334 aa 6 00250 2521 00 spri2 pr6|168 001335 aa 776506 3520 04 epp2 -698,ic 000043 = 464000000000 001336 aa 6 00252 2521 00 spri2 pr6|170 001337 aa 6 00260 2521 00 spri2 pr6|176 001340 aa 776500 3520 04 epp2 -704,ic 000040 = 514000000001 001341 aa 6 00254 2521 00 spri2 pr6|172 001342 aa 6 00042 3715 20 epp5 pr6|34,* 001343 aa 5 00000 3521 20 epp2 pr5|0,* 001344 aa 6 00256 2521 00 spri2 pr6|174 001345 aa 776475 3520 04 epp2 -707,ic 000042 = 404000000043 001346 aa 6 00262 2521 00 spri2 pr6|178 001347 aa 6 00236 6211 00 eax1 pr6|158 001350 aa 024000 4310 07 fld 10240,dl 001351 la 4 00076 3521 20 epp2 pr4|62,* pnt_db_util_$add_entry 001352 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 231 return; 001353 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO admin_get_entry STATEMENT 1 ON LINE 233 admin_get_entry: entry (P_person_id, P_pnt_entry_ptr, P_code); 001354 ta 001274000000 001355 da 000402300000 001356 aa 000600 6270 00 eax7 384 001357 aa 7 00034 3521 20 epp2 pr7|28,* 001360 aa 2 01046 2721 00 tsp2 pr2|550 ext_entry_desc 001361 aa 000006000000 001362 aa 000000000000 001363 aa 6 00042 3735 20 epp7 pr6|34,* 001364 aa 7 00000 2361 20 ldq pr7|0,* 001365 aa 000002 6040 04 tmi 2,ic 001367 001366 aa 777777 3760 07 anq 262143,dl 001367 aa 0 00250 3761 00 anq pr0|168 = 000077777777 001370 aa 6 00210 7561 00 stq pr6|136 001371 aa 6 00032 3715 20 epp5 pr6|26,* 001372 aa 5 00004 3535 20 epp3 pr5|4,* 001373 aa 6 00172 2535 00 spri3 pr6|122 001374 aa 5 00006 3515 20 epp1 pr5|6,* 001375 aa 6 00170 2515 00 spri1 pr6|120 STATEMENT 1 ON LINE 236 call INITIALIZE (); 001376 aa 001631 6700 04 tsp4 921,ic 003227 STATEMENT 1 ON LINE 237 call pnt_db_util_$admin_get_entry (pnt_ptr, NO_AUDIT, P_person_id, P_pnt_entry_ptr, P_code); 001377 aa 6 00044 3701 20 epp4 pr6|36,* 001400 ia 4 00012 3521 00 epp2 pr4|10 pnt_ptr 001401 aa 6 00240 2521 00 spri2 pr6|160 001402 aa 776431 3520 04 epp2 -743,ic 000033 = 000000000000 001403 aa 6 00242 2521 00 spri2 pr6|162 001404 aa 6 00032 3735 20 epp7 pr6|26,* 001405 aa 7 00002 3521 20 epp2 pr7|2,* P_person_id 001406 aa 6 00244 2521 00 spri2 pr6|164 001407 aa 6 00172 3521 20 epp2 pr6|122,* P_pnt_entry_ptr 001410 aa 6 00246 2521 00 spri2 pr6|166 001411 aa 6 00170 3521 20 epp2 pr6|120,* P_code 001412 aa 6 00250 2521 00 spri2 pr6|168 001413 aa 776430 3520 04 epp2 -744,ic 000043 = 464000000000 001414 aa 6 00252 2521 00 spri2 pr6|170 001415 aa 6 00260 2521 00 spri2 pr6|176 001416 aa 776422 3520 04 epp2 -750,ic 000040 = 514000000001 001417 aa 6 00254 2521 00 spri2 pr6|172 001420 aa 6 00042 3715 20 epp5 pr6|34,* 001421 aa 5 00000 3521 20 epp2 pr5|0,* 001422 aa 6 00256 2521 00 spri2 pr6|174 001423 aa 776417 3520 04 epp2 -753,ic 000042 = 404000000043 001424 aa 6 00262 2521 00 spri2 pr6|178 001425 aa 6 00236 6211 00 eax1 pr6|158 001426 aa 024000 4310 07 fld 10240,dl 001427 la 4 00100 3521 20 epp2 pr4|64,* pnt_db_util_$admin_get_entry 001430 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 238 return; 001431 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO chname_file STATEMENT 1 ON LINE 240 chname_file: entry (P_dirname, P_entryname, P_old_entryname, P_new_entryname, P_code); 001432 at 000005000041 001433 tt 000041000041 001434 tt 000041000042 001435 ta 001432000000 001436 da 000405300000 001437 aa 000600 6270 00 eax7 384 001440 aa 7 00034 3521 20 epp2 pr7|28,* 001441 aa 2 01046 2721 00 tsp2 pr2|550 ext_entry_desc 001442 aa 000012000000 001443 aa 000000000000 001444 aa 6 00042 3735 20 epp7 pr6|34,* 001445 aa 7 00000 2361 20 ldq pr7|0,* 001446 aa 000002 6040 04 tmi 2,ic 001450 001447 aa 777777 3760 07 anq 262143,dl 001450 aa 0 00250 3761 00 anq pr0|168 = 000077777777 001451 aa 6 00210 7561 00 stq pr6|136 001452 aa 7 00002 2361 20 ldq pr7|2,* 001453 aa 000002 6040 04 tmi 2,ic 001455 001454 aa 777777 3760 07 anq 262143,dl 001455 aa 0 00250 3761 00 anq pr0|168 = 000077777777 001456 aa 6 00400 7561 00 stq pr6|256 001457 aa 7 00004 2361 20 ldq pr7|4,* 001460 aa 000002 6040 04 tmi 2,ic 001462 001461 aa 777777 3760 07 anq 262143,dl 001462 aa 0 00250 3761 00 anq pr0|168 = 000077777777 001463 aa 6 00401 7561 00 stq pr6|257 001464 aa 7 00006 2361 20 ldq pr7|6,* 001465 aa 000002 6040 04 tmi 2,ic 001467 001466 aa 777777 3760 07 anq 262143,dl 001467 aa 0 00250 3761 00 anq pr0|168 = 000077777777 001470 aa 6 00402 7561 00 stq pr6|258 001471 aa 6 00032 3715 20 epp5 pr6|26,* 001472 aa 5 00012 3535 20 epp3 pr5|10,* 001473 aa 6 00170 2535 00 spri3 pr6|120 STATEMENT 1 ON LINE 243 call pnt_fs_util_$chname_file (P_dirname, P_entryname, P_old_entryname, P_new_entryname, P_code); 001474 aa 6 00032 3735 20 epp7 pr6|26,* 001475 aa 7 00002 3521 20 epp2 pr7|2,* P_dirname 001476 aa 6 00240 2521 00 spri2 pr6|160 001477 aa 7 00004 3521 20 epp2 pr7|4,* P_entryname 001500 aa 6 00242 2521 00 spri2 pr6|162 001501 aa 7 00006 3521 20 epp2 pr7|6,* P_old_entryname 001502 aa 6 00244 2521 00 spri2 pr6|164 001503 aa 7 00010 3521 20 epp2 pr7|8,* P_new_entryname 001504 aa 6 00246 2521 00 spri2 pr6|166 001505 aa 6 00170 3521 20 epp2 pr6|120,* P_code 001506 aa 6 00250 2521 00 spri2 pr6|168 001507 aa 6 00042 3715 20 epp5 pr6|34,* 001510 aa 5 00000 3521 20 epp2 pr5|0,* 001511 aa 6 00252 2521 00 spri2 pr6|170 001512 aa 5 00002 3521 20 epp2 pr5|2,* 001513 aa 6 00254 2521 00 spri2 pr6|172 001514 aa 5 00004 3521 20 epp2 pr5|4,* 001515 aa 6 00256 2521 00 spri2 pr6|174 001516 aa 5 00006 3521 20 epp2 pr5|6,* 001517 aa 6 00260 2521 00 spri2 pr6|176 001520 aa 776322 3520 04 epp2 -814,ic 000042 = 404000000043 001521 aa 6 00262 2521 00 spri2 pr6|178 001522 aa 6 00236 6211 00 eax1 pr6|158 001523 aa 024000 4310 07 fld 10240,dl 001524 aa 6 00044 3701 20 epp4 pr6|36,* 001525 la 4 00134 3521 20 epp2 pr4|92,* pnt_fs_util_$chname_file 001526 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 244 return; 001527 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO copy STATEMENT 1 ON LINE 246 copy: entry (P_dirname, P_entryname, P_target_dirname, P_target_entryname, P_error_on_target, P_code); 001530 at 000006000041 001531 tt 000041000041 001532 tt 000041000040 001533 ta 000042000000 001534 ta 001530000000 001535 da 000410300000 001536 aa 000600 6270 00 eax7 384 001537 aa 7 00034 3521 20 epp2 pr7|28,* 001540 aa 2 01046 2721 00 tsp2 pr2|550 ext_entry_desc 001541 aa 000014000000 001542 aa 000000000000 001543 aa 6 00042 3735 20 epp7 pr6|34,* 001544 aa 7 00000 2361 20 ldq pr7|0,* 001545 aa 000002 6040 04 tmi 2,ic 001547 001546 aa 777777 3760 07 anq 262143,dl 001547 aa 0 00250 3761 00 anq pr0|168 = 000077777777 001550 aa 6 00210 7561 00 stq pr6|136 001551 aa 7 00002 2361 20 ldq pr7|2,* 001552 aa 000002 6040 04 tmi 2,ic 001554 001553 aa 777777 3760 07 anq 262143,dl 001554 aa 0 00250 3761 00 anq pr0|168 = 000077777777 001555 aa 6 00400 7561 00 stq pr6|256 001556 aa 7 00004 2361 20 ldq pr7|4,* 001557 aa 000002 6040 04 tmi 2,ic 001561 001560 aa 777777 3760 07 anq 262143,dl 001561 aa 0 00250 3761 00 anq pr0|168 = 000077777777 001562 aa 6 00401 7561 00 stq pr6|257 001563 aa 7 00006 2361 20 ldq pr7|6,* 001564 aa 000002 6040 04 tmi 2,ic 001566 001565 aa 777777 3760 07 anq 262143,dl 001566 aa 0 00250 3761 00 anq pr0|168 = 000077777777 001567 aa 6 00402 7561 00 stq pr6|258 001570 aa 6 00032 3715 20 epp5 pr6|26,* 001571 aa 5 00014 3535 20 epp3 pr5|12,* 001572 aa 6 00170 2535 00 spri3 pr6|120 STATEMENT 1 ON LINE 249 call pnt_fs_util_$copy (P_dirname, P_entryname, P_target_dirname, P_target_entryname, P_error_on_target, P_code) ; 001573 aa 6 00032 3735 20 epp7 pr6|26,* 001574 aa 7 00002 3521 20 epp2 pr7|2,* P_dirname 001575 aa 6 00240 2521 00 spri2 pr6|160 001576 aa 7 00004 3521 20 epp2 pr7|4,* P_entryname 001577 aa 6 00242 2521 00 spri2 pr6|162 001600 aa 7 00006 3521 20 epp2 pr7|6,* P_target_dirname 001601 aa 6 00244 2521 00 spri2 pr6|164 001602 aa 7 00010 3521 20 epp2 pr7|8,* P_target_entryname 001603 aa 6 00246 2521 00 spri2 pr6|166 001604 aa 7 00012 3521 20 epp2 pr7|10,* P_error_on_target 001605 aa 6 00250 2521 00 spri2 pr6|168 001606 aa 6 00170 3521 20 epp2 pr6|120,* P_code 001607 aa 6 00252 2521 00 spri2 pr6|170 001610 aa 6 00042 3715 20 epp5 pr6|34,* 001611 aa 5 00000 3521 20 epp2 pr5|0,* 001612 aa 6 00254 2521 00 spri2 pr6|172 001613 aa 5 00002 3521 20 epp2 pr5|2,* 001614 aa 6 00256 2521 00 spri2 pr6|174 001615 aa 5 00004 3521 20 epp2 pr5|4,* 001616 aa 6 00260 2521 00 spri2 pr6|176 001617 aa 5 00006 3521 20 epp2 pr5|6,* 001620 aa 6 00262 2521 00 spri2 pr6|178 001621 aa 776217 3520 04 epp2 -881,ic 000040 = 514000000001 001622 aa 6 00264 2521 00 spri2 pr6|180 001623 aa 776217 3520 04 epp2 -881,ic 000042 = 404000000043 001624 aa 6 00266 2521 00 spri2 pr6|182 001625 aa 6 00236 6211 00 eax1 pr6|158 001626 aa 030000 4310 07 fld 12288,dl 001627 aa 6 00044 3701 20 epp4 pr6|36,* 001630 la 4 00136 3521 20 epp2 pr4|94,* pnt_fs_util_$copy 001631 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 251 return; 001632 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO create STATEMENT 1 ON LINE 253 create: entry (P_dirname, P_entryname, P_pnt_size, P_code); 001633 at 000004000041 001634 tt 000041000042 001635 ta 000042000000 001636 ta 001633000000 001637 da 000413300000 001640 aa 000600 6270 00 eax7 384 001641 aa 7 00034 3521 20 epp2 pr7|28,* 001642 aa 2 01046 2721 00 tsp2 pr2|550 ext_entry_desc 001643 aa 000010000000 001644 aa 000000000000 001645 aa 6 00042 3735 20 epp7 pr6|34,* 001646 aa 7 00000 2361 20 ldq pr7|0,* 001647 aa 000002 6040 04 tmi 2,ic 001651 001650 aa 777777 3760 07 anq 262143,dl 001651 aa 0 00250 3761 00 anq pr0|168 = 000077777777 001652 aa 6 00210 7561 00 stq pr6|136 001653 aa 7 00002 2361 20 ldq pr7|2,* 001654 aa 000002 6040 04 tmi 2,ic 001656 001655 aa 777777 3760 07 anq 262143,dl 001656 aa 0 00250 3761 00 anq pr0|168 = 000077777777 001657 aa 6 00400 7561 00 stq pr6|256 001660 aa 6 00032 3715 20 epp5 pr6|26,* 001661 aa 5 00010 3535 20 epp3 pr5|8,* 001662 aa 6 00170 2535 00 spri3 pr6|120 STATEMENT 1 ON LINE 256 call pnt_fs_util_$create (P_dirname, P_entryname, P_pnt_size, P_code); 001663 aa 6 00032 3735 20 epp7 pr6|26,* 001664 aa 7 00002 3521 20 epp2 pr7|2,* P_dirname 001665 aa 6 00240 2521 00 spri2 pr6|160 001666 aa 7 00004 3521 20 epp2 pr7|4,* P_entryname 001667 aa 6 00242 2521 00 spri2 pr6|162 001670 aa 7 00006 3521 20 epp2 pr7|6,* P_pnt_size 001671 aa 6 00244 2521 00 spri2 pr6|164 001672 aa 6 00170 3521 20 epp2 pr6|120,* P_code 001673 aa 6 00246 2521 00 spri2 pr6|166 001674 aa 6 00042 3715 20 epp5 pr6|34,* 001675 aa 5 00000 3521 20 epp2 pr5|0,* 001676 aa 6 00250 2521 00 spri2 pr6|168 001677 aa 5 00002 3521 20 epp2 pr5|2,* 001700 aa 6 00252 2521 00 spri2 pr6|170 001701 aa 776141 3520 04 epp2 -927,ic 000042 = 404000000043 001702 aa 6 00254 2521 00 spri2 pr6|172 001703 aa 6 00256 2521 00 spri2 pr6|174 001704 aa 6 00236 6211 00 eax1 pr6|158 001705 aa 020000 4310 07 fld 8192,dl 001706 aa 6 00044 3701 20 epp4 pr6|36,* 001707 la 4 00140 3521 20 epp2 pr4|96,* pnt_fs_util_$create 001710 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 257 return; 001711 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO delete STATEMENT 1 ON LINE 259 delete: entry (P_dirname, P_entryname, P_code); 001712 at 000003000041 001713 tt 000041000042 001714 ta 001712000000 001715 da 000416300000 001716 aa 000600 6270 00 eax7 384 001717 aa 7 00034 3521 20 epp2 pr7|28,* 001720 aa 2 01046 2721 00 tsp2 pr2|550 ext_entry_desc 001721 aa 000006000000 001722 aa 000000000000 001723 aa 6 00042 3735 20 epp7 pr6|34,* 001724 aa 7 00000 2361 20 ldq pr7|0,* 001725 aa 000002 6040 04 tmi 2,ic 001727 001726 aa 777777 3760 07 anq 262143,dl 001727 aa 0 00250 3761 00 anq pr0|168 = 000077777777 001730 aa 6 00210 7561 00 stq pr6|136 001731 aa 7 00002 2361 20 ldq pr7|2,* 001732 aa 000002 6040 04 tmi 2,ic 001734 001733 aa 777777 3760 07 anq 262143,dl 001734 aa 0 00250 3761 00 anq pr0|168 = 000077777777 001735 aa 6 00400 7561 00 stq pr6|256 001736 aa 6 00032 3715 20 epp5 pr6|26,* 001737 aa 5 00006 3535 20 epp3 pr5|6,* 001740 aa 6 00170 2535 00 spri3 pr6|120 STATEMENT 1 ON LINE 262 call pnt_fs_util_$delete (P_dirname, P_entryname, P_code); 001741 aa 6 00032 3735 20 epp7 pr6|26,* 001742 aa 7 00002 3521 20 epp2 pr7|2,* P_dirname 001743 aa 6 00220 2521 00 spri2 pr6|144 001744 aa 7 00004 3521 20 epp2 pr7|4,* P_entryname 001745 aa 6 00222 2521 00 spri2 pr6|146 001746 aa 6 00170 3521 20 epp2 pr6|120,* P_code 001747 aa 6 00224 2521 00 spri2 pr6|148 001750 aa 6 00042 3715 20 epp5 pr6|34,* 001751 aa 5 00000 3521 20 epp2 pr5|0,* 001752 aa 6 00226 2521 00 spri2 pr6|150 001753 aa 5 00002 3521 20 epp2 pr5|2,* 001754 aa 6 00230 2521 00 spri2 pr6|152 001755 aa 776065 3520 04 epp2 -971,ic 000042 = 404000000043 001756 aa 6 00232 2521 00 spri2 pr6|154 001757 aa 6 00216 6211 00 eax1 pr6|142 001760 aa 014000 4310 07 fld 6144,dl 001761 aa 6 00044 3701 20 epp4 pr6|36,* 001762 la 4 00142 3521 20 epp2 pr4|98,* pnt_fs_util_$delete 001763 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 263 return; 001764 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO delete_acl_entries STATEMENT 1 ON LINE 265 delete_acl_entries: entry (P_dirname, P_entryname, P_acl_ptr, P_code); 001765 ta 001212000000 001766 da 000421300000 001767 aa 000600 6270 00 eax7 384 001770 aa 7 00034 3521 20 epp2 pr7|28,* 001771 aa 2 01046 2721 00 tsp2 pr2|550 ext_entry_desc 001772 aa 000010000000 001773 aa 000000000000 001774 aa 6 00042 3735 20 epp7 pr6|34,* 001775 aa 7 00000 2361 20 ldq pr7|0,* 001776 aa 000002 6040 04 tmi 2,ic 002000 001777 aa 777777 3760 07 anq 262143,dl 002000 aa 0 00250 3761 00 anq pr0|168 = 000077777777 002001 aa 6 00210 7561 00 stq pr6|136 002002 aa 7 00002 2361 20 ldq pr7|2,* 002003 aa 000002 6040 04 tmi 2,ic 002005 002004 aa 777777 3760 07 anq 262143,dl 002005 aa 0 00250 3761 00 anq pr0|168 = 000077777777 002006 aa 6 00400 7561 00 stq pr6|256 002007 aa 6 00032 3715 20 epp5 pr6|26,* 002010 aa 5 00006 3535 20 epp3 pr5|6,* 002011 aa 6 00166 2535 00 spri3 pr6|118 002012 aa 5 00010 3515 20 epp1 pr5|8,* 002013 aa 6 00170 2515 00 spri1 pr6|120 STATEMENT 1 ON LINE 268 call pnt_fs_util_$delete_acl_entries (P_dirname, P_entryname, P_acl_ptr, P_code); 002014 aa 6 00032 3735 20 epp7 pr6|26,* 002015 aa 7 00002 3521 20 epp2 pr7|2,* P_dirname 002016 aa 6 00240 2521 00 spri2 pr6|160 002017 aa 7 00004 3521 20 epp2 pr7|4,* P_entryname 002020 aa 6 00242 2521 00 spri2 pr6|162 002021 aa 6 00166 3521 20 epp2 pr6|118,* P_acl_ptr 002022 aa 6 00244 2521 00 spri2 pr6|164 002023 aa 6 00170 3521 20 epp2 pr6|120,* P_code 002024 aa 6 00246 2521 00 spri2 pr6|166 002025 aa 6 00042 3715 20 epp5 pr6|34,* 002026 aa 5 00000 3521 20 epp2 pr5|0,* 002027 aa 6 00250 2521 00 spri2 pr6|168 002030 aa 5 00002 3521 20 epp2 pr5|2,* 002031 aa 6 00252 2521 00 spri2 pr6|170 002032 aa 776011 3520 04 epp2 -1015,ic 000043 = 464000000000 002033 aa 6 00254 2521 00 spri2 pr6|172 002034 aa 776006 3520 04 epp2 -1018,ic 000042 = 404000000043 002035 aa 6 00256 2521 00 spri2 pr6|174 002036 aa 6 00236 6211 00 eax1 pr6|158 002037 aa 020000 4310 07 fld 8192,dl 002040 aa 6 00044 3701 20 epp4 pr6|36,* 002041 la 4 00144 3521 20 epp2 pr4|100,* pnt_fs_util_$delete_acl_entries 002042 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 269 return; 002043 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO get_abs_entry STATEMENT 1 ON LINE 271 get_abs_entry: entry (P_record_no, P_pnt_entry_ptr, P_code); 002044 at 000003000042 002045 tt 000043000042 002046 ta 002044000000 002047 da 000424300000 002050 aa 000600 6270 00 eax7 384 002051 aa 7 00034 3521 20 epp2 pr7|28,* 002052 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 002053 aa 000006000000 002054 aa 000000000000 002055 aa 6 00032 3735 20 epp7 pr6|26,* 002056 aa 7 00004 3715 20 epp5 pr7|4,* 002057 aa 6 00172 6515 00 spri5 pr6|122 002060 aa 7 00006 3535 20 epp3 pr7|6,* 002061 aa 6 00170 2535 00 spri3 pr6|120 STATEMENT 1 ON LINE 274 call INITIALIZE (); 002062 aa 001145 6700 04 tsp4 613,ic 003227 STATEMENT 1 ON LINE 275 call pnt_db_util_$get_abs_entry (pnt_ptr, NO_AUDIT, P_record_no, P_pnt_entry_ptr, P_code); 002063 aa 6 00044 3701 20 epp4 pr6|36,* 002064 ia 4 00012 3521 00 epp2 pr4|10 pnt_ptr 002065 aa 6 00220 2521 00 spri2 pr6|144 002066 aa 775745 3520 04 epp2 -1051,ic 000033 = 000000000000 002067 aa 6 00222 2521 00 spri2 pr6|146 002070 aa 6 00032 3735 20 epp7 pr6|26,* 002071 aa 7 00002 3521 20 epp2 pr7|2,* P_record_no 002072 aa 6 00224 2521 00 spri2 pr6|148 002073 aa 6 00172 3521 20 epp2 pr6|122,* P_pnt_entry_ptr 002074 aa 6 00226 2521 00 spri2 pr6|150 002075 aa 6 00170 3521 20 epp2 pr6|120,* P_code 002076 aa 6 00230 2521 00 spri2 pr6|152 002077 aa 6 00216 6211 00 eax1 pr6|142 002100 aa 024000 4310 07 fld 10240,dl 002101 la 4 00104 3521 20 epp2 pr4|68,* pnt_db_util_$get_abs_entry 002102 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 276 return; 002103 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO get_entry STATEMENT 1 ON LINE 278 get_entry: entry (P_person_id, P_pnt_entry_ptr, P_code); 002104 ta 001274000000 002105 da 000432300000 002106 aa 000600 6270 00 eax7 384 002107 aa 7 00034 3521 20 epp2 pr7|28,* 002110 aa 2 01046 2721 00 tsp2 pr2|550 ext_entry_desc 002111 aa 000006000000 002112 aa 000000000000 002113 aa 6 00042 3735 20 epp7 pr6|34,* 002114 aa 7 00000 2361 20 ldq pr7|0,* 002115 aa 000002 6040 04 tmi 2,ic 002117 002116 aa 777777 3760 07 anq 262143,dl 002117 aa 0 00250 3761 00 anq pr0|168 = 000077777777 002120 aa 6 00210 7561 00 stq pr6|136 002121 aa 6 00032 3715 20 epp5 pr6|26,* 002122 aa 5 00004 3535 20 epp3 pr5|4,* 002123 aa 6 00172 2535 00 spri3 pr6|122 002124 aa 5 00006 3515 20 epp1 pr5|6,* 002125 aa 6 00170 2515 00 spri1 pr6|120 STATEMENT 1 ON LINE 281 call INITIALIZE (); 002126 aa 001101 6700 04 tsp4 577,ic 003227 STATEMENT 1 ON LINE 282 call pnt_db_util_$admin_get_entry (pnt_ptr, NO_AUDIT, P_person_id, P_pnt_entry_ptr, P_code); 002127 aa 6 00044 3701 20 epp4 pr6|36,* 002130 ia 4 00012 3521 00 epp2 pr4|10 pnt_ptr 002131 aa 6 00240 2521 00 spri2 pr6|160 002132 aa 775701 3520 04 epp2 -1087,ic 000033 = 000000000000 002133 aa 6 00242 2521 00 spri2 pr6|162 002134 aa 6 00032 3735 20 epp7 pr6|26,* 002135 aa 7 00002 3521 20 epp2 pr7|2,* P_person_id 002136 aa 6 00244 2521 00 spri2 pr6|164 002137 aa 6 00172 3521 20 epp2 pr6|122,* P_pnt_entry_ptr 002140 aa 6 00246 2521 00 spri2 pr6|166 002141 aa 6 00170 3521 20 epp2 pr6|120,* P_code 002142 aa 6 00250 2521 00 spri2 pr6|168 002143 aa 775700 3520 04 epp2 -1088,ic 000043 = 464000000000 002144 aa 6 00252 2521 00 spri2 pr6|170 002145 aa 6 00260 2521 00 spri2 pr6|176 002146 aa 775672 3520 04 epp2 -1094,ic 000040 = 514000000001 002147 aa 6 00254 2521 00 spri2 pr6|172 002150 aa 6 00042 3715 20 epp5 pr6|34,* 002151 aa 5 00000 3521 20 epp2 pr5|0,* 002152 aa 6 00256 2521 00 spri2 pr6|174 002153 aa 775667 3520 04 epp2 -1097,ic 000042 = 404000000043 002154 aa 6 00262 2521 00 spri2 pr6|178 002155 aa 6 00236 6211 00 eax1 pr6|158 002156 aa 024000 4310 07 fld 10240,dl 002157 la 4 00100 3521 20 epp2 pr4|64,* pnt_db_util_$admin_get_entry 002160 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 283 return; 002161 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO get_network_password STATEMENT 1 ON LINE 285 get_network_password: entry (P_person_id, P_password, P_short_password, P_code); 002162 at 000004000041 002163 tt 000041000040 002164 ta 000042000000 002165 ta 002162000000 002166 da 000435300000 002167 aa 000600 6270 00 eax7 384 002170 aa 7 00034 3521 20 epp2 pr7|28,* 002171 aa 2 01046 2721 00 tsp2 pr2|550 ext_entry_desc 002172 aa 000010000000 002173 aa 000000000000 002174 aa 6 00042 3735 20 epp7 pr6|34,* 002175 aa 7 00000 2361 20 ldq pr7|0,* 002176 aa 000002 6040 04 tmi 2,ic 002200 002177 aa 777777 3760 07 anq 262143,dl 002200 aa 0 00250 3761 00 anq pr0|168 = 000077777777 002201 aa 6 00210 7561 00 stq pr6|136 002202 aa 7 00002 2361 20 ldq pr7|2,* 002203 aa 000002 6040 04 tmi 2,ic 002205 002204 aa 777777 3760 07 anq 262143,dl 002205 aa 0 00250 3761 00 anq pr0|168 = 000077777777 002206 aa 6 00400 7561 00 stq pr6|256 002207 aa 6 00032 3715 20 epp5 pr6|26,* 002210 aa 5 00010 3535 20 epp3 pr5|8,* 002211 aa 6 00170 2535 00 spri3 pr6|120 STATEMENT 1 ON LINE 288 call INITIALIZE (); 002212 aa 001015 6700 04 tsp4 525,ic 003227 STATEMENT 1 ON LINE 289 call pnt_db_util_$get_network_password (pnt_ptr, NO_AUDIT, P_person_id, P_password, P_short_password, P_code); 002213 aa 6 00044 3701 20 epp4 pr6|36,* 002214 ia 4 00012 3521 00 epp2 pr4|10 pnt_ptr 002215 aa 6 00240 2521 00 spri2 pr6|160 002216 aa 775615 3520 04 epp2 -1139,ic 000033 = 000000000000 002217 aa 6 00242 2521 00 spri2 pr6|162 002220 aa 6 00032 3735 20 epp7 pr6|26,* 002221 aa 7 00002 3521 20 epp2 pr7|2,* P_person_id 002222 aa 6 00244 2521 00 spri2 pr6|164 002223 aa 7 00004 3521 20 epp2 pr7|4,* P_password 002224 aa 6 00246 2521 00 spri2 pr6|166 002225 aa 7 00006 3521 20 epp2 pr7|6,* P_short_password 002226 aa 6 00250 2521 00 spri2 pr6|168 002227 aa 6 00170 3521 20 epp2 pr6|120,* P_code 002230 aa 6 00252 2521 00 spri2 pr6|170 002231 aa 775612 3520 04 epp2 -1142,ic 000043 = 464000000000 002232 aa 6 00254 2521 00 spri2 pr6|172 002233 aa 775605 3520 04 epp2 -1147,ic 000040 = 514000000001 002234 aa 6 00256 2521 00 spri2 pr6|174 002235 aa 6 00264 2521 00 spri2 pr6|180 002236 aa 6 00042 3715 20 epp5 pr6|34,* 002237 aa 5 00000 3521 20 epp2 pr5|0,* 002240 aa 6 00260 2521 00 spri2 pr6|176 002241 aa 5 00002 3521 20 epp2 pr5|2,* 002242 aa 6 00262 2521 00 spri2 pr6|178 002243 aa 775577 3520 04 epp2 -1153,ic 000042 = 404000000043 002244 aa 6 00266 2521 00 spri2 pr6|182 002245 aa 6 00236 6211 00 eax1 pr6|158 002246 aa 030000 4310 07 fld 12288,dl 002247 la 4 00106 3521 20 epp2 pr4|70,* pnt_db_util_$get_network_password 002250 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 290 return; 002251 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO list_acl STATEMENT 1 ON LINE 292 list_acl: entry (P_dirname, P_entryname, P_desired_version, P_area_ptr, P_acl_ptr, P_code); 002252 at 000006000041 002253 tt 000041000041 002254 tt 000043000043 002255 ta 000042000000 002256 ta 002252000000 002257 da 000440300000 002260 aa 000600 6270 00 eax7 384 002261 aa 7 00034 3521 20 epp2 pr7|28,* 002262 aa 2 01046 2721 00 tsp2 pr2|550 ext_entry_desc 002263 aa 000014000000 002264 aa 000000000000 002265 aa 6 00042 3735 20 epp7 pr6|34,* 002266 aa 7 00000 2361 20 ldq pr7|0,* 002267 aa 000002 6040 04 tmi 2,ic 002271 002270 aa 777777 3760 07 anq 262143,dl 002271 aa 0 00250 3761 00 anq pr0|168 = 000077777777 002272 aa 6 00210 7561 00 stq pr6|136 002273 aa 7 00002 2361 20 ldq pr7|2,* 002274 aa 000002 6040 04 tmi 2,ic 002276 002275 aa 777777 3760 07 anq 262143,dl 002276 aa 0 00250 3761 00 anq pr0|168 = 000077777777 002277 aa 6 00400 7561 00 stq pr6|256 002300 aa 7 00004 2361 20 ldq pr7|4,* 002301 aa 000002 6040 04 tmi 2,ic 002303 002302 aa 777777 3760 07 anq 262143,dl 002303 aa 0 00250 3761 00 anq pr0|168 = 000077777777 002304 aa 6 00401 7561 00 stq pr6|257 002305 aa 6 00032 3715 20 epp5 pr6|26,* 002306 aa 5 00012 3535 20 epp3 pr5|10,* 002307 aa 6 00166 2535 00 spri3 pr6|118 002310 aa 5 00014 3515 20 epp1 pr5|12,* 002311 aa 6 00170 2515 00 spri1 pr6|120 STATEMENT 1 ON LINE 295 call pnt_fs_util_$list_acl (P_dirname, P_entryname, P_desired_version, P_area_ptr, P_acl_ptr, P_code); 002312 aa 6 00032 3735 20 epp7 pr6|26,* 002313 aa 7 00002 3521 20 epp2 pr7|2,* P_dirname 002314 aa 6 00240 2521 00 spri2 pr6|160 002315 aa 7 00004 3521 20 epp2 pr7|4,* P_entryname 002316 aa 6 00242 2521 00 spri2 pr6|162 002317 aa 7 00006 3521 20 epp2 pr7|6,* P_desired_version 002320 aa 6 00244 2521 00 spri2 pr6|164 002321 aa 7 00010 3521 20 epp2 pr7|8,* P_area_ptr 002322 aa 6 00246 2521 00 spri2 pr6|166 002323 aa 6 00166 3521 20 epp2 pr6|118,* P_acl_ptr 002324 aa 6 00250 2521 00 spri2 pr6|168 002325 aa 6 00170 3521 20 epp2 pr6|120,* P_code 002326 aa 6 00252 2521 00 spri2 pr6|170 002327 aa 6 00042 3715 20 epp5 pr6|34,* 002330 aa 5 00000 3521 20 epp2 pr5|0,* 002331 aa 6 00254 2521 00 spri2 pr6|172 002332 aa 5 00002 3521 20 epp2 pr5|2,* 002333 aa 6 00256 2521 00 spri2 pr6|174 002334 aa 5 00004 3521 20 epp2 pr5|4,* 002335 aa 6 00260 2521 00 spri2 pr6|176 002336 aa 775505 3520 04 epp2 -1211,ic 000043 = 464000000000 002337 aa 6 00262 2521 00 spri2 pr6|178 002340 aa 6 00264 2521 00 spri2 pr6|180 002341 aa 775501 3520 04 epp2 -1215,ic 000042 = 404000000043 002342 aa 6 00266 2521 00 spri2 pr6|182 002343 aa 6 00236 6211 00 eax1 pr6|158 002344 aa 030000 4310 07 fld 12288,dl 002345 aa 6 00044 3701 20 epp4 pr6|36,* 002346 la 4 00146 3521 20 epp2 pr4|102,* pnt_fs_util_$list_acl 002347 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 296 return; 002350 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO login_get_entry STATEMENT 1 ON LINE 298 login_get_entry: entry (P_person_id, P_password, P_pnt_entry_ptr, P_code); 002351 ta 001212000000 002352 da 000443300000 002353 aa 000600 6270 00 eax7 384 002354 aa 7 00034 3521 20 epp2 pr7|28,* 002355 aa 2 01046 2721 00 tsp2 pr2|550 ext_entry_desc 002356 aa 000010000000 002357 aa 000000000000 002360 aa 6 00042 3735 20 epp7 pr6|34,* 002361 aa 7 00000 2361 20 ldq pr7|0,* 002362 aa 000002 6040 04 tmi 2,ic 002364 002363 aa 777777 3760 07 anq 262143,dl 002364 aa 0 00250 3761 00 anq pr0|168 = 000077777777 002365 aa 6 00210 7561 00 stq pr6|136 002366 aa 7 00002 2361 20 ldq pr7|2,* 002367 aa 000002 6040 04 tmi 2,ic 002371 002370 aa 777777 3760 07 anq 262143,dl 002371 aa 0 00250 3761 00 anq pr0|168 = 000077777777 002372 aa 6 00400 7561 00 stq pr6|256 002373 aa 6 00032 3715 20 epp5 pr6|26,* 002374 aa 5 00006 3535 20 epp3 pr5|6,* 002375 aa 6 00172 2535 00 spri3 pr6|122 002376 aa 5 00010 3515 20 epp1 pr5|8,* 002377 aa 6 00170 2515 00 spri1 pr6|120 STATEMENT 1 ON LINE 301 call INITIALIZE (); 002400 aa 000627 6700 04 tsp4 407,ic 003227 STATEMENT 1 ON LINE 302 call pnt_db_util_$login_get_entry (pnt_ptr, NO_AUDIT, P_person_id, P_password, P_pnt_entry_ptr, P_code); 002401 aa 6 00044 3701 20 epp4 pr6|36,* 002402 ia 4 00012 3521 00 epp2 pr4|10 pnt_ptr 002403 aa 6 00240 2521 00 spri2 pr6|160 002404 aa 775427 3520 04 epp2 -1257,ic 000033 = 000000000000 002405 aa 6 00242 2521 00 spri2 pr6|162 002406 aa 6 00032 3735 20 epp7 pr6|26,* 002407 aa 7 00002 3521 20 epp2 pr7|2,* P_person_id 002410 aa 6 00244 2521 00 spri2 pr6|164 002411 aa 7 00004 3521 20 epp2 pr7|4,* P_password 002412 aa 6 00246 2521 00 spri2 pr6|166 002413 aa 6 00172 3521 20 epp2 pr6|122,* P_pnt_entry_ptr 002414 aa 6 00250 2521 00 spri2 pr6|168 002415 aa 6 00170 3521 20 epp2 pr6|120,* P_code 002416 aa 6 00252 2521 00 spri2 pr6|170 002417 aa 775424 3520 04 epp2 -1260,ic 000043 = 464000000000 002420 aa 6 00254 2521 00 spri2 pr6|172 002421 aa 6 00264 2521 00 spri2 pr6|180 002422 aa 775416 3520 04 epp2 -1266,ic 000040 = 514000000001 002423 aa 6 00256 2521 00 spri2 pr6|174 002424 aa 6 00042 3715 20 epp5 pr6|34,* 002425 aa 5 00000 3521 20 epp2 pr5|0,* 002426 aa 6 00260 2521 00 spri2 pr6|176 002427 aa 5 00002 3521 20 epp2 pr5|2,* 002430 aa 6 00262 2521 00 spri2 pr6|178 002431 aa 775411 3520 04 epp2 -1271,ic 000042 = 404000000043 002432 aa 6 00266 2521 00 spri2 pr6|182 002433 aa 6 00236 6211 00 eax1 pr6|158 002434 aa 030000 4310 07 fld 12288,dl 002435 la 4 00110 3521 20 epp2 pr4|72,* pnt_db_util_$login_get_entry 002436 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 303 return; 002437 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO network_get_entry STATEMENT 1 ON LINE 305 network_get_entry: entry (P_person_id, P_password, P_pnt_entry_ptr, P_code); 002440 ta 001212000000 002441 da 000446300000 002442 aa 000600 6270 00 eax7 384 002443 aa 7 00034 3521 20 epp2 pr7|28,* 002444 aa 2 01046 2721 00 tsp2 pr2|550 ext_entry_desc 002445 aa 000010000000 002446 aa 000000000000 002447 aa 6 00042 3735 20 epp7 pr6|34,* 002450 aa 7 00000 2361 20 ldq pr7|0,* 002451 aa 000002 6040 04 tmi 2,ic 002453 002452 aa 777777 3760 07 anq 262143,dl 002453 aa 0 00250 3761 00 anq pr0|168 = 000077777777 002454 aa 6 00210 7561 00 stq pr6|136 002455 aa 7 00002 2361 20 ldq pr7|2,* 002456 aa 000002 6040 04 tmi 2,ic 002460 002457 aa 777777 3760 07 anq 262143,dl 002460 aa 0 00250 3761 00 anq pr0|168 = 000077777777 002461 aa 6 00400 7561 00 stq pr6|256 002462 aa 6 00032 3715 20 epp5 pr6|26,* 002463 aa 5 00006 3535 20 epp3 pr5|6,* 002464 aa 6 00172 2535 00 spri3 pr6|122 002465 aa 5 00010 3515 20 epp1 pr5|8,* 002466 aa 6 00170 2515 00 spri1 pr6|120 STATEMENT 1 ON LINE 308 call INITIALIZE (); 002467 aa 000540 6700 04 tsp4 352,ic 003227 STATEMENT 1 ON LINE 309 call pnt_db_util_$network_get_entry (pnt_ptr, NO_AUDIT, P_person_id, P_password, P_pnt_entry_ptr, P_code); 002470 aa 6 00044 3701 20 epp4 pr6|36,* 002471 ia 4 00012 3521 00 epp2 pr4|10 pnt_ptr 002472 aa 6 00240 2521 00 spri2 pr6|160 002473 aa 775340 3520 04 epp2 -1312,ic 000033 = 000000000000 002474 aa 6 00242 2521 00 spri2 pr6|162 002475 aa 6 00032 3735 20 epp7 pr6|26,* 002476 aa 7 00002 3521 20 epp2 pr7|2,* P_person_id 002477 aa 6 00244 2521 00 spri2 pr6|164 002500 aa 7 00004 3521 20 epp2 pr7|4,* P_password 002501 aa 6 00246 2521 00 spri2 pr6|166 002502 aa 6 00172 3521 20 epp2 pr6|122,* P_pnt_entry_ptr 002503 aa 6 00250 2521 00 spri2 pr6|168 002504 aa 6 00170 3521 20 epp2 pr6|120,* P_code 002505 aa 6 00252 2521 00 spri2 pr6|170 002506 aa 775335 3520 04 epp2 -1315,ic 000043 = 464000000000 002507 aa 6 00254 2521 00 spri2 pr6|172 002510 aa 6 00264 2521 00 spri2 pr6|180 002511 aa 775327 3520 04 epp2 -1321,ic 000040 = 514000000001 002512 aa 6 00256 2521 00 spri2 pr6|174 002513 aa 6 00042 3715 20 epp5 pr6|34,* 002514 aa 5 00000 3521 20 epp2 pr5|0,* 002515 aa 6 00260 2521 00 spri2 pr6|176 002516 aa 5 00002 3521 20 epp2 pr5|2,* 002517 aa 6 00262 2521 00 spri2 pr6|178 002520 aa 775322 3520 04 epp2 -1326,ic 000042 = 404000000043 002521 aa 6 00266 2521 00 spri2 pr6|182 002522 aa 6 00236 6211 00 eax1 pr6|158 002523 aa 030000 4310 07 fld 12288,dl 002524 la 4 00112 3521 20 epp2 pr4|74,* pnt_db_util_$network_get_entry 002525 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 310 return; 002526 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO priv_get_abs_entry STATEMENT 1 ON LINE 312 priv_get_abs_entry: entry (P_record_no, P_pnt_entry_ptr, P_code); 002527 ta 002044000000 002530 da 000451300000 002531 aa 000600 6270 00 eax7 384 002532 aa 7 00034 3521 20 epp2 pr7|28,* 002533 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 002534 aa 000006000000 002535 aa 000000000000 002536 aa 6 00032 3735 20 epp7 pr6|26,* 002537 aa 7 00004 3715 20 epp5 pr7|4,* 002540 aa 6 00172 6515 00 spri5 pr6|122 002541 aa 7 00006 3535 20 epp3 pr7|6,* 002542 aa 6 00170 2535 00 spri3 pr6|120 STATEMENT 1 ON LINE 315 call INITIALIZE (); 002543 aa 000464 6700 04 tsp4 308,ic 003227 STATEMENT 1 ON LINE 316 call pnt_db_util_$priv_get_abs_entry (pnt_ptr, NO_AUDIT, P_record_no, P_pnt_entry_ptr, P_code); 002544 aa 6 00044 3701 20 epp4 pr6|36,* 002545 ia 4 00012 3521 00 epp2 pr4|10 pnt_ptr 002546 aa 6 00220 2521 00 spri2 pr6|144 002547 aa 775264 3520 04 epp2 -1356,ic 000033 = 000000000000 002550 aa 6 00222 2521 00 spri2 pr6|146 002551 aa 6 00032 3735 20 epp7 pr6|26,* 002552 aa 7 00002 3521 20 epp2 pr7|2,* P_record_no 002553 aa 6 00224 2521 00 spri2 pr6|148 002554 aa 6 00172 3521 20 epp2 pr6|122,* P_pnt_entry_ptr 002555 aa 6 00226 2521 00 spri2 pr6|150 002556 aa 6 00170 3521 20 epp2 pr6|120,* P_code 002557 aa 6 00230 2521 00 spri2 pr6|152 002560 aa 6 00216 6211 00 eax1 pr6|142 002561 aa 024000 4310 07 fld 10240,dl 002562 la 4 00116 3521 20 epp2 pr4|78,* pnt_db_util_$priv_get_abs_entry 002563 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 317 return; 002564 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO priv_get_entry STATEMENT 1 ON LINE 319 priv_get_entry: entry (P_person_id, P_pnt_entry_ptr, P_code); 002565 ta 001274000000 002566 da 000454300000 002567 aa 000600 6270 00 eax7 384 002570 aa 7 00034 3521 20 epp2 pr7|28,* 002571 aa 2 01046 2721 00 tsp2 pr2|550 ext_entry_desc 002572 aa 000006000000 002573 aa 000000000000 002574 aa 6 00042 3735 20 epp7 pr6|34,* 002575 aa 7 00000 2361 20 ldq pr7|0,* 002576 aa 000002 6040 04 tmi 2,ic 002600 002577 aa 777777 3760 07 anq 262143,dl 002600 aa 0 00250 3761 00 anq pr0|168 = 000077777777 002601 aa 6 00210 7561 00 stq pr6|136 002602 aa 6 00032 3715 20 epp5 pr6|26,* 002603 aa 5 00004 3535 20 epp3 pr5|4,* 002604 aa 6 00172 2535 00 spri3 pr6|122 002605 aa 5 00006 3515 20 epp1 pr5|6,* 002606 aa 6 00170 2515 00 spri1 pr6|120 STATEMENT 1 ON LINE 322 call INITIALIZE (); 002607 aa 000420 6700 04 tsp4 272,ic 003227 STATEMENT 1 ON LINE 323 call pnt_db_util_$priv_get_entry (pnt_ptr, NO_AUDIT, P_person_id, P_pnt_entry_ptr, P_code); 002610 aa 6 00044 3701 20 epp4 pr6|36,* 002611 ia 4 00012 3521 00 epp2 pr4|10 pnt_ptr 002612 aa 6 00240 2521 00 spri2 pr6|160 002613 aa 775220 3520 04 epp2 -1392,ic 000033 = 000000000000 002614 aa 6 00242 2521 00 spri2 pr6|162 002615 aa 6 00032 3735 20 epp7 pr6|26,* 002616 aa 7 00002 3521 20 epp2 pr7|2,* P_person_id 002617 aa 6 00244 2521 00 spri2 pr6|164 002620 aa 6 00172 3521 20 epp2 pr6|122,* P_pnt_entry_ptr 002621 aa 6 00246 2521 00 spri2 pr6|166 002622 aa 6 00170 3521 20 epp2 pr6|120,* P_code 002623 aa 6 00250 2521 00 spri2 pr6|168 002624 aa 775217 3520 04 epp2 -1393,ic 000043 = 464000000000 002625 aa 6 00252 2521 00 spri2 pr6|170 002626 aa 6 00260 2521 00 spri2 pr6|176 002627 aa 775211 3520 04 epp2 -1399,ic 000040 = 514000000001 002630 aa 6 00254 2521 00 spri2 pr6|172 002631 aa 6 00042 3715 20 epp5 pr6|34,* 002632 aa 5 00000 3521 20 epp2 pr5|0,* 002633 aa 6 00256 2521 00 spri2 pr6|174 002634 aa 775206 3520 04 epp2 -1402,ic 000042 = 404000000043 002635 aa 6 00262 2521 00 spri2 pr6|178 002636 aa 6 00236 6211 00 eax1 pr6|158 002637 aa 024000 4310 07 fld 10240,dl 002640 la 4 00120 3521 20 epp2 pr4|80,* pnt_db_util_$priv_get_entry 002641 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 324 return; 002642 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO remove_entry STATEMENT 1 ON LINE 326 remove_entry: entry (P_person_id, P_code); 002643 at 000002000041 002644 ta 000042000000 002645 ta 002643000000 002646 da 000457300000 002647 aa 000600 6270 00 eax7 384 002650 aa 7 00034 3521 20 epp2 pr7|28,* 002651 aa 2 01046 2721 00 tsp2 pr2|550 ext_entry_desc 002652 aa 000004000000 002653 aa 000000000000 002654 aa 6 00042 3735 20 epp7 pr6|34,* 002655 aa 7 00000 2361 20 ldq pr7|0,* 002656 aa 000002 6040 04 tmi 2,ic 002660 002657 aa 777777 3760 07 anq 262143,dl 002660 aa 0 00250 3761 00 anq pr0|168 = 000077777777 002661 aa 6 00210 7561 00 stq pr6|136 002662 aa 6 00032 3715 20 epp5 pr6|26,* 002663 aa 5 00004 3535 20 epp3 pr5|4,* 002664 aa 6 00170 2535 00 spri3 pr6|120 STATEMENT 1 ON LINE 329 call INITIALIZE (); 002665 aa 000342 6700 04 tsp4 226,ic 003227 STATEMENT 1 ON LINE 330 call pnt_db_util_$remove_entry (pnt_ptr, NO_AUDIT, P_person_id, P_code); 002666 aa 6 00044 3701 20 epp4 pr6|36,* 002667 ia 4 00012 3521 00 epp2 pr4|10 pnt_ptr 002670 aa 6 00240 2521 00 spri2 pr6|160 002671 aa 775142 3520 04 epp2 -1438,ic 000033 = 000000000000 002672 aa 6 00242 2521 00 spri2 pr6|162 002673 aa 6 00032 3735 20 epp7 pr6|26,* 002674 aa 7 00002 3521 20 epp2 pr7|2,* P_person_id 002675 aa 6 00244 2521 00 spri2 pr6|164 002676 aa 6 00170 3521 20 epp2 pr6|120,* P_code 002677 aa 6 00246 2521 00 spri2 pr6|166 002700 aa 775143 3520 04 epp2 -1437,ic 000043 = 464000000000 002701 aa 6 00250 2521 00 spri2 pr6|168 002702 aa 775136 3520 04 epp2 -1442,ic 000040 = 514000000001 002703 aa 6 00252 2521 00 spri2 pr6|170 002704 aa 6 00042 3715 20 epp5 pr6|34,* 002705 aa 5 00000 3521 20 epp2 pr5|0,* 002706 aa 6 00254 2521 00 spri2 pr6|172 002707 aa 775133 3520 04 epp2 -1445,ic 000042 = 404000000043 002710 aa 6 00256 2521 00 spri2 pr6|174 002711 aa 6 00236 6211 00 eax1 pr6|158 002712 aa 020000 4310 07 fld 8192,dl 002713 la 4 00122 3521 20 epp2 pr4|82,* pnt_db_util_$remove_entry 002714 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 331 return; 002715 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO replace_acl STATEMENT 1 ON LINE 333 replace_acl: entry (P_dirname, P_entryname, P_acl_ptr, P_no_sysdaemon, P_code); 002716 at 000005000041 002717 tt 000041000043 002720 tt 000040000042 002721 ta 002716000000 002722 da 000462300000 002723 aa 000600 6270 00 eax7 384 002724 aa 7 00034 3521 20 epp2 pr7|28,* 002725 aa 2 01046 2721 00 tsp2 pr2|550 ext_entry_desc 002726 aa 000012000000 002727 aa 000000000000 002730 aa 6 00042 3735 20 epp7 pr6|34,* 002731 aa 7 00000 2361 20 ldq pr7|0,* 002732 aa 000002 6040 04 tmi 2,ic 002734 002733 aa 777777 3760 07 anq 262143,dl 002734 aa 0 00250 3761 00 anq pr0|168 = 000077777777 002735 aa 6 00210 7561 00 stq pr6|136 002736 aa 7 00002 2361 20 ldq pr7|2,* 002737 aa 000002 6040 04 tmi 2,ic 002741 002740 aa 777777 3760 07 anq 262143,dl 002741 aa 0 00250 3761 00 anq pr0|168 = 000077777777 002742 aa 6 00400 7561 00 stq pr6|256 002743 aa 6 00032 3715 20 epp5 pr6|26,* 002744 aa 5 00006 3535 20 epp3 pr5|6,* 002745 aa 6 00166 2535 00 spri3 pr6|118 002746 aa 5 00012 3515 20 epp1 pr5|10,* 002747 aa 6 00170 2515 00 spri1 pr6|120 STATEMENT 1 ON LINE 336 call pnt_fs_util_$replace_acl (P_dirname, P_entryname, P_acl_ptr, P_no_sysdaemon, P_code); 002750 aa 6 00032 3735 20 epp7 pr6|26,* 002751 aa 7 00002 3521 20 epp2 pr7|2,* P_dirname 002752 aa 6 00240 2521 00 spri2 pr6|160 002753 aa 7 00004 3521 20 epp2 pr7|4,* P_entryname 002754 aa 6 00242 2521 00 spri2 pr6|162 002755 aa 6 00166 3521 20 epp2 pr6|118,* P_acl_ptr 002756 aa 6 00244 2521 00 spri2 pr6|164 002757 aa 7 00010 3521 20 epp2 pr7|8,* P_no_sysdaemon 002760 aa 6 00246 2521 00 spri2 pr6|166 002761 aa 6 00170 3521 20 epp2 pr6|120,* P_code 002762 aa 6 00250 2521 00 spri2 pr6|168 002763 aa 6 00042 3715 20 epp5 pr6|34,* 002764 aa 5 00000 3521 20 epp2 pr5|0,* 002765 aa 6 00252 2521 00 spri2 pr6|170 002766 aa 5 00002 3521 20 epp2 pr5|2,* 002767 aa 6 00254 2521 00 spri2 pr6|172 002770 aa 775053 3520 04 epp2 -1493,ic 000043 = 464000000000 002771 aa 6 00256 2521 00 spri2 pr6|174 002772 aa 775046 3520 04 epp2 -1498,ic 000040 = 514000000001 002773 aa 6 00260 2521 00 spri2 pr6|176 002774 aa 775046 3520 04 epp2 -1498,ic 000042 = 404000000043 002775 aa 6 00262 2521 00 spri2 pr6|178 002776 aa 6 00236 6211 00 eax1 pr6|158 002777 aa 024000 4310 07 fld 10240,dl 003000 aa 6 00044 3701 20 epp4 pr6|36,* 003001 la 4 00150 3521 20 epp2 pr4|104,* pnt_fs_util_$replace_acl 003002 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 337 return; 003003 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO table_data STATEMENT 1 ON LINE 339 table_data: entry (P_pnt_info_ptr, P_num_entries, P_code); 003004 at 000003000043 003005 tt 000042000042 003006 ta 003004000000 003007 da 000465300000 003010 aa 000600 6270 00 eax7 384 003011 aa 7 00034 3521 20 epp2 pr7|28,* 003012 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 003013 aa 000006000000 003014 aa 000000000000 003015 aa 6 00032 3735 20 epp7 pr6|26,* 003016 aa 7 00006 3715 20 epp5 pr7|6,* 003017 aa 6 00170 6515 00 spri5 pr6|120 STATEMENT 1 ON LINE 342 call INITIALIZE (); 003020 aa 000207 6700 04 tsp4 135,ic 003227 STATEMENT 1 ON LINE 343 call pnt_db_util_$table_data (pnt_ptr, NO_AUDIT, P_pnt_info_ptr, P_num_entries, P_code); 003021 aa 6 00044 3701 20 epp4 pr6|36,* 003022 ia 4 00012 3521 00 epp2 pr4|10 pnt_ptr 003023 aa 6 00220 2521 00 spri2 pr6|144 003024 aa 775007 3520 04 epp2 -1529,ic 000033 = 000000000000 003025 aa 6 00222 2521 00 spri2 pr6|146 003026 aa 6 00032 3735 20 epp7 pr6|26,* 003027 aa 7 00002 3521 20 epp2 pr7|2,* P_pnt_info_ptr 003030 aa 6 00224 2521 00 spri2 pr6|148 003031 aa 7 00004 3521 20 epp2 pr7|4,* P_num_entries 003032 aa 6 00226 2521 00 spri2 pr6|150 003033 aa 6 00170 3521 20 epp2 pr6|120,* P_code 003034 aa 6 00230 2521 00 spri2 pr6|152 003035 aa 6 00216 6211 00 eax1 pr6|142 003036 aa 024000 4310 07 fld 10240,dl 003037 la 4 00124 3521 20 epp2 pr4|84,* pnt_db_util_$table_data 003040 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 344 return; 003041 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO update_entry STATEMENT 1 ON LINE 346 update_entry: entry (P_pnt_entry_ptr, P_set_password, P_set_network_password, P_code); 003042 at 000004000043 003043 tt 000040000040 003044 ta 000042000000 003045 ta 003042000000 003046 da 000470300000 003047 aa 000600 6270 00 eax7 384 003050 aa 7 00034 3521 20 epp2 pr7|28,* 003051 aa 2 01045 2721 00 tsp2 pr2|549 ext_entry 003052 aa 000010000000 003053 aa 000000000000 003054 aa 6 00032 3735 20 epp7 pr6|26,* 003055 aa 7 00002 3715 20 epp5 pr7|2,* 003056 aa 6 00172 6515 00 spri5 pr6|122 003057 aa 7 00010 3535 20 epp3 pr7|8,* 003060 aa 6 00170 2535 00 spri3 pr6|120 STATEMENT 1 ON LINE 349 call INITIALIZE (); 003061 aa 000146 6700 04 tsp4 102,ic 003227 STATEMENT 1 ON LINE 350 call pnt_db_util_$update_entry (pnt_ptr, NO_AUDIT, P_pnt_entry_ptr, P_set_password, P_set_network_password, P_code); 003062 aa 6 00044 3701 20 epp4 pr6|36,* 003063 ia 4 00012 3521 00 epp2 pr4|10 pnt_ptr 003064 aa 6 00220 2521 00 spri2 pr6|144 003065 aa 774746 3520 04 epp2 -1562,ic 000033 = 000000000000 003066 aa 6 00222 2521 00 spri2 pr6|146 003067 aa 6 00172 3521 20 epp2 pr6|122,* P_pnt_entry_ptr 003070 aa 6 00224 2521 00 spri2 pr6|148 003071 aa 6 00032 3735 20 epp7 pr6|26,* 003072 aa 7 00004 3521 20 epp2 pr7|4,* P_set_password 003073 aa 6 00226 2521 00 spri2 pr6|150 003074 aa 7 00006 3521 20 epp2 pr7|6,* P_set_network_password 003075 aa 6 00230 2521 00 spri2 pr6|152 003076 aa 6 00170 3521 20 epp2 pr6|120,* P_code 003077 aa 6 00232 2521 00 spri2 pr6|154 003100 aa 6 00216 6211 00 eax1 pr6|142 003101 aa 030000 4310 07 fld 12288,dl 003102 la 4 00126 3521 20 epp2 pr4|86,* pnt_db_util_$update_entry 003103 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 352 return; 003104 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO validate STATEMENT 1 ON LINE 354 validate: entry (P_dirname, P_entryname, P_code); 003105 ta 001712000000 003106 da 000473300000 003107 aa 000600 6270 00 eax7 384 003110 aa 7 00034 3521 20 epp2 pr7|28,* 003111 aa 2 01046 2721 00 tsp2 pr2|550 ext_entry_desc 003112 aa 000006000000 003113 aa 000000000000 003114 aa 6 00042 3735 20 epp7 pr6|34,* 003115 aa 7 00000 2361 20 ldq pr7|0,* 003116 aa 000002 6040 04 tmi 2,ic 003120 003117 aa 777777 3760 07 anq 262143,dl 003120 aa 0 00250 3761 00 anq pr0|168 = 000077777777 003121 aa 6 00210 7561 00 stq pr6|136 003122 aa 7 00002 2361 20 ldq pr7|2,* 003123 aa 000002 6040 04 tmi 2,ic 003125 003124 aa 777777 3760 07 anq 262143,dl 003125 aa 0 00250 3761 00 anq pr0|168 = 000077777777 003126 aa 6 00400 7561 00 stq pr6|256 003127 aa 6 00032 3715 20 epp5 pr6|26,* 003130 aa 5 00006 3535 20 epp3 pr5|6,* 003131 aa 6 00170 2535 00 spri3 pr6|120 STATEMENT 1 ON LINE 357 call pnt_fs_util_$validate (P_dirname, P_entryname, P_code); 003132 aa 6 00032 3735 20 epp7 pr6|26,* 003133 aa 7 00002 3521 20 epp2 pr7|2,* P_dirname 003134 aa 6 00220 2521 00 spri2 pr6|144 003135 aa 7 00004 3521 20 epp2 pr7|4,* P_entryname 003136 aa 6 00222 2521 00 spri2 pr6|146 003137 aa 6 00170 3521 20 epp2 pr6|120,* P_code 003140 aa 6 00224 2521 00 spri2 pr6|148 003141 aa 6 00042 3715 20 epp5 pr6|34,* 003142 aa 5 00000 3521 20 epp2 pr5|0,* 003143 aa 6 00226 2521 00 spri2 pr6|150 003144 aa 5 00002 3521 20 epp2 pr5|2,* 003145 aa 6 00230 2521 00 spri2 pr6|152 003146 aa 774674 3520 04 epp2 -1604,ic 000042 = 404000000043 003147 aa 6 00232 2521 00 spri2 pr6|154 003150 aa 6 00216 6211 00 eax1 pr6|142 003151 aa 014000 4310 07 fld 6144,dl 003152 aa 6 00044 3701 20 epp4 pr6|36,* 003153 la 4 00152 3521 20 epp2 pr4|106,* pnt_fs_util_$validate 003154 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 358 return; 003155 aa 0 00631 7101 00 tra pr0|409 return ENTRY TO validate_entry STATEMENT 1 ON LINE 360 validate_entry: entry (P_person_id, P_code); 003156 ta 002643000000 003157 da 000476300000 003160 aa 000600 6270 00 eax7 384 003161 aa 7 00034 3521 20 epp2 pr7|28,* 003162 aa 2 01046 2721 00 tsp2 pr2|550 ext_entry_desc 003163 aa 000004000000 003164 aa 000000000000 003165 aa 6 00042 3735 20 epp7 pr6|34,* 003166 aa 7 00000 2361 20 ldq pr7|0,* 003167 aa 000002 6040 04 tmi 2,ic 003171 003170 aa 777777 3760 07 anq 262143,dl 003171 aa 0 00250 3761 00 anq pr0|168 = 000077777777 003172 aa 6 00210 7561 00 stq pr6|136 003173 aa 6 00032 3715 20 epp5 pr6|26,* 003174 aa 5 00004 3535 20 epp3 pr5|4,* 003175 aa 6 00170 2535 00 spri3 pr6|120 STATEMENT 1 ON LINE 363 call INITIALIZE (); 003176 aa 000031 6700 04 tsp4 25,ic 003227 STATEMENT 1 ON LINE 364 call pnt_db_util_$validate_entry (pnt_ptr, NO_AUDIT, P_person_id, P_code); 003177 aa 6 00044 3701 20 epp4 pr6|36,* 003200 ia 4 00012 3521 00 epp2 pr4|10 pnt_ptr 003201 aa 6 00240 2521 00 spri2 pr6|160 003202 aa 774631 3520 04 epp2 -1639,ic 000033 = 000000000000 003203 aa 6 00242 2521 00 spri2 pr6|162 003204 aa 6 00032 3735 20 epp7 pr6|26,* 003205 aa 7 00002 3521 20 epp2 pr7|2,* P_person_id 003206 aa 6 00244 2521 00 spri2 pr6|164 003207 aa 6 00170 3521 20 epp2 pr6|120,* P_code 003210 aa 6 00246 2521 00 spri2 pr6|166 003211 aa 774632 3520 04 epp2 -1638,ic 000043 = 464000000000 003212 aa 6 00250 2521 00 spri2 pr6|168 003213 aa 774625 3520 04 epp2 -1643,ic 000040 = 514000000001 003214 aa 6 00252 2521 00 spri2 pr6|170 003215 aa 6 00042 3715 20 epp5 pr6|34,* 003216 aa 5 00000 3521 20 epp2 pr5|0,* 003217 aa 6 00254 2521 00 spri2 pr6|172 003220 aa 774622 3520 04 epp2 -1646,ic 000042 = 404000000043 003221 aa 6 00256 2521 00 spri2 pr6|174 003222 aa 6 00236 6211 00 eax1 pr6|158 003223 aa 020000 4310 07 fld 8192,dl 003224 la 4 00130 3521 20 epp2 pr4|88,* pnt_db_util_$validate_entry 003225 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 365 return; 003226 aa 0 00631 7101 00 tra pr0|409 return STATEMENT 1 ON LINE 400 end test_pnt_manager_; BEGIN PROCEDURE INITIALIZE ENTRY TO INITIALIZE STATEMENT 1 ON LINE 367 INITIALIZE: procedure (); 003227 aa 6 00174 6501 00 spri4 pr6|124 STATEMENT 1 ON LINE 370 if pnt_ptr ^= null /* already initialized */ then return; 003230 aa 6 00044 3701 20 epp4 pr6|36,* 003231 ia 4 00012 2371 00 ldaq pr4|10 pnt_ptr 003232 aa 774612 6770 04 eraq -1654,ic 000044 = 077777000043 000001000000 003233 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 003234 aa 000002 6000 04 tze 2,ic 003236 003235 aa 6 00174 6101 00 rtcd pr6|124 STATEMENT 1 ON LINE 373 TRY_TO_OPEN_PNT: call pnt_db_util_$open (saved_pnt_dir, PNT_NAME, NO_AUDIT, pnt_ptr, code); 003236 aa 6 00044 3701 20 epp4 pr6|36,* 003237 ia 4 00014 3521 00 epp2 pr4|12 saved_pnt_dir 003240 aa 6 00406 2521 00 spri2 pr6|262 003241 aa 774537 3520 04 epp2 -1697,ic 000000 = 120116124056 003242 aa 6 00410 2521 00 spri2 pr6|264 003243 aa 774570 3520 04 epp2 -1672,ic 000033 = 000000000000 003244 aa 6 00412 2521 00 spri2 pr6|266 003245 ia 4 00012 3521 00 epp2 pr4|10 pnt_ptr 003246 aa 6 00414 2521 00 spri2 pr6|268 003247 aa 6 00100 3521 00 epp2 pr6|64 code 003250 aa 6 00416 2521 00 spri2 pr6|270 003251 aa 774566 3520 04 epp2 -1674,ic 000037 = 526000000250 003252 aa 6 00420 2521 00 spri2 pr6|272 003253 aa 774540 3520 04 epp2 -1696,ic 000013 = 526000000007 003254 aa 6 00422 2521 00 spri2 pr6|274 003255 aa 774563 3520 04 epp2 -1677,ic 000040 = 514000000001 003256 aa 6 00424 2521 00 spri2 pr6|276 003257 aa 774564 3520 04 epp2 -1676,ic 000043 = 464000000000 003260 aa 6 00426 2521 00 spri2 pr6|278 003261 aa 774561 3520 04 epp2 -1679,ic 000042 = 404000000043 003262 aa 6 00430 2521 00 spri2 pr6|280 003263 aa 6 00404 6211 00 eax1 pr6|260 003264 aa 024000 4310 07 fld 10240,dl 003265 la 4 00114 3521 20 epp2 pr4|76,* pnt_db_util_$open 003266 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 375 if code ^= 0 then do; 003267 aa 6 00100 2361 00 ldq pr6|64 code 003270 aa 000071 6000 04 tze 57,ic 003361 STATEMENT 1 ON LINE 377 call sub_err_ (code, ME, ACTION_CAN_RESTART, null (), (0), "Cannot open the PNT in ^a.", pathname_ (saved_pnt_dir, PNT_NAME)); 003271 aa 774553 3734 24 epp7 -1685,ic* 003272 aa 6 00432 6535 00 spri7 pr6|282 003273 aa 6 00403 4501 00 stz pr6|259 003274 aa 000 100 100 404 mlr (ic),(pr),fill(000) 003275 aa 774557 00 0034 desc9a -1681,28 000053 = 103141156156 003276 aa 6 00404 00 0034 desc9a pr6|260,28 003277 aa 6 00044 3701 20 epp4 pr6|36,* 003300 ia 4 00014 3521 00 epp2 pr4|12 saved_pnt_dir 003301 aa 6 00510 2521 00 spri2 pr6|328 003302 aa 774476 3520 04 epp2 -1730,ic 000000 = 120116124056 003303 aa 6 00512 2521 00 spri2 pr6|330 003304 aa 6 00434 3521 00 epp2 pr6|284 003305 aa 6 00514 2521 00 spri2 pr6|332 003306 aa 774531 3520 04 epp2 -1703,ic 000037 = 526000000250 003307 aa 6 00516 2521 00 spri2 pr6|334 003310 aa 6 00522 2521 00 spri2 pr6|338 003311 aa 774502 3520 04 epp2 -1726,ic 000013 = 526000000007 003312 aa 6 00520 2521 00 spri2 pr6|336 003313 aa 6 00506 6211 00 eax1 pr6|326 003314 aa 014000 4310 07 fld 6144,dl 003315 la 4 00074 3521 20 epp2 pr4|60,* pathname_ 003316 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc 003317 aa 6 00100 3521 00 epp2 pr6|64 code 003320 aa 6 00526 2521 00 spri2 pr6|342 003321 aa 774461 3520 04 epp2 -1743,ic 000002 = 164145163164 003322 aa 6 00530 2521 00 spri2 pr6|344 003323 aa 774510 3520 04 epp2 -1720,ic 000033 = 000000000000 003324 aa 6 00532 2521 00 spri2 pr6|346 003325 aa 6 00432 3521 00 epp2 pr6|282 003326 aa 6 00534 2521 00 spri2 pr6|348 003327 aa 6 00403 3521 00 epp2 pr6|259 003330 aa 6 00536 2521 00 spri2 pr6|350 003331 aa 6 00404 3521 00 epp2 pr6|260 003332 aa 6 00540 2521 00 spri2 pr6|352 003333 aa 6 00434 3521 00 epp2 pr6|284 003334 aa 6 00542 2521 00 spri2 pr6|354 003335 aa 774505 3520 04 epp2 -1723,ic 000042 = 404000000043 003336 aa 6 00544 2521 00 spri2 pr6|356 003337 aa 774473 3520 04 epp2 -1733,ic 000032 = 526000000040 003340 aa 6 00546 2521 00 spri2 pr6|358 003341 aa 774470 3520 04 epp2 -1736,ic 000031 = 514000000044 003342 aa 6 00550 2521 00 spri2 pr6|360 003343 aa 774500 3520 04 epp2 -1728,ic 000043 = 464000000000 003344 aa 6 00552 2521 00 spri2 pr6|362 003345 aa 774463 3520 04 epp2 -1741,ic 000030 = 404000000005 003346 aa 6 00554 2521 00 spri2 pr6|364 003347 aa 774443 3520 04 epp2 -1757,ic 000012 = 524000000033 003350 aa 6 00556 2521 00 spri2 pr6|366 003351 aa 774453 3520 04 epp2 -1749,ic 000024 = 524000000250 003352 aa 6 00560 2521 00 spri2 pr6|368 003353 aa 6 00524 6211 00 eax1 pr6|340 003354 aa 034000 4310 07 fld 14336,dl 003355 aa 6 00044 3701 20 epp4 pr6|36,* 003356 la 4 00154 3521 20 epp2 pr4|108,* sub_err_ 003357 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 379 goto TRY_TO_OPEN_PNT; 003360 aa 777656 7100 04 tra -82,ic 003236 STATEMENT 1 ON LINE 380 end; STATEMENT 1 ON LINE 382 return; 003361 aa 6 00174 6101 00 rtcd pr6|124 STATEMENT 1 ON LINE 383 end INITIALIZE; END PROCEDURE INITIALIZE BEGIN PROCEDURE CLEAN_UP ENTRY TO CLEAN_UP STATEMENT 1 ON LINE 385 CLEAN_UP: procedure (); 003362 aa 6 00202 6501 00 spri4 pr6|130 STATEMENT 1 ON LINE 392 call pnt_db_util_$close (pnt_ptr, NO_AUDIT, (0)); 003363 aa 6 00562 4501 00 stz pr6|370 003364 aa 6 00044 3701 20 epp4 pr6|36,* 003365 ia 4 00012 3521 00 epp2 pr4|10 pnt_ptr 003366 aa 6 00566 2521 00 spri2 pr6|374 003367 aa 774444 3520 04 epp2 -1756,ic 000033 = 000000000000 003370 aa 6 00570 2521 00 spri2 pr6|376 003371 aa 6 00562 3521 00 epp2 pr6|370 003372 aa 6 00572 2521 00 spri2 pr6|378 003373 aa 6 00564 6211 00 eax1 pr6|372 003374 aa 014000 4310 07 fld 6144,dl 003375 la 4 00102 3521 20 epp2 pr4|66,* pnt_db_util_$close 003376 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 393 return; 003377 aa 6 00202 6101 00 rtcd pr6|130 STATEMENT 1 ON LINE 394 end CLEAN_UP; END PROCEDURE CLEAN_UP END PROCEDURE test_pnt_manager_ ----------------------------------------------------------- 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