home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
error.zip
/
ERROR.PRG
next >
Wrap
Text File
|
1988-10-30
|
63KB
|
1,935 lines
* BOF Error.Prg
*
* Written by: Michael C. Liuzunie
* Date: 06/28/88
* Voice Number: (707) 762 - 4559
*
* Information:
*
* All error codes and descriptions of errors were taken directly from the
* dBASE III PLUS Version 1.0 Manual.
*
* As I do not posses all possible equipment configurations, testing of this
* program is incomplete. If you find error's in this program please either
* leave mail for me on the Forum Board or leave a voice message at the number
* listed above.
*
* This program is packaged with a utility from the Ashton-Tate
* Programmers Utility package "Savescr.Bin".
*
* As with anything new to your system; Use with caution and at you own risk!
*
* Instructions:
*
* Place this file "Error.Prg" and the accompanying file "SaveScr.Bin" either
* in the same directory as your dBASE III PLUS programs or in a separate
* directory specified in your config.db path.
*
* To activate this error trapping file,
* *****************> Issue the command: On Error Do Error
*
* Please feel free to distribute this package as a complete,
* un-modified unit. Thank You.
*
* Purpose:
*
* Error trapping routing to aid in debugging coding.
* Supplies error messages and explanations of error's as per the manual.
* SaveScr is a Ashton Tate Utility found in the
* dBASE III PLUS Programmers Utilitits Software Package.
*
*
Set Echo Off
Set Talk Off
Merror = error() && Numeric Value of Error Code
MPAUSE = "" && Character of Key Pressed to Stop Wait.
CHOICE = "" && Choice is set to nul
CHOICE = str(merror) && Set choice to Error Code Value
load Savescr && load file from disk, Include full path name.
CALL SaveScr with 's5' && dBASE III Utilities, Save Screen Utility
CLEAR
do while val(choice) > 0
? " Please Wait......"
do case
case error() = 1 && File does not exist
?
? " Error Code# : " + ltrim(choice) + " " + message()
?
text
You attempted to open a file that does not exist.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 2 && Unassigned file no.
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
There is a problem with the dBASE III PLUS system. Make a new
working copy of dBASE III PLUS from you master disk. If you still
get the error, contact Ashton-Tate Software Support.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 3 && File is already open
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to open a file that is already open.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 4 && End-of-file encountered
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to move the record pointer past the end of the
database in USE. Four main conditions cause this error:
APPEND FROM, UPDATE FROM, USE
You opened a database containing an incomplete structure.
FIND, SEEK
You executed a FIND or SEEK command on a corrupted or incomplete
index.
MODIFY LABEL/REPORT, LABEL/REPORT FORM
You opened a LABEL/REPORT FORM file that has an incomplete
structure, or the database file structure is corrupted.
SKIP
You SKIPped past the last record in the database file.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 5 && Record is out of range
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to position the record pointer to a record number
greater than the number of records in the database.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 6 && Too many files are open
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to open more than 15 files. This condition can also
be caused when the DOS configuration file, Config.sys, which
contains the clause FILES=20, is not in the root directory of the
boot disk.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 7 && File already exists
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to RENAME a file TO the name of a file that already
exists on the disk.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 8 && Unbalanced parenthesis
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You defined an expression with an unequal number of opposing
parentheses. In CREATE/MODIFY QUERY, you have Added or Removed a
parenthesis using the Nest pull-down menu, and you neglected to Add
or Remove the corresponding parenthesis.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 9 && Data type mismatch
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted an operation with conflicting data types. Some of
the conditions that cause this error message to occur are
summarized below under the headings: EXPRESSIONS, REPLACE, SEEK,
and SORT.
EXPRESSIONS
You tried to REPLACE a field with an expression of a different
data type.
SEEK
You used the SEEK command with an expression that does not
evaluate as the same data type as the active index key.
SORT
You attempted to SORT on a logical or memo field.
?
endtext
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 10 && Syntax error
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to execute a command that does not have the proper
syntactical construction. This is often a misspelled word.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 11 && Invalid function argument
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
The expression you used as the argument to the function is not the
correct input data type for that function.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 12 && Variable not found
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You specified a non-existent memory variable or a variable name
that is not a field in the currently selected work area or the
work area specified by an alias.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 13 && ALIAS not found
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to either SELECT a database area that is outside the
range of A through J, or to use an ALIAS that has not been
defined.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 14 && No find
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to execute a FIND or SEEK command with a key
expression that does not match any entry in the index file.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 15 && Not a dBASE database
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to USE a file that either does not conform to the
dBASE III PLUS format or has a corrupted header record.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 16 && *** Unrecognized command verb
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You specified a word at the beginning of a command line that is
not a valid dBASE III PLUS command.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 17 && Cannot select requested database
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
The work area you SELECTed is outside the range or one through
ten.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 18 && Line exceeds maximum of 254 characters
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You specified a command that exceeds 254 characters in length
within a command (.PRG) or format(.FMT) file.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 19 && Index file does not match database
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to open an index file whose key expression cannot be
related to the database in USE.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 20 && Record is not in index
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to position the record pointer with GO/GOTO, or any
command using the RECORD phrase, to a record that is not in the
index file.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 21 && Out of memory variable memory
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You exceeded the 6,000 byte limit of memory space allocated for
memory variables. You can extend this limit by changing the
MVARSIZ parameter in the Config.db file.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 22 && Out of memory variable slots
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to initialize a memory variable with 256 memory
variables already active.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 23 && Index is too big (100 char maximum)
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
The result of the key expression you INDEXED ON exceeds the
maximum length of 100 characters. This limitation refers to the
actual length of the key when the expression is evaluated. For
example, the following key length is 60 characters long if both
fields have a width of 30 in the database file structure.
INDEX ON First-name + Last-name TO Alpha.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 24 && ALIAS name already in use
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to USE a database file that is already open, has the
same ALIAS, or has a name or ALIAS within the range A through J.
dBASE III PLUS uses A through J for default ALIASes.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 25 && Record not inserted
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You aborted an INSERT command without adding the record.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 26 && Database is not indexed
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to execute a FIND, SEEK, or UPDATE command on a
database file without an open index file, or attempted to SET
RELATION to a database file that is not indexed.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 27 && Not a numeric expression
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to use an expression that is not a numeric type
where a numeric expression is required, such as in SUM, AVERAGE,
or DISPLAY NEXT.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 28 && Too many indices
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to specify more than seven index files with either
the USE or the SET INDEX TO commands.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 29 && File is not accessible
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to create a disk file when the directory was full or
when the filename contained one or more of the following invalid
characters: + " < > ? * [ ].
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 30 && Position is off the screen
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to execute a SAY/GET command at a column coordinate
outside the range of 0 to 79 or a row coordinate outside the range
of 0 to 24.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 31 && Invalid function name
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You specified a function that dBASE III PLUS cannot recognize.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 32 &&
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
No error code available at this time
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 33 && Structure invalid
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to execute the CREATE FROM command when the
structure defined in the structure-extended file is not valid.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 34 && Operation with Memo field invalid
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted either to SORT or INDEX on a memo field, or to
assign a MEMO field to a variable.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 35 && Unterminated string
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You specified a string expression without a terminating delimiter.
The valid delimiters are single quotes, double quotes, and square
brackets
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 36 && Unrecognized phrase/keyword in command
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You specified a phrase beginning with an invalid keyword.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 37 && Not a Logical expression
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to use an expression that is not a logical type
where a logical expression is required, such as in a FOR/WHILE
clause.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 38 && Beginning of file encountered
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You positioned the record pointer before the first record in the
file.
endtext
call savescr with 'r5'
release module savescr
return
case error() = 39 && Numeric overflow (data was lost)
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
Numeric overflow is a condition that happens when a mathematical
operation results in a number too large to be stored in the field
or variable in which it is placed. The two common conditions that
cause this are explained under the headings, REPLACE and TOTAL.
REPLACE:
You attempted to REPLACE a numeric field WITH an expression that
is too large.
TOTAL:
You specified numeric fields that are too small to accommodate the
resultant totals when TOTALing the database.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 40 &&
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
No explanation of error available at this time.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 41 && .DBT file cannot be opened
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to USE a database file containing a memo field when
dBASE III PLUS cannot find the .dbt file containing the memo field
text. If you cannot find this file either, you must create the
file in ASCII format with a .dbt extension before dBASE III PLUS
will allow you to access the database file.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 42 && CONTINUE without LOCATE
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to execute a CONTINUE command without first
executing a LOCATE command.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 43 && Insufficient memory
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to load dBASE III PLUS on a machine with less than
256K of available RAM. Some of the conditions that cause this
message to be displayed:
@....GET
You exceeded the maximum number or 128 GETS without issuing either
a CLEAR GETS or a CLEAR.
RUN, TEDIT, WP
You attempted to RUN an external program with insufficient memory,
The amount of memory required is MAXMEM is 256K unless changed in
Config.db.
LOAD
You attempted to LOAD a file larger than the amount of available
memory.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 44 && Cyclic relation
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You created an endless cycle by SETing RELATION INTO a database
that relates back to the currently selected database. An example
of this situation occurs when you have three databases (A,B, and
C), and A relates to B, B to C, and C to A. SET RELATION, without
any parameters, disconnects all relations from the currently
selected work area.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 45 && Not a character expression
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to use an expression that is not a character type
where a character expression is required.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 46 && Illegal value
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
In full-screen SET, you pressed the ESC key instead of entering a
number when setting either decimals or the report margin.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 47 && No fields to process
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
In ASSIST, you attempted to SUM or AVERAGE a database file that
has no numeric fields.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 48 && field not found
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
While in BROWSE, you attempted to FREEZE a field that does not
exist.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 49 &&
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
No explanation of error message available at this time
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 50 && Report file invalid
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to run a REPORT FORM (.FRM) file that was not
created by CREATE or MODIFY REPORT.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 51 && End-of-file or error on keyboard input
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
The file you used to simulate keyboard input (accomplished with
the DOS Set Environment Command) is corrupted.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 52 && No database is in USE. Enter file name:
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You specified a command that requires a database file to be open
in the current work area.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 53 && There are no files of the type requested on this drive
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
In ASSIST, SET, or other menu-driven command, you selected a menu
option that requests a submenu containing all files of a
particular type, and there are no files of that type on the
default drive and directory. For example, selecting the Database
File option in the Set-Up menu when there are no database files
will cause this message in The Assistant.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 54 && Label file invalid
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You ran or modified a LABEL file (.LBL) not created with the
CREATE/MODIFY LABEL commands.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 55 && Memory Variable file is invalid
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You RESTORed FROM a file that is not a valid memory (.MEM) file.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 56 && Disk full when writing file: <filename>
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to write to a disk that has no more space available.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 57 && *** execution error on CHR() :Out of range
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You used a number less than zero or greater than 255 as the
argument in the CHR() function.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 58 && *** Execution error on LOG() :Zero or negative
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You used a number less than or equal to zero as the argument in
the logarithm function.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 59 && *** Execution error on SPACE() :Too Large
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You used the SPACE() function with an argument that is greater
than 254.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 60 && *** Execution error on SPACE() :Negative
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You used the SPACE() function with a negative argument.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 61 && *** Execution error on SQRT() :Negative
?
? "Error Code# : "+ltrim(choice)+" "+message()
?
text
You used a negative number as the argument in the square root
function.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 62 && *** Execution error on SUBSTR() :Start point out of ra
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to extract a substring from a character string where
the starting position argument of the substring function is
greater than the length of the string.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 63 && *** Execution error on STR() :Out of range
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You specified a STR expression in which the length parameter
exceeds 19 digits or the decimal parameter exceeds the length
minus two.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 64 &&
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
No explanation of error message avaliable at this time
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 65 && Internal error: Unknown command code:
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
There is a problem with the dBASE III PLUS system. Make a new
working copy of dBASE III PLUS from you master disk. If you still
get the error, contact Ashton-Tate Technical Support.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 66 && Internal error: CMDSET():
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
There is a problem with the dBASE III PLUS system. Make a new
working copy of dBASE III PLUS from you master disk. If you still
get the error, contact Ashton-Tate Technical Support.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 67 && Internal error: EVAL work area overflow
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to use an expression that is overly complex and may
not be possible.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 68 && Internal error: Illegal opcode
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
there is a problem with the dBASE III PLUS system. Make a new
working copy of dBASE III PLUS from you master disk. If you still
get the error, contact Ashton-Tate Technical Support.
This error might also occur during execution of an extremely
complex expression to about 150 to 200 terms.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 69 &&
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
No explanation of error message available at this time.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 70 && ** WARNING ** Data will probably be lost. Confirm (Y/N)
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You selected the abort option at a "disk full" message.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 71 &&
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
No explanation of error message at this time
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 72 && ALTERNATE could not be opened
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
The ALTERNATE file specified in Config.db could not be opened
because of insufficient directory space or invalid filename.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 73 && ^^Expected ON or OFF
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You set a Config.db ON/OFF parameter to something other than ON or
OFF.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 74 && ^---Truncated
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You created a command line in Config.db that is too long and was
therefore truncated.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 75 && ^--- Out of range
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
In the Config.db file, you specified a parameter that is not
within the allowable range. See Appendix B for the range of
allowable values.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 76 && *** Execution error on - :Concatenated string too larg
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to concatenate a string with a resultant length
greater than the maximum or 254 characters
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 77 && *** execution error on + :Concatenated string too larg
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to concatenate a string with a resultant length
greater than the maximum or 254 characters.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 78 && *** Execution error on ^ or ** :Negative base, fractio
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to raise a negative number to a power between zero
and one.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 79 && *** Execution error on STORE :String too large
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to create a memory variable with more than the
maximum of 254 characters.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 80 &&
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
No explanation of error message avaliable at this time
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 81 && Invalid date (press SPACE)
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to enter an invalid date into a date-type field or
memory variable. Press the SPACEBAR to exit this condition.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 82 && ** Not Found **
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You specified a search string that cannot be found while using the
FIND menu option in BROWSE.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 83 &&
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
No explanation of error message avaliable at this time
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 84 &&
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
No explanation of error message avaliable at this time
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 85 &&
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
No explanation of error message available at this time
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 86 && ^_Keyword not found
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
There is an unrecognized word in Config.db.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 87 && *** Execution error on NDX() :Invalid index number
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You used a number less than one or greater than seven as the
argument in the NDX() function.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 88 && *** execution error on REPLICATE() :String too large
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to create a string larger than 254 characters.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 89 && Cannot erase a file which is open
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to erase an open file. First close the file.
endtext
call savescr with 'r5'
release module savescr
return
case error() = 90 && Operation with Logical field invalid
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to SORT or INDEX on a logical field.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 91 && File was not LOADed
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to LOAD a file that cannot be LOADed (zero length or
not available), or you attempted to CALL or RELEASE a MODULE that
has not been LOADed.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 92 && Unable to load COMMAND.COM
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
Command.com was not on drive A or the drive specified by the DOS
SET COMSPEC command when you:
Issued the RUN/ command
Executed MODIFY COMMAND or entered a memo field when an external
word processor was assigned to TEDIT or WP in Config.db
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 93 && No PARAMETER statement found
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to DO a command file or procedure WITH a parameter
when there was no PARAMETER command as the first line in the
command file or procedure.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 94 && Wrong number of parameters
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You incorrectly set the DO WITH command and the PARAMETERS command
with an unequal number of parameters.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 95 && Valid only in programs
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You issued any of these commands at the dot prompt: CASE, DO CASE,
DO WHILE, ELSE, ENDCASE, ENDDO, ENDIF, ENDTEXT, IF, LOOP,
OTHERWISE, SUSPEND, or TEXT. These command are intended for dBASE
III PLUS command files.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 96 && Mismatched DO WHILE and ENDDO
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
dBASE III PLUS encountered an extra ENDDO in a command file.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 97 &&
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
No explanation of error message at this time
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 98 &&
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
No explanation of error message at this time
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 99 && Invalid DOS SET option
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to SET something that is not a valid DOS parameter.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 100 &&
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
No explanation of error message at this time
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 101 && Not suspended
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You issued the RESUME command when command file execution was not
SUSPENDed.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 102 && *** Execution error on STUFF() :String too large
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You specified a STUFF expression which would have resulted in a
string that exceeds the allowed maximum of 254 characters.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 103 && DOs nested too deep
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
There is a maximum or 20 nested command files.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 104 && Unknown function key
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
In SET FUNCTION, you specified a function key that does not match
the name or number of an existing function key.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 105 && Table is full
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to LOAD more than the maximum of five files.
Table is full
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 106 && Invalid index number
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to SET ORDER TO a position in the index file list
that is not occupied or that is out of the range or 0(Zero) to 7.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 107 && Invalid operator
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
In attempting to specify a dBASE expression, you used an operator
that is invalid for the data types used in the expression. For
example, using the "/" operator to connect two character strings.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 108 && File is in use by another
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to open a file that is in EXCLUSIVE use by someone
else, this can be a database file that was open with SET EXCLUSIVE
ON or another file that is being accessed using a command that
requires exclusive use of the file for its operation.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 109 && Record is in use by another
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to position the record pointer to a record that
cannot be accessed because it is locked.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 110 && Exclusive use on database is required
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to execute a dBASE command that requires exclusive
use of the database file for its operation. SET EXCLUSIVE ON, USE
the database file, and try the command again.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 111 && Cannot write to read only file
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to write to a file that has the read/only attribute
set. This attribute is set through the operating system.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 112 && Index expression is too big (220 char maximum)
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
The key expression you INDEXed ON exceeds the maximum length of
220 characters. This limitation refers to the number of characters
in the key expression, rather than the actual length of the
resultant key. For example the following key expression is 22
characters long:
INDEX ON First_name + Last_name TO Alpha
That is, 10 characters for "First_name", 3 characters for the plus
sign and spaces on either side, and 9 characters for "Last_name".
The actual key length may be larger or smaller, depending on the
length of the First_name and Last_name fields in the database file
structure.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 113 && Index interrupted. Index will be damaged if not comple
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You pressed ESC during INDEX ON or REINDEX. This error message
gives you the opportunity to continue or abandon the indexing
process.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 114 && Index damaged. REINDEX should be done before using dat
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to engage an index file and the indexing process for
that file was previously interrupted by pressing ESC.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 115 && Invalid DIF File Header
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to APPEND FROM a DIF file that contains an invalid
file header.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 116 &&
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
No explanation of error code at this time
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 117 && Invalid DIF Type Indicator
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to APPEND FROM a DIF file that contains an incorrect
data type indicator.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 118 && Invalid DIF Character
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to APPEND FROM a DIF file that contains an invalid
character. This could possibly be caused by the presence of a
control character in the DIF file.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 119 && Invalid SYLK File Header
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to APPEND FROM a SYLK file that has an invalid file
header.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 120 && Invalid SYLK File Dimension Bounds
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to APPEND FROM a SYLK file that contains one or more
data items which are indicated to be outside the specified bounds
of the file.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 121 && Invalid SYLK File Format
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to APPEND FROM a SYLK file that was either not
created by MultiPlan or that has somehow been corrupted.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 122 && Data Catalog has not been established
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to use the catalog query(?) clause as part of a
command line when there was no catalog engaged. Use SET CATALOG TO
to open a catalog before using the catalog query clause in command
syntax.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 123 && Invalid printer port
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to SET PRINTER TO an operating system device that
does not exist. Check your operating system manual for a list of
valid printer device names.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 124 && Invalid printer redirection
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to use the SET PRINTER TO \\ syntax in order to
spool output to the network printer, and the printer you specified
does not exist.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 125 && Printer not ready
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to print when the printer was not connected, not on
line, or not turned on. You will be given the opportunity to
rectify the problem and retry the command, to abort the command,
or to ignore the error. The only safe way to recover from this
problem is to correct the printer problem and retry.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 126 && Printer is not installed on port
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to SET PRINTER TO an operating system device that
does not have a printer installed.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 127 && Not a valid VIEW file
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to SET VIEW TO or MODIFY VIEW using an invalid VIEW
file. The VIEW file has probably been corrupted and should be
recreated using CREATE VIEW FROM ENVIRONMENT or CREATE VIEW. The
database and other files in the view are still intact.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 128 && Unable to Skip
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to SKIP to a record that is locked by another user.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 129 && Unable to Lock
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
In full-screen mode, you attempted to lock a record using Ctrl-O
that was already locked by another user.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 130 && Record is not locked
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to update a record that is not locked.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 131 && Database is encrypted
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
In single-user dBASE III PLUS, you attempted to USE a database
file that was encrypted using the multi-user version. In
multi-user dBASE III PLUS, you attempted to USE an encrypted
database file without the proper authorization.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 132 && Unauthorized login
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You entered an invalid login sequence three times in a row.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 133 && Unauthorized access level
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to access a field or file with an access level that
does not match your own.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 134 && Not a valid QUERY file
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to SET FILTER TO an invalid QUERY file. The QUERY
file has probably been corrupted and should be recreated use
CREATE QUERY.
endtext
?
wait to mpause
release module savescr
Return
case error() = 135 &&
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
No explanation of error code available at this time
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 136 && Unsupported path given
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
You attempted to CREATE a database file using the "../" as the
path name.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
case error() = 137 && Maximum record length exceeded
?
? "Error Code# : "+ltrim(choice)+" "+Message()
?
text
In CREATE or MODIFY STRUCTURE, you attempted to add a field to a
database file that already has 128 fields.
endtext
?
wait to mpause
call savescr with 'r5'
release module savescr
return
endcase
call savescr with 'r5'
Set Talk On
Set Echo On
enddo
* EOF Error.Prg