Google
 

Trailing-Edge - PDP-10 Archives - FORTRAN-10_V7wLink_Feb83 - formsg.mac
There are 9 other files named formsg.mac in the archive. Click here to see a list.

	SEARCH	FORPRM
	TV	FORMSG	ERROR MESSAGES,7(3253)

;COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1981, 1983

;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE AND WITH THE
;INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY  OTHER
;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
;OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF THE  SOFTWARE  IS  HEREBY
;TRANSFERRED.

;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT  NOTICE
;AND  SHOULD  NOT  BE  CONSTRUED  AS A COMMITMENT BY DIGITAL EQUIPMENT
;CORPORATION.

;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY  OF  ITS
;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

COMMENT \

***** Begin Revision History *****

3056	JLC	23-Mar-82
	Created file of error messages only.

3061	JLC	25-Mar-82
	Added error msg for reading into character format (RIC).

3064	JLC	26-Mar-82
	Removed a couple of unused error messages.

3100	JLC	5-Apr-82
	Restore V6-compatible 2nd numbers (filled in by $J on -20).
	Fix bad -10 error msg (had $I as arg). Added a couple of
	-10 externals.

3122	JLC	28-May-82
	Change error macros.

3125	JLC	3-Jun-82
	Moved the error character to the beginning of the error macro
	calls.

3126	JLC	26-Jun-82
	Moved the input conversion errors down with the other
	floating and fixed overflow/underflow messages.

3161	JLC	19-Aug-82
	Inserted new directive, $R, in record number typeout.

3165	JLC	28-Aug-82
	Fix some error messages.

3167	JLC	1-Sep-82
	Made summary messages have [] since they are information
	from FOROTS.

3172	JLC	2-Sep-82
	Change name of summary message.

3176	JLC	9-Sep-82
	Added new messages for disk quota exceeded.

3200	JLC	24-Sep-82
	Added I%REC to input overflow/underflow messages, so the
	user will see the erroneous input record.

3202	JLC	28-Oct-82
	Added error messages for DBMS and industry magtape.

3203	JLC	1-Nov-82
	Added message for file positioning for random files.

3212	JLC	11-Nov-82
	Magtape error messages.

3213	JLC	12-Nov-82
	Make I/O within I/O message understandable to users.

3221	JLC	18-Nov-82
	Remove I%REC from input warnings, as they cause the
	record pointers to change.

3225	JLC	24-Nov-82
	Reword IWI message again, since we now are not decoding
	the 2nd I/O statement.

3231	JLC	14-Dec-82
	Move all the OPEN/CLOSE warnings to a new class, which
	is within the suppressable limits. Eliminate unused
	error messages.

3245	JLC	4-Jan-82
	Fix the ISW and OSW messages to be consistent.

3250	JLC	7-Jan-83
	Remove the traceback msg, moved to FORERR.

3252	JLC	12-Jan-83
	Fixed RENAME error messages, which now use an argument.

3253	JLC	13-Jan-83
	Renumber a message so it wasn't the same as another.

***** End Revision History *****

\


	EXTERN	I.RUNTM,%IONAM,%ERCHR
	EXTERN	%OPNK1,%OPNK2,%OPNV1,%OPNV2
	EXTERN	%ARGNM,%RESP,%RNAMU,%UDBAD

	SEGMENT	CODE

; *** LIST OF FOROTS ERRORS ***

	RADIX 10

;IOERRs type out the filename first, set ERSNS numbers,
; take ERR= branch if specified.

; *** The following errors do NOT type a filename ***
	$ERR (?,CGD,-1,0,Can't get DBMS)
	$ERR (?,DBM,-1,0,DBMS not loaded)
	$ERR (@,SNH,-1,0,Internal FOROTS error at $P)
	$ERR (?,INI,-1,0,INQUIRE not implemented)
	$ERR (?,IEM,-1,0,FOROTS internal error in memory management)
	$ERR (?,MFU,-1,0,Memory full)
	$ERR (?,FFX,-1,0,FOROP function code exceeds range)
	$ERR (,TIM,-1,0,CPU time $Y   Elapsed time $Y,<I.RUNTM,T1>)
	$ERR ([,SUM,-1,0,$D$3T$A$A,<T2,T4,T3>)
	$ERR ($,NAM,-1,0,$A $U $F,<%ERCHR,%IONAM,%UDBAD>)
IF20,<
	$ERR (?,IJE,-1,0,Internal FOROTS JSYS error at $P - $J)
>;END IF20
IF10,<
	$ERR (?,CCP,-1,0,Can't create page $O (PAGE. error $O),<T1,P4>)
	$ERR (?,CDP,-1,0,Can't destroy page $O (PAGE. error $O),<T2,T1>)
>;END IF10


	$IOERR ([,EFS,-1,0,Enter correct file specs)
	$IOERR ($,QUE,-1,0,$A,<T2,T1>)


;0,1,4,5,6 -- Arithmetic traps

;2,3,7 -- Input conversion errors

	$IOERR (%,IOV,2,0,Integer overflow)
	$IOERR (%,FOV,3,0,Floating overflow)
	$IOERR (%,FUN,7,0,Floating underflow)

;8 -- MATHLIB library errors (such as args out of range for TAN)

;9 -- Output data conversion errors

	$IOERR (%,FTS,9,0,Output field width too small)

;10-20 -- Reserved values for common language use

;**************** FOROTS-SPECIFIC ERRORS AND WARNINGS ****************

;21 -- FORLIB errors and warnings (defined by FERR)

;22 -- I/O warnings

	$IOERR (%,FVM,22,583,Format and variable type do not match)
	$IOERR (%,ETL,22,509,Attempt to WRITE beyond fixed-length record)
	$IOERR (%,RIF,22,584,Reading into FORMAT non-standard)
	$IOERR (%,ARC,22,532,Ambiguous repeat count,,I%FMT)

;23 -- FORLIB bounds check warnings

;24 -- End of file

	$IOERR (?,EOF,24,-1,End of file)

;25 -- Record or record number error

	$IOERR (?,BBF,25,302,Bad format binary file)
	$IOERR (?,RNR,25,510,Record $R has not been written)
	$IOERR (?,IRN,25,512,Illegal record number $D,<T1>)
	$IOERR (?,SLN,25,577,Record length negative or zero)
	$IOERR (?,WBA,25,576,Attempt to WRITE beyond variable or array)
	$IOERR (?,RSM,25,572,Record size different from that specified in OPEN)
	$IOERR (?,FCL,25,573,Found unexpected continuation LSCW)
	$IOERR (?,CBI,25,536,Can't backspace image file with no RECORDSIZE)

;26 -- OPEN/CLOSE warnings

IF20,	$IOERR (%,UMO,26,0,$J trying to set tape $A,<P1>)
	$IOERR (%,BSI,26,535,BLOCKSIZE ignored: device is not a magnetic tape)
	$IOERR (%,IAU,26,588,Illegal attribute $A for unformatted file - ignored,<%OPNK1>)
	$IOERR (%,DSS,26,549,DISPOSE='SAVE' assumed - device is not disk)
IF10,	$IOERR (%,CQF,26,550,<Can't queue file, QUEUE. error $O>,<T1>)
	$IOERR (%,UOA,26,541,<Unknown OPEN keyword $D, ignored>,<P1>)
	$IOERR (%,NCK,26,542,$Z in CLOSE is meaningless - ignored,<T1>)
	$IOERR (%,RND,26,543,No filename specified-- DISPOSE='RENAME' ignored)

;28 -- CLOSE errors

IF20,	$IOERR (?,CLF,28,0,Can't CLOSE file: $J)
IF20,	$IOERR (?,RNM,28,0,Can't rename file to $F: $J,<%RNAMU>)
IF10,	$IOERR (?,RNM,28,250,Can't rename file to $F: $E,<%RNAMU,T1>)
IF10,	$IOERR (?,CLS,28,250,CLOSE failed $I,<T1>) ;Type IO error bits
IF10,	$IOERR (?,DEL,28,250,Can't delete file: $E,<T1>)
	$IOERR (?,FD1,28,527,Can't rename to $F across devices,<%RNAMU>)

;30 -- OPEN error

IF20,	$IOERR (?,IGN,30,589,Illegal generation number $A,<0(L)>)
IF20,	$IOERR (?,OPE,30,0,Can't OPEN file: $J)
IF20,	$IOERR (?,APP,30,0,Can't setup to append to magtape file: $J)
	$IOERR (?,RRR,30,240,Random IO requires /RECORDSIZE)
	$IOERR (?,RR1,30,240,Random IO requires RECORDSIZE specifier in OPEN statement)
IF10,	$IOERR (?,NFC,30,242,Too many open units)
IF20,	$IOERR (?,NSD,30,245,No such device $A,<T1>)
IF10,	$IOERR (?,NSD,30,245,No such device $S,<T1>)
	$IOERR (?,IAC,30,248,/ACCESS:$Z illegal for this device,<T1>)
	$IOERR (?,IDM,30,249,/MODE:$Z illegal for this device,<T1>)
IF10,	$IOERR (?,OPN,30,250,Can't OPEN file: $E,<T1>)
IF20,	$IOERR (?,PPN,30,405,Error translating PPN to DIRECTORY: $J)
	$IOERR (?,ICA,30,506,Incompatible attributes /$Z$Z /$Z$Z,<%OPNK1,%OPNV1,%OPNK2,%OPNV2>)
	$IOERR (?,SNM,30,523,No filespec information allowed for SCRATCH files)
	$IOERR (?,SDO,30,540,Same device open on unit $D with conflicting specifiers,<T2>)
	$IOERR (?,IAV,30,585,Illegal value for $A,<%OPNK1>)

;31 -- Mixed ACCESS modes

	$IOERR (?,CDI,31,315,Can't do $A I/O to $A file,<T2,T3>)
	$IOERR (?,POI,31,593,Illegal for DIRECT (RANDOM) files)
	$IOERR (?,CDF,31,594,Can't determine whether formatted or unformatted $A,<%IONAM>)
	$IOERR (?,IMO,31,595,Industry tapes must be opened MODE='IMAGE')

;32 -- Illegal logical unit number

	$IOERR (?,IUN,32,239,Illegal unit number $D,<T2>)

;39 -- REREAD error

	$IOERR (?,RBR,39,310,REREAD not proceeded by READ)

;45 -- OPEN/CLOSE statement syntax error

IF20,	$IOERR (?,JSE,45,0,$J)
IF20,	$IOERR (?,JSA,45,0,$J - $Z,<T1>) ;For COMND errors
	$IOERR (?,ESV,45,241,$A keyword value /$Z$Z,<P2,T1,T5>)
IF10,	$IOERR (?,USW,45,241,Unknown switch /$S,<T5>)
IF10,	$IOERR (?,ASW,45,241,Ambiguous switch /$S,<T5>)
	$IOERR (?,DTL,45,533,$A string too long,<%ARGNM>)
IF20,	$IOERR (?,EDS,45,539,Error in $A string - $J,<%ARGNM>)
IF20,	$IOERR (?,EDA,45,539,Error in $A string - $J - $Z,<%ARGNM,T1>) ;For COMND errors
IF10,	$IOERR (?,NDI,45,544,No device specified with ":")
IF10,	$IOERR (?,IPP,45,545,Illegal PPN)
IF10,	$IOERR (?,TMF,45,546,Too many SFDs)
IF10,	$IOERR (?,NSI,45,547,Null SFD)
IF10,	$IOERR (?,IDD,45,548,Illegal character $C in $A argument,<T1,%ARGNM>,I%TCH)
IF10,	$IOERR (?,NQS,45,551,PADCHAR must be single char in double quotes)

;47 -- WRITE on READ-only file

	$IOERR (?,CDT,47,263,Can't $A an $A-only file,<T1,T2>)
	$IOERR (?,CWL,47,554,Can't write a file with MODE='LINED')

;62 --  Error in FORMAT

	$IOERR (?,ILF,62,301,Illegal character in format,,I%FMT)
	$IOERR (?,DLF,62,306,Data in IO list but not in format,,I%FMT)
	$IOERR (?,IRC,62,538,Illegal repeat count,,I%FMT)
	$IOERR (?,IHC,62,552,Illegal Hollerith constant,,I%FMT)
	$IOERR (?,IFW,62,553,Illegal field width,,I%FMT)
	$IOERR (?,UDT,62,575,Undefined data type or internal FOROTS error)
	$IOERR (?,FVF,62,583,Format and variable type do not match)
	$IOERR (?,RIC,62,524,Reading into character format illegal,,I%FMT)


;64 -- Input conversion error

	$IOERR (?,ILC,64,307,Illegal character in data,,I%REC)

;81 -- FOROTS calling error

	$IOERR (?,UNS,81,501,Unit not specified)
	$IOERR (?,WNA,81,504,<Wrong number of arguments>)
	$IOERR (?,IOL,81,508,Bad IO list)
	$IOERR (?,IMV,81,574,Illegal MTOP value)
	$IOERR (?,IKV,81,586,Illegal keyword value)
	$IOERR (?,DLL,81,581,Dump mode IO list too long)
	$IOERR (?,IDI,81,579,Illegal DUMP mode I/O list)
	$IOERR (?,IWI,81,582,Illegal to initiate another I/O statement while processing $A,<%IONAM>)
	$IOERR (?,ICE,81,599,Illegal length for character expression)

;96 -- Error in magtape operations

IF20,	$IOERR (?,ILM,96,0,Unexpected MTOPR% error: $J)
IF10,<
	$IOERR (?,UTE,96,530,Unexpected TAPOP error $O,<T1>)
	$IOERR (?,UME,96,531,Unexpected MTCHR error $O,<T1>)
	$IOERR (?,UTO,96,537,Unexpected TAPOP. error $O trying to set $A,<T3,P1>)
>

;97 -- Unclassifiable data error

	$IOERR (?,VNN,97,309,Variable $S not in namelist,<T1>,I%REC)
	$IOERR (?,NEQ,97,513,Found "$C" when expecting "=",<T1>,I%REC)
	$IOERR (?,NRP,97,514,Missing right paren,,I%REC)
	$IOERR (?,ILN,97,515,Variable or namelist does not start with letter,,I%REC)
	$IOERR (?,ILS,97,516,Illegal Subscript,,I%REC)
	$IOERR (?,CCC,97,519,Can't convert constant to correct type,,I%REC)
	$IOERR (?,STL,97,520,Alpha string too long,,I%REC)
	$IOERR (?,RPE,97,521,Illegal repeat count,,I%REC) ;In NAMELIST
	$IOERR (?,SNV,97,522,Sign with null value,,I%REC)
	$IOERR (?,NLS,97,580,Null string illegal,,I%REC1)
	$IOERR (?,NEC,97,596,Found "$C" when expecting ":",<T1>,I%REC)
	$IOERR (?,ISS,97,597,Illegal substring descriptor,,I%REC1)
	$IOERR (?,SNQ,97,598,String not within single quotes,,I%REC1)

;98 -- Unclassifiable device errors

IF20,	$IOERR (?,ISW,98,0,Can't switch to input: $J)
IF20,	$IOERR (?,OSW,98,0,Can't switch to output: $J)
IF10,	$IOERR (?,ISW,98,250,Can't switch to input: $E,<T1>)
IF10,	$IOERR (?,OSW,98,250,Can't switch to output: $E,<T1>)
IF20,	$IOERR (?,IOE,98,0,$J) ;General-purpose I/O error
IF10,	$IOERR (?,IOE,98,400,$I,<T1>)	;General-purpose I/O error
	$IOERR (?,DQE,98,590,Disk full or quota exceeded)
	$IOERR (?,ETC,98,591,<Please EXPUNGE, then type CONTINUE>)

	FORPRG
	END