Trailing-Edge - PDP-10 Archives - BB-H580C-SB_1981 - cpylib.exe
There are 25 other files named cpylib.exe in the archive. Click here to see a list.
?p@@@ `?xGCMJ1Kb)><
I>`INXg#	tzS)rb?{rE@@s]`M
{r+[*>	`  E4  E6 E8 8E: E< 8E= 8E? 8CE@}@/ 	b+Z " $,
?CPYCNR Cannot restart program now.
[Assuming you meant to type "POPJ 17,$X" - returning to CPYLIB]
?CPYDNA DDT is not accessible
GCMJ1"BiSHILj6"B4"C?CPYINI Illegal to nest indirect command files\OENDINSERT\XEXTRACTDbDELETEREPLACEWHERE"CHAt?CPYLTL Command line too long?CPYEML EOF in middle of command line ,^+	D,^,~(Command file aborted: )
HB?CPYKWE Keyword expected "C~+H?CPYIVK Invalid keyword: 4DV+O?CPYKNU Keyword not unique: , got: <EOL>

?CPYILE Internal CPYLIB error - a bug!
?CPYICM Invalid character in module name: HL?CPYMNE Module name expected, got: <EOL>?Not confirmed"B"PB JB+?Invalid character in filename: ?Garbage after filespec?CPYEFS Error in filespec`t+D[B
+-?CPYCEP Comma expected in PPN?CPYEXP Expected "]" to end PPN 
+=?CPYTMS Too many SFD's specified
&D.+-?CPYEXP Expected "," or "]" to end SFD?CPYEXP Expecting delimiter after filespecl4A~+d`t",~H-.PB?CPYPUF PATH. UUO failed, error code = HD%CPYNLM Directory is empty-- no listing made

*** End of library file listing ***

HDM,Q,~+,     ,[,~+1HHF?CPYFWN First word in library line not line number
?CPYLNE Line number embedded in library module

*** Program HDeAZAY,AZAZAZ:AZ,AZ,8AY:AZ8AY8AZ,8A[8AZ-----  <Current pointer>
	/SHDqIMIP?CPYPEF Premature EOF reading directory of input library file?CPYFFD Input file format is bad-- not a COBOL library file?CPYMBP Module  has been passed, type "END" then UPDATE again
?CPYAIM Already inserted that module
?CPYMMI Modules must be inserted in alphabetical order
QEX	`+0B}Ialready in the library: ?CPYMNE Module not found in the library: 000000MLX,	Y,	\+	XT?CPYTMM Too many modules in the library
Word address too large?CPYPEL Premature EOF in library file
:AY,AYT?CPYMNF Module  not found
input library fileoutput library fileinput offline fileoutput offline filetemp fileoutput directory filelistingcommand fileX EBS?%\ Default buffer size requested larger than 512. pages
 Max IFN requested larger than MAXIFN
m0 EE< EE EE0Can't open ^8 because:
 File is already openMxTACan't open ^8 because:
 Byte size not between 1 and 36EN(TFNot enough memory for buffers;
 can't open ^8 for output]hTMl+l&+l&+No such device: ^6]N TVCan't open ^8:
 Specified device is not supportedI;TYCan't enter ^8 because:
 FILOP. UUO failed: (^A) -- ^BG0T_@@Sj+,$$TError positioning ^8:
 FILOP. UUO (USETI) failed, error (^A) -- ^BKB0Tg,d+m1B+;+mCan't open ^8 because:
 Attempt to read temp file before writing ite8TqCan't open ^8 because:
 Input byte size differs from output byte sizeEN TyCan't open ^8 because:
 Can't open more than one TTY: file for input at the same timeixUCan't open ^8 because:
 Not enough memory for buffers]hU
 +w"+w B EI+qCan't read from ^8 because:
 Supplied extended LOOKUP block is too small - must have room for .RBSIZ wordGJ0UCan't read from ^8 because:
 FILOP. UUO failed: (^A) -- ^BGJ0Ufiletemp file
Error writing ^8:
 FILOP. UUO error (^A) -- ^BK^0U(Can't open ^8 because:
 FILOP. UUO to open file for single-access update failed:
 (^A) -- ^BkU-Error reading ^8:
 FILOP. UUO error (^A) -- ^BKJ0U77@Sp+p+oCan't position ^8: File not opened for inputM:xU>Can't position ^8: File must be a disk fileM6 UCError positioning ^8:
 FILOP. UUO (IN) failed, error (^A) -- ^BKB0UHCan't close ^8 because:
 CLOSE function of FILOP. UUO failed: (^A) -- ^Bk>(UOCan't close ^8 because:
 RELEAS function of FILOP. UUO failed: (^A)--^Bk>(UWCan't close ^8: File was not openG0U_Can't get rid of ^8:
 FILOP. CLOSE UUO failed: (^A) -- ^Bk>(UdCan't get rid of ^8:
 FILOP. DELETE UUO failed: (^A) -- ^Bk>(UjCan't get rid of ^8:
 FILOP. RELEASE UUO failed: (^A) -- ^Bk>(UqCan't get rid of ^8:
 FILOP. CLOSE UUO failed (^A) -- ^Bk>(UxCan't get rid of ^8:
 FILOP. DELETE UUO failed (^A) -- ^Bk>(U~Can't get rid of ^8:
 FILOP. RELEASE UUO failed (^A) -- ^Bk>(VCan't RENAME ^8:
 FILOP. UUO failed (^A) -- ^BGJ0VCan't RENAME ^8:
 Size of EXTENDED ENTER block supplied is too large[b(VCan't RENAME ^8:
 FILOP. UUO seems to be broken at ITRNFD in IOTMP moduleGJ0VCan't RENAME ^8:
 FILOP. UUO failed trying to delete old file:
 (^A) -- ^BG0V Can't RELEASE ^8:
 FILOP. UUO failed (^A) -- ^BGJ0V)HSs** Error pertains to RUN, GETSEG, or MERGE. **** Unknown FILOP. error **HV4File not foundUFD does not existProtection failureFile being modifiedSpecified file already existsIllegal sequence of UUOsDevice or data errorIllegal monitor call for FILOP.No room or quota exceededWrite-lock errorNot enough monitor table space availablePartial allocation onlyBlock not free on allocated positionCannot supersede a directoryCannot delete non-empty directorySFD not foundSearch list is emptySFD level too deepNo DSK: available to create a file onCannot update fileFile still has outstanding locks setNetwork capacity exceeded, no space for connect messageTask was not availableUnknown network nodeSFD is inuse by another jobFile has an NDR lockToo many readersSFD to lower levelChannel not openDevice down and ususeableDevice is restrictedDevice is controlled by the MDADevice belongs to another jobIllegal data modeUndefined/unknown open bits setDevice in use on MPX channelNot enough per process space for extended I/O channel tableNo free channels availableUnknown FILOP. functionChannel number too bigChannel illegal for operation
uPW-W3 Too many modules called the initialize routine
 "INITM" routine not called by main program
HW3[??MMANGR: Can't create a page:  PAGE. error code =  Page number  already exists
?MMANGR: RETRN routine can't destroy a page,
 PAGE. UUO error code =  Attempt to return more than 1000 pages at a time
 Input starting address of block not on a page boundary
 Input starting address of block + # pages returned
 goes over a section boundary
 Attempt to return pages before page map was supplied
 Attempt to return pages that were not reserved
?LL+?@[ maintenance tool.
Type "R CPYLIB <carriage-return>" to run CPYLIB.

  Once CPYLIB is ready to accept a command, it will type the prompt
"CPYLIB" followed by a right angle bracket. You may then type
one of the following commands:

UPDATE library-file <space> output-file
		;Read from the specified library file, and write
		;a file with the specified output name. If output-file
		;is not supplied, the same filename is used.
		;You will be in CPYLIB UPDATE mode (see below).

READ library-file
		;Read from the specified library file. Do not write
		; output anywhere. You will be in CPYLIB Read
		; mode (see below).

CREATE library-file
		;Create a new library file with the specified name.
		; You will be put in CPYLIB CREATE mode (see below).

DIRECTORY library-file <space> output-file
		;Do a directory of the library file, and write the
		; output to the specified output-file. If output-file
		; is not given, the output will go to the terminal.

LIST library-file <space> output-file
		;Write a listing of the library file to the specified
		; output file. If output-file is not given, the
		; output will go to DSK:CPYLIB.LST.

TAKE cmdfile
		;Take commands from the specified file.

	You select one of the three CPYLIB modes by using one of
the top-level commands "UPDATE", "CREATE", or "READ". CPYLIB
gives you a different prompt for each of the modes. You may
type "HELP" once you are in the modes for further information.
Here is a summary of the commands allowed in each mode:

	The prompt will be "CPYLIB Update" followed by two right angle-brackets.
You are then able to specify any or all of the following commands:


CPYLIB Read mode:
	The prompt will be "CPYLIB Read" followed by two right angle-brackets.
You are then able to specify any or all of the following commands:


	The prompt will be "CPYLIB Create" followed by two right angle brackets.
You are then able to specify any or all of the following commands:


In CREATE mode, you are creating a new COBOL library from scratch.

Insert modules in alphabetical order using the "INSERT" command.
For example, "INSERT MODNAM FILE.EXT" will insert the module "MODNAM"
from the file FILE.EXT.

Other commands in INSERT mode are:

TAKE filespec	;Read commands from the specified file

END		;Write out the library file and go back to
		; the top level of CPYLIB

EXIT		;Write out the library file and exit.

HELP		;Type this text

In UPDATE mode, you are reading from one library file,
changing it by module REPLACEment, DELETion, and INSERTion,
and writing the updated library file back out.

UPDATE mode is analagous to using a text editor which can only go
forwards in the file, looking at one module at a time. Since
the modules in a library are in alphabetical order, you must reference
module names in update-mode commands in alphabetical order.

Commands in update mode are:

INSERT module file.ext	;Insert the specified file into the library
			;and call it "module"

REPLACE module file.ext	;Replace the contents of "module" with the contents
			; of the specified file.

DELETE module		;Delete "module" from the library.

TAKE file.ext		;Take commands from the specified file

END			;Write out the updated library file and
			; go back to CPYLIB's top command level.

EXIT			;Write out the updated library file and
			; exit.

WHERE			;Show where in the directory we are. This
			; command will type a few modules before and
			; after the current position. The current position
			; is important because you cannot reference modules
			; whose names are alphabetically before it.

HELP			;Type this text

In READ mode, you are reading from a particular COBOL library file
but not changing it in any way. The only thing you can do in READ mode
is "EXTRACT" a module (copy it to a file). Modules can be EXTRACTed
from the library in any order.

Commands are:

EXTRACT module file.ext	;Copy the module from the library into the
			;specified file

TAKE file.ext		;Take commands from the specified file

END			;Return to CPYLIB's top command level

EXIT			;EXIT to monitor command level

HELP			;Type this text

CPYLIB Create>>CPYLIB Read>>CPYLIB Update>>+ 	` C@ ^Df " BL,,	@,s4BS	`@ CAZ&<,
W4BV	`, "D,}+X " BLat
dt+CB,,v,s1R+X1R +b!"{X"c,8+-,+X,>+X8Th8d8l8t9<9
,9.99$>9,o,~ CK BB!"J1 BB,,y CL*"Bl ,Bh .Bm,d+H,~ CK BB!"J1 BB, CL*"BR ,BN .BS,,>A~,s,^A~1R+~,~ CK BB!"J1 BB,,y CL*"Bl ,Bh .Bm,d+[l CL*"Bl ,Bh .Bm,+[,~ CK BB!"J1 BB,,y CL*"BR ,BN .BS,+R,y6@+ @C8 CM* C? $	d=+ CM*  C8 $	d
&CN,>( "XB(Z,,^(,~
&CS,~ CM*  C8
&C]+-ggm6$MKb(,~ CK BB!"J1 BB, CL*"BR ,BN .BS,,>A~,s,^A~1R+(,~ Ca BB!"H| BB, Ca*"B ,B .B,,y+,~ Cb BB Cb BB ,B .B,+,y
&,~,~ CK BB!"J1 BB, CL*"BR ,BN .BS,,~ Ca BB!"Lz BB,,y Cc*"B8 ,B4 .B9,d B:	b`bl+,y	b,~`t+G,~ Ca BB!";2 BB,,y Cc*"C ,C .C, "C6,(5B	Dl4,~
&Cd+,,	E,	{ " BL "L BAd ^Aeat
n=$9$>,5 " BL "U BAd ^Aeat
p9$>,5,	E,	{ " BL "_ BAd ^Aeat
q=$=d9$>=t BC@,,v,s1R,~1R +m C@,8,~,,~+	D,>,~,y
&,~,y,~	b+	D,{,~	b+	D,},~	b+	D,y,i,~+	D,y,g,~+	D,y,f,~+	D,y+,`,~,,y Cp*"C  ,C .C!,,+- L1B+V+Q,`,~,,y Cp*"C  ,C .C!,+d,`,y+\,`,~,,y Cp*"C  ,C .C!,,+-+`d4 C"	b`bl4+	D Cp &2 DA~,&+"0B
&F "B "B,~`t+(
(+	D,> ",
Z4BCx1B+Cy	`
2 L0B+1 D+X Ae+Ad
&Cz ,C,p
&C},5d4+.C"@,2 0r-+=R,v+:020r1+;1R+; $D C}
4JD3D+J2$+F C}
*bB+F*BUYQ&A` C}
@@A+	D
&D	,~
,~ , C},s1R+r02 0r-+f<,kR+k1R+d0R1R+l1R+l
C} D4B	D1B "/"B+o
"+,l4,h4J&RJB0R1R+M1R-++1R+M,>A~,^A RA
&D,X+-1R-++1R+M,>A~,^A RA
&D',>A~,^A RA,X+-,^1BZB
XBB1R+;1R+M0R1R+M1R.+I,>A~,^A RA
&D*,X+- , .B,h7@+D- J881R.+I1R+M1R+D2,>A~,^A RA
&D8,X+-6@B+O B BB6@B+Q B BB`t+T6@B+T B BB`t,~7BB+Y BabPB
 BB .7B8B,~7@8B B8B..0N+Y,~7D= &@b A~ HA@@AA~0R1R+a1R+D=d4020r+D?$."Oh.$A~+d D@@
,v,s02 0r-+n/2`fpR,v+j020r,~+l 0,
"DA 0,
"DA 0,7@0,~
"DC,~ &&,>6@,},^."
",~ 4D	D@)B."
"+\" BB DC	b$+,~
&DD,}	` "B BAq "B9 BAs "C! BAm BAk "BS BAg "Bm BAi,~ DH@Z(`F.&(F{OB>`9.(@B0H9.(OB0H9,~,5,	+-,o " BAc " BAd 
MO4N&.,*+%.,3L+'`T+ ,V+%+ ,
&DH+ DR,l+%+,$`T+DR,D,~,
aV+B3VDT+? 8B?7@Ad+DT(V,d,~,
`V+C DV0$0da+9,Y,~`h`+4+2  DV,l,~>Ad1H+, ,Y,~+,+	D,
&D\,~ Da,l,~ Db,l,~ Db,l,~ Dd,l,~ Ac,_,~ De,l,~ Ad/" BAd+	D		COBOL Library		  Dg,l,~ Da,l,~ De,l,~+	D $,Y,~:Ac " BAd+	D ",
4B	D,~`T+	D,V,~,D,~+	D&",>4Ba,j,~,^.$,Y,~+	Dad&(&".$)D}=he $)D,Y,~5Fg	$,Y,~+	D "O,Dm,~&&(F.& ,~%0w#2q&py x9%:w%:v zs)rx'qz'7{"2q "Ar,
i4B	D,~!"@,
N/, .0,!Q,!.,=n+,!+
M . 03BDq+,!.,=n
MO.3L+!,!.,++3,$ Da,. DV+. "0Q"A@ $ Da@@L@@M4H*.(1H (H=d' Dr 0ad,~H5H,,~`t+2 "O,
&,~A"@,4 "P BN BM@@O " $@ Dr,
Ds4,<^$74dB$$"7Ds,$.  ",
Z5BK D8P8DJ ",
Z5BK D8Q..=pE NO,~1B+M+-
&D{+, "Ap,
i4B	D,~,	3+T
&E+-d4@,	+-+	J,	3+X
N3LO+	J/,,	:+	J+[
+-,	3a+Rl4@,	+-+
O,	3a+Rl4@,	+-,
O+	J,
I+-,	k,~,n,~+	D,r,~+	D 
M08Bk,	v+i,n,~,r,~+	D"`T7E@, E*"C "Ah,
i5B	D,",$@ E,E,
Z5B	 ",
5B	+	0B,~+	,~ "@,S&E.fE.Ds4"	:P,~,	-+	`t@+	
&F,~at@+	#
M,	:+	+	D+	!,	v.,,	:+	+	D+	!
N3LO+	'/,,	:+	'+	&+	! 
M,	:+	*+	)+	D,	v.,,	:+	*+	,+	D,> 
M,	:+	0+	2+	1.,+	.,^,~Z,^+	D,> 
O3LN+	9,	:+	7+	8+	9.,+	4:,^,~ 0(B} L(D}2d,~2D+	C"E$EdE$E &E fE!2d,~2D+	C+	D:x:x,~ "!Q BO BN@@PO@!QO@
 AT BAS,	^ 6 VAR,
/4R	X 6
.AR VAR,	\an`,	\R1r12a+	U,
/4RE"+	Pr,
/0R1R+	U,	\+	MO+

 2`n`,	\R,~,

 DV 6,~L6@ASl$+	`ZPaF?+	g.& FPZAQfE#ZNO@O@ ".BN,~ (@hE#(H}1HA+	j 
+	a
% DV,
`V+	t4R	s1r12+	r,> 2,
)`n`+	n+	l2VDq+	l+
+M,	` ".BM,

aV+	x2VDq+	x,~ "An,
i4B	}+,l4,~ "!$,
,~	`0"+,

&E(	`?CPYFDB Library file directory is bad: :AQ  ",
4B	D	` ",
Z 4B	D1B,~	``t@+
Z 4B	D1B+
&E+	`O,~`t+
  &`t &QFAj "Aj,(5B-d4 " BAel4,~l4+
et,~ "@,
%,~	` "Al,
i5B- " BAel4,~ " ,
4B	D	` "@,
.,~	`,
54R	D0r+
12,~02 2,~6@AX+
: ",
< 4R
5,~ ",
H	`,
!@,~,	-+
,^+	D
O ".BM,~ (LQ(A@ &4B	D."1B "
S,~,>@@EB T3*"T2,^[DEDZDEESFEB ED0b+
b EE0b+
dEC!" & ( T3,5Bm+n
&T:+p?IOTMP routine $ITINI cannot proceed:
EBECZ$(Rad+T>O@Sj,  EE`f
+	[0$0d+ DSjdT?@@ EJ@@ EI7@Sj+
|  D EKR!&,+mGF EE`f+
|@@ EH`F+,+m+Z1D EDdT?dT@@7@Shl",5B
 DSk@bQ"@ SjfT@XSk B EF B EG,$ B EH7@Sj+,+m!&GF EE+n TF,+m TL,+m1B+m TS,+m,>  EK  BT	b4B B Ebh"ib+TS`b+TT`b+TU+ TX,+ T^,+,^:x,~,^,~  EE`b $`b $Z EK D $XDQ"	b6+"+q BT Te,,~"T?(B $&Sj$ B EH,~EBECZ$(Rad+TeO@Sj,  EE`f
+Z[0$0d+\ DSj6@Sj+Eaf+]$T?2DSj+_6@ EJ+7  EI B EH EG EF+: EG EFR` EJ@@ EH,<+m,$!"GB EE+n " BTZ EK"TfSBT "XBT Tg	b6+B+q BT  EJ BT Tn,,~  D EKR!&,+mGF EE SjdT?`f+O@@ EH`F+;6@T+`,h+mO@T+;Z1D EDdT?@7@Shl",5Bb DSk,h+To,$S"@ SjfT@XSk B EGO@ EJR` EJ,
j+Tp+; TF,+m TL,+m Tx,+m U,+m U
,+m1B+m U,+m,>@$T? Sk,A,^,~  EKZ `b+lA"1"+|  EE`b $`b $Z EK D $XDQ"	b6+}  EE`b+q  EKZ ad+U_4"U$"@ BSk $3DSj+U "&Sj$Sk B EI+q U,,~ BT U%,,~7D+
Q$A` D EJ DT,~ $U%7@Sj $U&+
$"? EH+
DEF@,~@@EH DSl EEbDU'+
,>,> ,
7U'@ ,^,^5Dp Sl+
/ "$T?& Sm&4F
,^"WX EG/$ DT@@T "T BTZ EK"TfSBTX"XBT Tg	b6+
,_T"`B."(B{[ EJ.QD EJ+q BT  EJ BT U-,,~$T?(D+
4,~  EH+
M "XB EL " B ELQ"X" EL	b6+
> BT  EJ BT U7,,~:T1D+
5 " EL B EK@@QX$*$ EO!$Lu D EMQ$ EPX$ ER D $ EZ DQ$ E`X$ E_ D!$ D $ EU D ES $ D EPl D ER,~6@T2+
R B ES!"K8RB ET,~@,> (,
S,^,~ T2A& $ T2(&. FT2,~$"? EH+
]EF@,~ EEbDU'+
g7@EJ+o,>,>,> ,
T&6@.$dT@.DEJ+q BT  EJ BT U<, ",~@@ EH ",~ECSn$" BSn4$
4BmSn4Dn Sn,
4BmECSn$" BSn DSo? So+n Sn,
[5BSn+EC,~+DSp$"+EEad+T?&.BSp(B+BSqZSp&/DSq7FSrZEJ,>&T@/7",^/&2$2d+? x+
+m+EH.B EI  EEd"l" B EE+n,!+m,5Bm@@ EE+n  EE`b+
+m,+m,5Bm@@EE+n,!+m+,+m,5Bm@@ EE+n,+m@@T@@ EE+n  EE`B+q  EK $XDQ"	b6+
  EK $	XDQ"	b6++q BT  EJ BT UW,,~ BT  EJ BT U_,,~  EE`B+q  EK $XDQ"	b6+
 EC`f+q  EK $	XDQ"	b6++q@$T?Z EG,A,~ EJT Uc,+m  EE`b+$[ EJ4Bq+$  EK $XDQ"	b6+1  EK $XDQ"	b6+4  EEab+- EC`b+q  EK$TfSX$	 Uc	b6+7+q BT  EJ BT Uj,,~ BT  EJ BT Up,,~ BT  EJ BT Uw,,~  EK $XDQ"	b6+D  EK $XDQ"	b6+G  EK$TfSX$	 Uc	b6+J+q BT  EJ BT U~,,~ BT  EJ BT V,,~ BT  EJ BT V,,~$",>,> @@T  EK $ DT1@@T1[ 4D[`d+[A$0d+O@T1 DT1RX$T,> T1*$T,^7DT+z+]RX$T*$T7DT+``d+`SX$T,*$T0 $XDQ"	b6+h,^ad+g  EK $	XDQ"	b6+,^+p1B+m BT  EJ BT V,,^,^+p6@T+O@T  EK7@T1+u[,> T1.&Q$T*$,^7DT+z+x[ "Q$T*$7DT+z`d+z "Q$T,*$  EK  DT2YD $XDQ"	b6+  EK+`  EJ BT V,,^,^+p  EJ BT V ,,^,^+p BT  EJ BT V(,,^,^+p BT  EJ BT V.,,^+p,~,~,~RBSrQ"A` BSs "+RBSrQ"A` BSs ",>,> V. DT
,$+DTB,b1Sr,b1",kSs4B]1B/+1B@@T31B+51B+61B+;1B +01B!+>1B+ $/DT
+7TZTQ$A`4B1B@@T+&,e++T,b+ T
&Ss,^,^,~4Dr@)B.",k+b FT
:TEC+pEC+p ",~g ",~:x,~
,>@@W- [@*"[@,^ "W?dB." BW;+i?MMANGR: Routine "INITM" encountered a problem:
,>,> [A  D."*f~,^,^O@W2+i
., L( 
W/+j?MMANGR: "INITMU" routine encountered a problem:
[K@4D90h+(ZZW- LW:.(<f$.(0h+(4D!+ 
W:Od W-<f)D+&,^W.+j (D,2+( 
W-`l+0@@QX& W-(H.(*& ,^W.+i B[? " B[? W- [L	b2+7<fk:[?+4
&[R [?,=
0d+[4Di`F+\7@W2+_(F{W..0f+^ W. [K<&J`+H HW= 4Fa=bK D[@ W=@F=dN,P+h+i W. B[? " B[?!"GB[? [@ [L	b2+X<fkZ[?."XB[?+T1B+U
&[w+h?MMANGR: RETRN routine can't return memory, reason:
W.+jW.g ",~:x,~