1 :Info: copy_seg_: 1988-12-08  copy_seg_
 2 
 3 
 4 Entry points in copy_seg_:
 5    (List is generated by the help command)
 6 
 7 
 8 :Entry: copy_seg_:  1988-12-08  copy_seg_
 9 
10 Function: This subroutine produces a copy of a Multics non-directory
11 branch.  Name duplication is handled by nd_handler_.
12 
13 
14 Syntax:
15 dcl copy_seg_ external entry(char(*),char(*),char(*),char(*),
16               char(*),bit(1) aligned,fixed bin(35));
17 call copy_seg_(dir1, en1, dir2, en2, caller, errsw, code);
18 
19 
20 Arguments:
21 dir1
22    the directory in which the original segment is found. (Input)
23 en1
24    a name on the original segment. (Input)
25 dir2
26    the directory in which the copy is to be created. (Input)
27 en2
28    the name to be given the new segment. (Input)
29 
30 
31 caller
32    the name of the calling procedure; it is used in calls to
33    nd_handler_. (Input)
34 errsw
35    indicates which segment the error reported via "code"
36    occurred in; it is "0"b if the error was on the original
37    segment and "1"b if on the target segment. (Output)
38 code
39    a standard file system status code. (Output)
40 
41 
42 Notes: Any attempt to copy a segment into itself is refused and the
43 code error_table_$sameseg is returned to the caller.  If a name
44 duplication occurs and the conflicting name is not deleted, then the
45 code error_table_$namedup is returned to the caller.
46 
47 If copying a non-empty mailbox requires that the max_length
48 characteristic of the source be applied to the target, then the target
49 max_length value will take on the default value that was given it when
50 created.
51 
52 
53 :hcom:
54 
55 
56 
57 /****^  HISTORY COMMENTS:
58   1) change(2020-04-21,GDixon), approve(2021-02-22,MCR10088),
59      audit(2021-05-27,Swenson), install(2021-05-27,MR12.6g-0056):
60      A) Add missing subroutine introduction block to info segment.
61      B) Fix order of sections per info seg guidelines.
62                                                    END HISTORY COMMENTS */
63 
64 
65