E r g e b n i s / R e s u l t
Displays an Open Access error message
B e s c h r e i b u n g / D e s c r i p t i o n
This procedure displays a standard Open Access error message at the top
of the screen. The user is prompted to press <do:F10> or <undo:Esc> to
continue.
Having trapped an error message such as 'Printer not online', the
developer can display an error message entirely under program control.
S y n t a x
Code:
bool = call ('SETERR' , errornumber , string) P a r a m e t e r
errornumber - The first parameter is an error number (see below.)
string - The second parameter is a replacement string that is
inserted in certain error messages. Those messages below
that include a $ will have the replacement string inserted
at the $. Passing a replacement string to a message that
does not use it will not cause any problems.
Some of these errors messages are not applicable, however a
great many will be of use to developers.
Error Message
Number
0 /* System Error */
1 /* Error in Boolean Conditional */
2 /* Exponential Overflow */
3 /* Missing Parenthesis */
4 /* Bad constant or fieldname */
5 /* Numeric Overflow */
6 /* Too Many Parentheses */
7 /* CRC Error/Disk May Be Write Protected */
8 /* No Room for Scratch File */
9 /* No Room in File $ */
10 /* No Room on Volume $ */
11 /* File $ Already Exists */
12 /* File $ Not Found */
13 /* $ of Wrong Type */
14 /* Field $ Not Found */
15 /* Duplicate Field $ */
16 /* Access Violation */
17 /* Program Confused */
18 /* Illegal Operation */
19 /* Bad User Data */
20 /* Implementation Restriction */
21 /* Too Many Files */
22 /* Too Many Fields */
23 /* Error in Join Clause */
24 /* Missing FROM Clause */
25 /* Type Conflict of Operands */
26 /* Missing Delimiter */
27 /* Database $ Corrupted */
28 /* Records are Locked */
29 /* Range Error */
30 /* Illegal Character (Non-Numeric) */
31 /* Not Enough Memory */
32 /* Error in Mask $ */
33 /* Invalid ALLOW Option */
34 /* Record updated by another user - Try again */
35 /* End of File $ */
36 /* Records will not fit on printer page */
37 /* Not enough memory for entire file. Continue? */
38 /* Error in writing file $ */
39 /* Error in opening file $ */
40 /* Mask $ has not been set up correctly */
41 /* Records will not fit on printer page */
42 /* $ is not a key field */
43 /* Error In Expression $ */
44 /* Error during read of file $ */
45 /* Error during evaluation of mask $ */
46 /* Too Many Virtual Fields */
47 /* Unknown function $ */
48 /* Bad Argument $ */
49 /* Too Many Functions */
50 /* Missing exponent */
51 /* No Records Found */
52 /* Mask $ Read Error */
53 /* Range Error */
54 /* Unable to output, hardware problem */
55 /* Value for field must be entered */
56 /* Token Too Long */
57 /* Bad Record Count */
58 /* Missing Quote */
59 /* Missing Separator */
60 /* Bad Field */
61 /* Bad Date */
62 /* Bad Integer */
63 /* Bad Decimal */
64 /* Cannot Divide By Zero */
65 /* Output device not initialized */
66 /* No printer information records found */
67 /* Output device already active */
68 /* No output device on-line */
69 /* Error in $ detected, Macro Command aborted */
70 /* Writing to Input file $ not allowed */
71 /* Reading from Output file $ not allowed */
72 /* Character Buffer Overflow */
73 /* Wrong Version of $ */
74 /* Communication Failure */
75 /* Error Writing to Volume $ */
76 /* Record Deleted */
77 /* Duplicate Value in Unique Key $ */
78 /* Not sorted correctly for Report Form */
79 /* Error Reading Volume $ Directory */
86 /* No Room On Volume $ */
87 /* No Volume $ Found */
88 /* Value Not Found in File $ */
89 /* No File Open */
90 /* Illegal Operation to Serial Device $ */
91 /* Serial Device $ Not Allowed */
92 /* Illegal File Name "$" */
93 /* Error lengthening file (disk full?). Please run Fix_File. */
94 /* Mask $ not found */
95 /* Bad input format */
96 /* Invalid key word */
97 /* Record $ not found in Printer Information file */
98 /* File Name $ too long */
99 /* Text Line is too long */
100 /* An area has already been selected */
101 /* No screen mask file defined for $ */
102 /* No records in file */
111 /* File $ already in use */
112 /* Too many Macros already executed. */
113 /* Macro $ already active. */
114 /* No options in the $ menu */
115 /* The module is not in $ */
116 /* Value for field must be entered. Press <do> to accept zero. */
117 /* Warning: Numbers > 2.147 billion set to 0. Use type decimal. */
118 /* Record is too large or field is size zero. */
119 /* Aggregate functions only allowed in totals and group headers. */
120 /* Must specify all volume nicknames to join files of same name */
127 /* Too Many Ranges and/or Values to Search For */
128 /* Query Too Complex */
129 /* Improper Join Conditions */
130 /* Maximum number of characters exceeded */
131 /* Maximum number of lines exceeded */
132 /* Maximum number of menu levels exceeded */
133 /* Wrong type field in record #$ */
200 /* Error in Memory Allocation */
201 /* Illegal Memory Pointer */
202 /* Illegal Access of Memory */
203 /* Memory Corrupted */
204 /* Memory Not Available */
205 /* No room for more conversion entries */
206 /* Memory <-> Disk IO Error */
207 /* End of Memory Space */
208 /* Overrun error */
209 /* Parity Error */
210 /* Framing Error */
211 /* Break */
212 /* Buffer overflow - Host not responding to XOFF */
213 /* Timeout error */
214 /* Communications port is already active */
215 /* Communications Failure */
216 /* INTERRUPTED */
217 /* Wrong version of SPI.EXE */
228 /* Bad User Data : $*/
231 /* Illegal action for this option.*/
231 /* Illegal action for this option.*/
298 /* Reached maximum number of characters.*/
299 /* Bad Time Constant*/
300 /* Could not index $ help file*/
301 /* Help Number $ Not Found*/
302 /* Help file $ Not Found*/
R e t u r n s
The procedure returns a Boolean or True/False value.
TRUE - the procedure worked correctly.
FALSE - a problem occurred with the parameters.
B e i s p i e l / E x a m p l e
Code:
! attach the errors utility
attach 'errors'
! open a print device and trap any error conditions
errors off
printer is ''
errors on
! did the user press escape ? This is the 'Output not initialised'
if errornumber = 65
! display the error message (65) and a blank replacement string
x = call ('SETERR' , 65 , '')
end if
! remove utility from memory
detach 'errors' Q u e r v e r w e i s / C r o s s R e f e r e n c e
CLEARERR