.TITLE	FTMESS FTCOPY MESSAGE FILE.
!
!	Temporary message definition
!	V1.0A	TWD	28-MAR-83
!	V01.B	TWD	10-MAY-83	FINAL MESSAGE DEFINITIONS FOR
!			INITIAL RELEASE.
!	V01.C 	TWD	30-APR-84	Add copyright notice and truncate
!			warning message.
!
!		NOTE THAT ALL OF THE !AD FAO ARGUMENTS HAVE ONLY ONE FAO
!		ARGUMENT SPECIFIED IN HERE AND TWO ARGUMENTS SPECIFIED IN
!		THE MESSAGE CALLS IN THE FTCOPY PROGRAM.  EACH !AD REQUIRES
!		A DESCRIPTOR (TWO ARGUMENTS) IN THE $PUTMSG CALL.
!
	.FACILITY	FTCOPY,102/PREFIX=FTC_
!
	.SEVERITY	FATAL
	.BASE		^X0010
	SYSERROR	<Fatal system error - check with programmer.>
!
	NOFIL/FAO=1	<No !AD file specified>
	NUMCONERR/FAO=2	<Number conversion error on !AD !AD>
	CHASTR/FAO=1	<Character string: !AD>
!
	ERRCODE/FAO=1	<Error code is: !XL>
	GETDVIERR	<Get-device-information failure>
	WAITFRERR	<Wait-for-event-flag failure>
!
!
	.SEVERITY	ERROR
	.BASE		^X0030
	COMLINERR	<Command line syntax error ->
!
	TRACODSYN/FAO=1	<Translation code error - !AD>
	NUMFILSYN/FAO=1	<Number of files error - !AD>
	NEGNOTPER/FAO=1	<Negative not permitted for !AD qualifier>
!
	BLKSIZ/FAO=2	<Block size error - !AD block too !AD>
	RECSIZ/FAO=1	<Record size error - !AD record too large>
	TRAILSYN/FAO=1	<Trailing-data value incorrect - !AD>
!
	EVENSYN/FAO=1	<Even value incorrect - !AD>
	PADSYN/FAO=1	<Pad value incorrect - !AD>
	RECGTRBLK/FAO=1	<!AD record size greater than block size>
!
	RMSERROR/FAO=2	<RMS error during !AD of file !AD>
	FTERROR/FAO=1	<Foreign tape error during !AD>
	FTEOT/FAO=1	<Foreign tape End-Of-Tape found during !AD>
!
	OPERTERM	<Operation terminated, use new tape>
	INVDEVTYP/FAO=1	<Invalid device type - !AD>
	DSKORTAPE	<Must be disk or tape device.>
!
	FTDEVERR/FAO=1	<FTCOPY device error - !AD>
	SIZECHNG/FAO=0	<Input record/block size changed>
	SIZECHNG1/FAO=2	<Previous record = !SL, new record = !SL>
!
	SIZECHNG2/FAO=2	<Previous block = !SL, new block = !SL>
	FTPADERR/FAO=1-
		<Padding not specified for !AD when input less than output>
	MAXSIZE/FAO=2	<Maximum size is !SL, specified size was !SL>
!
	MINSIZE/FAO=1	<Minimum size allowed is 14, specified size is !SL>
	FILNAMERR/FAO=1	<File name error - !AD>
	UNTRACHAR/FAO=2	<Untranslatable byte - !XB - for !AD option>
!
!
	.SEVERITY	WARNING
	.BASE		^X0100
	FILELIM		<Limit of one RMS input file - /FILES set to 1>
	INPGTRSPEC	<Input block larger than user specified blocksize>
	TRANERR/FAO=2-
		<Error during code translation in record #!SL and block #!SL>
!
	DATALOST	<Extra data will be lost>
	INPLTSPEC	<Input block smaller than user specified blocksize>
	SMALLUSED	<Smaller size will be used>
!
	BIGRECS		<Record too large for output buffer>
	TRUNC/FAO=1	<All records greater than !SL will be truncated>
!
!
	.SEVERITY	INFORMATIONAL
	.BASE		^X0130
!
	FTEOV		<End-of-volume found on foreign tape.>
	COPYCOMP/FAO=2	<Copy completed, !SL input records from !SL input blocks>
	COPYTO/FAO=2	<Copied to !SL output records and !SL output blocks.>
	BLOCKNUM/FAO=2	<Input block number !SL  --  Output block number !SL>
	NOTICE -
	 <  FTCOPY - Copyright 1986 by Woods Hole Oceanographic Institution>
!
!
	.SEVERITY	SUCCESS
	.BASE		^X0170
	AMAZING		<VMS actually copied a foreign tape!!>
	BLANK		<  >
	FILECOP/FAO=2	<!UL file!%S successfully copied.>
!
	TSTMSG1/FAO=1	<FTCOPY test !AS>
	TSTMSG2/FAO=3	<R0 = !XL,  R1 = !XL,  FLAG = !XB>
	XTRAMSG/FAO=3	<Extra #1 = !XL,  Extra #2 = !XL,  Extra #3 = !XL>
!
	.END