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