Trailing-Edge
-
PDP-10 Archives
-
BB-AI48A-BM
-
dtr20-sources/err.mac
There are no other files named err.mac in the archive.
TITLE ERR Home of error strings for DATATRIEVE-20
COMMENT #
COPYRIGHT (c) 1984 BY
DIGITAL EQUIPMENT CORPORATION, MAYNARD
MASSACHUSETTS. ALL RIGHTS RESERVED.
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 THAT IS
NOT SUPPLIED BY DIGITAL.
This module contains error strings that can be changed
when DATATRIEVE is installed. There are also some
error messages that are still resident in STR.MAC.
Foreign Language Facility -- TEXT STRING GENERAL INFORMATION
Strings are accessed by using a string pointer vector
and a string length vector. As a result, strings may
be changed or be made of a different length, but the
names of string tables and the order of the strings
in each table must NOT be changed! Also note that
the context in which the string is used may limit its
size. Making a string very long may cause unpredictable
results.
VECTOR labels must be global, and must be declared external in
KWMAC.REQ.
The ENG$S macro builds the vector of pointers and the strings
themselves. The ENG$L macro builds the vector of string
lengths. If a particular string table is always accessed as
ASCIZ strings, then the length vector need not be built.
#
SEARCH MONSYM,MACSYM
SALL
TWOSEG 400000 ;Put all error message strings in high segment
; Define macros to make string definition easier
; Define macros which build string pointers
DEFINE SP(Z),< POINT 7,[ASCIZ ~'Z~]>
; Define a macro which yields string length
DEFINE SL(Z),< LEN.==0
IRPC Z,<LEN.==LEN.+1>
EXP LEN. >
; Define a macro which builds a vector of string pointers
DEFINE ENG$S(NAME),<NAME(SP)>
DEFINE GER$S(NAME),<;;>
DEFINE FRN$S(NAME),<;;>
DEFINE SPN$S(NAME),<;;>
; Define a macro which builds a vector of string lengths
DEFINE ENG$L(NAME),<NAME(SL)>
DEFINE GER$L(NAME),<;;>
DEFINE FRN$L(NAME),<;;>
DEFINE SPN$L(NAME),<;;>
SUBTTL Condition messages
;
; Foreign Language Facility -- CONDITION MESSAGES
;
; Messages associated with CONDITIONS. These strings are
; accessed by module FAO, which performs the text substitution
; for the items preceded by exclamation mark.
;
; All strings must end in a period. All ERROR, WARN, and INFO strings
; must begin with capital letters. SEVERE messages should begin
; with lower case letters because they are preceded by
; "??DATATRIEVE ERROR, ".
;
; The offsets into this table are defined in module ERR.REQ.
; If you add a new message, change this file and ERR.REQ and
; DTR.ERROR-HLP where the error explanations are stored.
;
; When these strings are translated, the text and length can be
; changed, but the order of the substitution parameters must NOT
; be changed. Substitution parameters begin with an exclamation point.
;
; The substitution parameters are:
; !J file name from JFN in parameter list
; !B A bell
; !/ A carriage return line feed
; !L Last error in the process
; !P Capital "S" if last number output <> 1
; !p Lower case "s" if last number output <> 1
; !! The character "!"
; !O An unsigned octal number from parameter list
; !U An unsigned decimal number from the parameter list
; !E Jsys error from the parameter list
; !A ASCII string, pointer, length from parameter list
; ! N.B.: Output ends at first null, so !A can be used
; ! for ASCIZ strings if the count is made large enough.
DEFINE MSG(Q), <
Q <Request completed successfully.>
Q <Request failed.>
Q <this should not happen, at PC=!O.>
Q <routine got wrong block, expected !U,!/ got !U at PC=!O.>
Q <routine got wrong subblock in block !U,!/ expected !U, got !U at PC=!O.>
Q <JSYS error: !L at PC=!O.>
Q <block request too large !U at PC=!O.>
Q <pool class !U, invalid at PC=!O.>
Q <request to release invalid block !U.>
Q <No more dynamic memory pool identifiers at PC=!O.>
Q <Invalid call for current stall point.>
Q <Invalid callable DATATRIEVE stream identifier in DAB.>
Q <Too many concurrent callable DATATRIEVE streams active.>
Q <Execution terminated by ^C.>
Q <DATATRIEVE gracefully exits.>
Q <routine expected !U argument!p,!/ got !U at PC=!O.>
Q <This is not a proper !A,!/ possibly because "!E".>
Q <Reparse required.>
Q <!U: !A>
Q <Too many indirect files or procedures.>
Q <not yet implemented at PC=!O.>
Q <Memory use, section !U:>
Q < !U page!p free, !U page!p in use>
Q < !A pool !U% of !U page!p in use>
Q <Value for columns per page outside range of 1 to 255.>
Q <SET options:>
Q < !A!A>
Q < !U Column!p per page>
Q <Failed to find help for "!A" in HELP file.>
Q <HELP file was just edited. Please try HELP command again.>
Q <in page allocation at PC=!O.>
Q <invalid block type !U at PC=!O.>
Q <invalid PAR source type !U at PC=!O.>
Q <Procedures and indirect files must be disk resident.>
Q <Invalid continuation or control characters in statement or command.>
Q <Statement or command too large for the edit buffer.>
Q <Statement or command too large for the syntax error buffer.>
Q <Statement or command too large for the parsing buffer.>
Q <[Looking for !A]>
Q <The ADT, EDIT, and PUSH commands may only be invoked from the terminal.>
Q <"!A" is not a field, assumed literal.>
Q <"!A" is undefined or used out of context.>
Q <A current collection has not been established.>
Q <Object of MISSING operator must be a field.>
Q <MISSING VALUE not defined for !A, using default value.>
Q <This is not a proper !A,!/ possibly because "!A".>
Q <dirty compiler stack at level !U.>
Q <Improper operation on a date.>
Q <Abort: !A>
Q <Display: !A>
Q <Enter !A: >
Q <!BRe-enter !A: >
Q <Dictionary "!A", must contain only device and directory fields.>
Q <invalid class or data type in descriptor during conversion.>
Q <Unsupported data conversion from data type !U to data type !U.>
Q <Overflow in arithmetic, conversion, or assignment, result is incorrect.>
Q <Underflow in arithmetic, conversion, or assignment, result is incorrect.>
Q <Invalid character in numeric string "!A", ignoring character(s).>
Q <Too many decimal points in string "!A", ignoring all but first.>
Q <Sign in wrong position in string "!A" being ignored.>
Q <Negative value is not proper as a count or record number.>
Q <Attempt to divide by zero, result is incorrect.>
Q <Conversion impossible, or EDIT_STR violation, result replaced by *.>
Q <Loss of precision in integer arithmetic or conversion; result is approximate.>
Q <Duplicate !A clause specified.>
Q <Conflicting SIGN and USAGE clauses.>
Q <Too many digits in numeric PICTURE or EDIT string.>
Q <Either a PICTURE or USAGE clause is required.>
Q <The PICTURE and USAGE clauses do not match.>
Q <The exponential EDIT string is not allowed in a PICTURE clause.>
Q <The repeat count, [edit-character(number)], must be a positive integer.>
Q <All "P"s must be contiguous in a PICTURE or EDIT string.>
Q <PICTURE or EDIT string contains the invalid character "!A".>
Q <Only one "!A" permitted in PICTURE or EDIT string.>
Q <No USAGE clause and the PICTURE clause has only insertion characters.>
Q <Cannot assign to a field containing a COMPUTED BY clause.>
Q <Overflow during assignment, result is incorrect.>
Q <Conversion error in day of the month in date string "!A", date made blank.>
Q <Conversion error in date string "!A", date made blank.>
Q <Conversion error in or text after time field in date string "!A", date made blank.>
Q <Conversion error, !L, in date string "!A", date made blank.>
Q <Invalid assignment to a group data item.>
Q <Validation error for field !A.>
Q <!A clause is not permitted in a variable declaration.>
Q <String truncation in conversion or assignment.>
Q <No global variables have been declared.>
Q <Global variables:>
Q <Not enough room to store this many plot variables.>
Q <!A!A!A>
Q <Assignment of negative value to unsigned item; absolute value used.>
Q <Invalid context for field "!A".>
Q <Record has been deleted.>
Q <No record selected, printing whole collection.>
Q <Null print list.>
Q <Print object is too large for line width.>
Q <RMS error !Aing file "!A",!/ !A (ERR: !U),!/ !E (STV: !O).>
Q <[Creating file !J ...]>
Q <Field "!A" contains a self reference and cannot be evaluated.>
Q <!A clause is ignored when you use a COMPUTED BY clause.>
Q <Function failed giving error code: !U.>
Q <Dictionary element "!A" already in use.>
Q <Element "!A" not found in dictionary.>
Q <"!A" is not a "!A" name.>
Q <Dictionary element "!A" has invalid internal format.>
Q <Logical name "!A" in dictionary path is undefined.>
Q <Dictionary path "!A" does not contain an element name.>
Q <Dictionary path "!A" resolves to an invalid file name,!/ "!A" probably because "!E".>
Q <Multiple OCCURS DEPENDING ON clauses not allowed.>
Q <OCCURS DEPENDING ON field must be last item in record definition.>
Q <Field "!A" not found for OCCURS DEPENDING ON.>
Q <Field "!A" not found for REDEFINES.>
Q <The default directory is !A.>
Q < !A>
Q <Domains:>
Q <Records:>
Q <Plots:>
Q <Procedures:>
Q <Tables:>
Q <No loaded tables.>
Q <Loaded tables:>
Q <Value not found in table.>
Q <[Record is !U !U-bit byte!p long.]>
Q <The USAGE of field "!A" is invalid in this record.>
Q <Invalid length for REDEFINES, field "!A".>
Q <Defined record size does not match record size in file.!/ Defined: !U File: !U.>
Q <"!A" is not a readied domain.>
Q <"!A" is not a collection, loaded table, loaded plot, or global variable.>
Q <No ready domains.>
Q <Ready domains:>
Q <"!A" is not a readied domain, collection, or list.>
Q <"!A" is not a list.>
Q <Remote expression is not supported.>
Q <OCCURS DEPENDING ON count out of range.>
Q <Value not found from record or table.>
Q <No ready domains or global variables.>
Q <Fields of domain !A:>
Q <Could not change access to readied domain.>
Q <Re-READY failed. Domain automatically finished.>
Q <Key "!A" has an invalid data type.>
Q <Key "!A" is not defined in domain "!A".>
Q <The CHANGE option is invalid on the primary key of a file.>
Q <Keyed files must be fixed (MAX) or VARIABLE, not STREAM.>
Q <A remote domain cannot participate in a CROSS.>
Q <Not enough context. Some field names resolved by the Context Searcher.>
Q <Context Searcher could not resolve field.>
Q <No collection for SORT.>
Q <No collection for SELECT.>
Q <Target record has already been dropped.>
Q <No collection with selected record for DROP.>
Q <[!U record!p found]>
Q <Record number out of range for collection.>
Q <Unable to select a record that satisfies the Boolean expression.>
Q <Selected record not found.>
Q <Record has been dropped from the collection.>
Q <Parent collection de-selected, collection "!A" automatically released.>
Q < No selected record>
Q < Number of records: !U>
Q <Collections:>
Q <No established collections.>
Q <Collection !A:>
Q < Domain: !A>
Q < Selected record: !U (erased)>
Q < Selected record: !U (dropped)>
Q < Selected record: !U>
Q < Sort order: !A>
Q < !A>
Q <Cannot take MAX, MIN, AVERAGE, or STD_DEV of zero objects.>
Q <[Function computed using !U of !U values.]>
Q <No target record for ERASE.>
Q <Cannot ERASE from a CROSS.>
Q <WRITE access is required for domain "!A".>
Q <Cannot ERASE from a STREAM file in domain "!A".>
Q <Cannot ERASE from an OCCURS list.>
Q <Cannot STORE into a view.>
Q <Cannot STORE into a relative file in domain "!A".>
Q <No target record for MODIFY.>
Q <MODIFY access is required for domain "!A".>
Q <Cannot MODIFY a STREAM file in domain "!A".>
Q <!A "!A" not found in dictionary.>
Q <USAGE clause conflict.>
Q <STREAM files can only contain DISPLAY_7 and DISPLAY_7 numeric fields.>
Q <View field "!A" cannot be found in domain "!A".>
Q <Domain "!A" was not included in domain list for view.>
Q <"!A" is not an RMS domain.>
Q <FINISH !A; DISPLAY "FINISH";>
Q <DDMF remote synchronization error at PC=!O.>
Q <READY !A AS !A !A !A; DISPLAY "READY";>
Q <READY !A !A !A; DISPLAY "READY";>
Q <DDMF remote protocol version mismatch.>
Q <[DDMF] !A>
Q <DDMF error on link to !A.!/ NSP error (!U): !A!/ Last JSYS error: !L.>
Q <Remote ANY expression cannot use another ANY expression in the WITH clause.>
Q <Error locating HELP file "!A",!/ !L.>
Q <DDMF error on link to !A.!/ NSP error (0): No special error!/ Last JSYS error: !E.>
Q <MR !A]>
Q <Too many parameters for plot definition.>
Q <The default plot directory is !A.>
Q <Plot entry point is not defined.>
Q <Plot location function out of range. Value: !U.>
Q <Plot index out of range. Vector: !A, index: !U.>
Q <Invalid ROC chain or key buffer.>
Q <No keeplist when one is needed.>
Q <Invalid SORT record length.>
Q <Function failed due to JSYS error,!/ !E.>
Q <SORT failed because,!/ !A>
Q <No more memory available.!/ Use the FINISH or RELEASE commands to free memory.>
Q <Error locating or getting ADT.EXE file,!/ !L.>
Q <Error locating or getting EXEC.EXE file,!/ !L.>
Q <Error locating or getting EDITOR: file,!/ !L.>
Q <Unterminated quoted string.>
Q <Print object(s) too long to fit on report line.>
Q <Maximum line count exceeded - report terminated.>
Q <NEW-PAGE and NEW-SECTION are invalid in AT BOTTOM OF PAGE print list.>
Q <Invalid report name (remember to include double quotes).>
Q <Maximum report pages exceeded - report terminated.>
Q <Duplicate control break specified for !A.' >
Q <Excessive PRINT statements for REPORT.>
Q <Plot text longer than 255 characters.>
Q <RMS warning !Aing file "!A",!/ !A (ERR: !U),!/ !E (STV: !O).>
Q <Function error,!/ !A>
Q <Error accessing file !J,!/ !L.>
Q <Error accessing file !A,!/ !L.>
Q <No loaded plots.>
Q <Loaded plots:>
Q <[Releasing all plots to conserve memory.]>
Q <"!A" is a Datatrieve keyword or keyword abbreviation.!/ Use another name.>
Q <Plots from !A:>
Q <It is invalid to MODIFY, ERASE or FIND a port.>
Q <Item cannot contain more than 255 characters.>
Q <Cannot READY domains with same name on different nodes. !/ Use an alias name for "!A".>
Q <Found an opening quote but no corresponding closing quote.>
Q <Internal error (no more slots available in lock table).>
Q <No dynamic memory available for stream initialization.>
Q <Unable to set page accessibility of last stack page.>
Q <Unable to free dynamic memory.>
Q <Invalid number of arguments to DDMF.>
Q <Bad object id.>
Q <Bad information code.>
Q <Stall point in DAB is invalid.>
Q <Exit from Datatrieve requested by operator.>
Q <Storing and retrieving from ports is not allowed in interactive Datatrieve.>
Q <Invalid string descriptor.>
Q <SELECT failed due to deadlock.>
Q <Failed to retrieve a selected record following a re-ready.>
Q <Collection !A will no longer have a selected record.>
Q <[Record locked by another process, waiting... ]>
>
STRMSG:: ENG$S(MSG)
SUBTTL Distributed datatrieve error strings
;
; Foreign Language Facility -- DISTRIBUTED DATATRIEVE ERROR STRINGS
;
; NSP error code strings
DEFINE NSP(N), <
N <No special error>
N <Resource allocation failure>
N <Destination node does not exist>
N <Node shutting down>
N <Destination process does not exist>
N <Invalid name field>
N <Destination process queue overflow>
N <Unspecified error>
N <Third party aborted link>
N <User abort (asynchronous disconnect)>
N <Undefined error code>
N <Undefined error code>
N <Undefined error code>
N <Undefined error code>
N <Undefined error code>
N <Undefined error code>
N <Undefined error code>
N <Undefined error code>
N <Undefined error code>
N <Undefined error code>
N <Undefined error code>
N <Connect initiate with invalid destination address>
N <Connect confirm with invalid destination address>
N <Connect initiate or connect confirm with zero source address>
N <Flow control violation>
N <Undefined error code>
N <Undefined error code>
N <Undefined error code>
N <Undefined error code>
N <Undefined error code>
N <Undefined error code>
N <Undefined error code>
N <Too many connections to node>
N <Too many connections to destination process>
N <Access not permitted>
N <Logical link services mismatch>
N <Invalid account>
N <Segment size too small>
N <Process aborted>
N <No path to destination node>
N <Link aborted due to data loss>
N <Destination process does not exist>
N <Confirmation of disconnect initiate>
N <Image data field too long>
>
STRNSP:: ENG$S(NSP)
SUBTTL RMS error strings
;
; Foreign Language Facility -- RMS ERROR STRINGS
DEFINE RMS(S), <
S <ER$AID - Invalid area identification field in allocation XAB>
S <ER$ALQ - Allocation quantity incorrect>
S <ER$ANI - Not in ANSI D format>
S <ER$BKS - Invalid bucket size>
S <ER$BKZ - Invalid bucket size in allocation XAB>
S <ER$BLN - Invalid block length field>
S <ER$BSZ - Invalid byte size field>
S <ER$BUG - Internal RMS error>
S <ER$CCF - Cannot close file>
S <ER$CCR - Cannot connect RAB>
S <ER$CDR - Cannot disconnect RAB>
S <ER$CEF - Cannot erase file>
S <ER$CGJ - Cannot get a JFN for the file>
S <ER$CHG - Invalid attempt to change a key value>
S <ER$COD - Invalid type code field in XAB>
S <ER$COF - Cannot open file>
S <ER$CUR - No current record>
S <ER$DAN - Invalid data area number in KEY definition XAB>
S <ER$DEL - A record accessed with RFA addressing has been deleted>
S <ER$DEV - Invalid device or inappropriate device type for operation>
S <ER$DFL - Invalid data-fill percentage value>
S <ER$DLK - Deadlock condition detected>
S <ER$DME - Dynamic memory exhausted>
S <ER$DTP - Invalid data type in KEY definition XAB>
S <ER$DUP - Duplicate key detected>
S <ER$EDQ - ENQ/DEQ locking error>
S <ER$EOF - End of file>
S <ER$FAB - Block is not a valid FAB>
S <ER$FAC - FAC field in the FAB is not compatible with operation>
S <ER$FEX - File already exists>
S <ER$FLG - Invalid flag field in KEY XAB>
S <ER$FLK - File already locked>
S <ER$FNA - Invalid FNA value>
S <ER$FNC - File not closed>
S <ER$FNF - File not found>
S <ER$FOP - Invalid file options>
S <ER$FSZ - Invalid header size for VFC file>
S <ER$FUL - File cannot be extended>
S <ER$IAL - Invalid argument on call>
S <ER$IAN - Invalid index area number in KEY definition XAB>
S <ER$IBC - Invalid block mode connection>
S <ER$IBO - Invalid block mode operation>
S <ER$IBS - Invalid block mode sharing>
S <ER$IFI - Invalid internal file identifier in FAB>
S <ER$IFL - Invalid index fill percentage>
S <ER$IMX - Multiple SUMMARY or DATE XABS>
S <ER$IOP - Invalid operation attempted>
S <ER$IRC - Invalid record encountered>
S <ER$ISI - Invalid internal stream identifier in RAB>
S <ER$JFN - Invalid JFN>
S <ER$KBF - RAC equal to RB$KEY, but did not set KBF>
S <ER$KEY - Invalid record key for random access to relative file>
S <ER$KRF - Invalid key of reference for indexed file>
S <ER$KSZ - Key size too large>
S <ER$LSN - Invalid line sequence number>
S <ER$MRN - Invalid MRN value>
S <ER$MRS - Invalid value for maximum record size>
S <ER$NEF - Not at end of file>
S <ER$NLG - Log file not active>
S <ER$NPK - No primary key in key definition XAB for indexed file>
S <ER$NXT - Invalid value of NXT field in XAB>
S <ER$ORD - Chained XABS not in ascending order>
S <ER$ORG - Unknown file organization>
S <ER$PEF - Cannot position to end of file>
S <ER$PLG - Error detected in files prologue>
S <ER$POS - Invalid key position value>
S <ER$PRV - Insufficient privilege or file protection violation>
S <ER$QPE - Quiet point enabled>
S <ER$RAB - Block identifier field of RAB invalid>
S <ER$RAC - Invalid record access mode field in RAB>
S <ER$RAT - Invalid record attributes field in FAB>
S <ER$RBF - RBF was not setup on $PUT or $UPDATE>
S <ER$REF - Invalid key of reference in XAB>
S <ER$RER - File processor read error>
S <ER$REX - Record already exists>
S <ER$RFA - Invalid record file address in RAB>
S <ER$RFM - Invalid record format>
S <ER$RLK - Record locked by another process>
S <ER$RNF - Record not found>
S <ER$RNL - Record not locked>
S <ER$ROP - Invalid record options>
S <ER$RRV - Invalid RRV record found>
S <ER$RSA - Record stream active>
S <ER$RSD - Record size discrepancy>
S <ER$RSZ - Invalid record size>
S <ER$RTB - Record too large for user buffer>
S <ER$SEQ - Keys out of sequence>
S <ER$SIZ - Invalid key size in key definition XAB>
S <ER$TRE - Index tree error detected>
S <ER$TRU - Cannot truncate this file>
S <ER$UBF - Invalid user record area address>
S <ER$UDF - File in undefined state>
S <ER$VER - Error in version number>
S <ER$WER - File processor write error>
S <ER$XAB - Invalid BID field of XAB>
S <ER$XCL - File must be open for exclusive access>
S <ER$FSI - File specification contains illegal syntax>
;; This one must always be last
S <ER$??? - Unknown error code>
>
STRRMS:: ENG$S(RMS)
SUBTTL STRMTH -- MTHLIB error codes
; The order of arguments is preserved from the standard MTHMSG $LERR calls.
; A new last arg has been added: what happens if this signal is continued;
; This could be used for something spiffy some day.
; Only NUM1=8 error codes come from MTHLIB
DEFINE MTERDF (sev,cod3,num1,num2,msg,res) <
MEMAX==MEMAX+1
IFN <^D'num1-^d8>,<PRINTX ? MTHLIB error must have NUM 1 = 8.>
IFN <^D'num2-MEMAX>,<PRINTX ? MTHLIB error code definitions out of order:
PRINTX ? $LERR sev, cod3, num1, num2, msg, res>
POINT 7, [ASCIZ "msg"]
>
MEMAX==0
STRMTH:: ;Table starts at 1
MTERDF (%,ROV,8,1,<Result overflow>)
MTERDF (%,RUN,8,2,<Result underflow>)
MTERDF (%,IPU,8,3,<Imaginary part underflow>)
MTERDF (%,RPU,8,4,<Real part underflow>)
MTERDF (%,IPO,8,5,<Imaginary part overflow>)
MTERDF (%,RPO,8,6,<Real part overflow>)
MTERDF (%,BPO,8,7,<Both parts overflow>)
MTERDF (%,BPU,8,8,<Both parts underflow>)
MTERDF (%,ATZ,8,9,<ABS(arg) too large>,<result=zero>)
MTERDF (%,ATI,8,10,<ABS(arg) too large>,<result=infinity>)
MTERDF (%,RTI,8,11,<REAL(arg) too large>,<IMAG(result)=+infinity>)
MTERDF (%,RTR,8,12,<REAL(arg) too large>,<REAL(result)=+infinity>)
MTERDF (%,AIZ,8,13,<ABS(IMAG(arg)) too large>,<result=zero>)
MTERDF (%,ARZ,8,14,<ABS(REAL(arg)) too large>,<result=zero>)
MTERDF (%,AIR,8,15,<ABS(IMAG(arg)) too large>,<REAL(result)=infinity>)
MTERDF (%,AII,8,16,<ABS(IMAG(arg)) too large>,<IMAG(result)=infinity>)
MTERDF (%,AZM,8,17,<Zero arg not permitted>,<result=-infinity>)
MTERDF (%,ZZZ,8,18,<Zero ** zero not permitted>,<result=zero>)
MTERDF (%,ZCI,8,19,<Zero ** (negative,non-zero) not permitted>,<result=(infinity,infinity)>)
MTERDF (%,BPI,8,20,<Both parts indeterminate>)
MTERDF (%,NAA,8,21,<Negative arg not permitted>,<result=FUNCT(ABS(arg))>)
MTERDF (%,ZIZ,8,22,<Zero arg not permitted>,<result=(-infinity,zero)>)
MTERDF (%,AOI,8,23,<ABS(arg) cannot be greater than 1.0 >,<result=+infinity>)
MTERDF (%,BAZ,8,24,<Both arguments are zero>,<result=zero>)
MTERDF (%,NNA,8,25,<Negative base ** non-integer not permitted>,<ABS(base) used>)
MTERDF (%,ZNI,8,26,<Zero ** negative exponent not permitted>,<result=infinity>)
MTERDF (%,MZZ,8,27,<Second argument is zero>,<result=zero>)
; MTERDF (%,999,8,999,<CMATH: Complex overflow>)
; MTERDF (%,888,8,888,<CMATH: Complex underflow>)
; MTERDF (%,NOR,-1,0,<ERRSET: Error number out of range - ignored>)
; MTERDF (?,MFX,-1,0,<MTHOP: function code exceeds range>)
CNTMTH:: MEMAX
PURGE MEMAX
END