home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / debug / error / error.prg next >
Encoding:
Text File  |  1988-10-30  |  61.1 KB  |  1,935 lines
  1. * BOF Error.Prg
  2. *
  3. *   Written by: Michael C. Liuzunie
  4. *         Date: 06/28/88
  5. * Voice Number: (707) 762 - 4559
  6. *
  7. * Information:
  8. *
  9. * All error codes and descriptions of errors were taken directly from the
  10. * dBASE III PLUS Version 1.0 Manual.  
  11. *
  12. * As I do not posses all possible equipment configurations, testing of this
  13. * program is incomplete. If you find error's in this program please either
  14. * leave mail for me on the Forum Board or leave a voice message at the number
  15. * listed above.   
  16. *
  17. * This program is packaged with a utility from the Ashton-Tate
  18. * Programmers Utility package "Savescr.Bin".
  19. *
  20. * As with anything new to your system; Use with caution and at you own risk!
  21. *
  22. * Instructions:
  23. *
  24. * Place this file "Error.Prg" and the accompanying file "SaveScr.Bin" either
  25. * in the same directory as your dBASE III PLUS programs or in a separate
  26. * directory specified in your config.db path.  
  27. *
  28. * To activate this error trapping file,
  29. * *****************> Issue the command: On Error Do Error
  30. *
  31. * Please feel free to distribute this package as a complete,
  32. * un-modified unit. Thank You.
  33. *
  34. * Purpose:
  35. *
  36. * Error trapping routing to aid in debugging coding.  
  37. * Supplies error messages and explanations of error's as per the manual.  
  38. * SaveScr is a Ashton Tate Utility found in the
  39. * dBASE III PLUS Programmers Utilitits Software Package.
  40. *
  41. *
  42. Set Echo Off
  43. Set Talk Off
  44. Merror  = error()       && Numeric Value of Error Code
  45. MPAUSE = ""             && Character of Key Pressed to Stop Wait.  
  46. CHOICE = ""             && Choice is set to nul
  47. CHOICE = str(merror)    && Set choice to Error Code Value
  48. load Savescr            && load file from disk, Include full path name.  
  49. CALL SaveScr with 's5'  && dBASE III Utilities, Save Screen Utility
  50. CLEAR
  51. do while val(choice) > 0
  52. ? "       Please Wait......"
  53. do case
  54. case error() = 1  && File does not exist
  55.          ?
  56.          ? " Error Code# : " + ltrim(choice) + "    "  + message()
  57.          ?
  58.          text
  59.          You attempted to open a file that does not exist.
  60.          endtext
  61.          ?
  62.          wait to mpause
  63.          call savescr with 'r5'
  64.          release module savescr
  65.          return
  66. case error() = 2 && Unassigned file no.
  67.          ?
  68.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  69.          ?
  70.          text
  71.          There is a problem with the dBASE III PLUS system. Make a new
  72.          working copy of dBASE III PLUS from you master disk. If you still
  73.          get the error, contact Ashton-Tate Software Support.
  74.          endtext
  75.          ?
  76.          wait to mpause
  77.          call savescr with 'r5'
  78.          release module savescr
  79.          return
  80. case error() = 3 && File is already open
  81.          ?
  82.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  83.          ?
  84.          text
  85.          You attempted to open a file that is already open.
  86.          endtext
  87.          ?
  88.          wait to mpause
  89.          call savescr with 'r5'
  90.          release module savescr
  91.          return
  92. case error() = 4 && End-of-file encountered
  93.          ?
  94.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  95.          ?
  96.          text
  97.          You attempted to move the record pointer past the end of the
  98.          database in USE. Four main conditions cause this error:
  99.  
  100.          APPEND FROM, UPDATE FROM, USE
  101.  
  102.          You opened a database containing an incomplete structure.
  103.  
  104.          FIND, SEEK
  105.  
  106.          You executed a FIND or SEEK command on a corrupted or incomplete
  107.          index.
  108.  
  109.          MODIFY LABEL/REPORT, LABEL/REPORT FORM
  110.  
  111.          You opened a LABEL/REPORT FORM file that has an incomplete
  112.          structure, or the database file structure is corrupted.
  113.  
  114.          SKIP
  115.  
  116.          You SKIPped past the last record in the database file.
  117.          endtext
  118.          ?
  119.          wait to mpause
  120.          call savescr with 'r5'
  121.          release module savescr
  122.          return
  123. case error() = 5 && Record is out of range
  124.          ?
  125.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  126.          ?
  127.          text
  128.          You attempted to position the record pointer to a record number
  129.          greater than the number of records in the database.
  130.          endtext
  131.          ?
  132.          wait to mpause
  133.          call savescr with 'r5'
  134.          release module savescr
  135.          return
  136. case error() = 6 && Too many files are open
  137.          ?
  138.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  139.          ?
  140.          text
  141.          You attempted to open more than 15 files. This condition can also
  142.          be caused when the DOS configuration file, Config.sys, which
  143.          contains the clause FILES=20, is not in the root directory of the
  144.          boot disk.
  145.          endtext
  146.          ?
  147.          wait to mpause
  148.          call savescr with 'r5'
  149.          release module savescr
  150.          return
  151. case error() = 7 && File already exists
  152.          ?
  153.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  154.          ?
  155.          text
  156.          You attempted to RENAME a file TO the name of a file that already
  157.          exists on the disk.
  158.          endtext
  159.          ?
  160.          wait to mpause
  161.          call savescr with 'r5'
  162.          release module savescr
  163.          return
  164. case error() = 8 && Unbalanced parenthesis
  165.          ?
  166.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  167.          ?
  168.          text
  169.          You defined an expression with an unequal number of opposing
  170.          parentheses. In CREATE/MODIFY QUERY, you have Added or Removed a
  171.          parenthesis using the Nest pull-down menu, and you neglected to Add
  172.          or Remove the corresponding parenthesis.
  173.          endtext
  174.          ?
  175.          wait to mpause
  176.          call savescr with 'r5'
  177.          release module savescr
  178.          return
  179. case error() = 9 && Data type mismatch
  180.          ?
  181.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  182.          ?
  183.          text
  184.          You attempted an operation with conflicting data types. Some of
  185.          the conditions that cause this error message to occur are
  186.          summarized below under the headings: EXPRESSIONS, REPLACE, SEEK,
  187.          and SORT.
  188.  
  189.          EXPRESSIONS
  190.          You tried to REPLACE a field with an expression of a different
  191.          data type.
  192.  
  193.          SEEK
  194.          You used the SEEK command with an expression that does not
  195.          evaluate as the same data type as the active index key.
  196.  
  197.          SORT
  198.          You attempted to SORT on a logical or memo field.
  199.          ?
  200.          endtext
  201.          wait to mpause
  202.          call savescr with 'r5'
  203.          release module savescr
  204.          return
  205. case error() = 10 && Syntax error
  206.          ?
  207.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  208.          ?
  209.          text
  210.          You attempted to execute a command that does not have the proper
  211.          syntactical construction. This is often a misspelled word.
  212.          endtext
  213.          ?
  214.          wait to mpause
  215.          call savescr with 'r5'
  216.          release module savescr
  217.          return
  218. case error() = 11 && Invalid function argument
  219.          ?
  220.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  221.          ?
  222.          text
  223.          The expression you used as the argument to the function is not the
  224.          correct input data type for that function.
  225.          endtext
  226.          ?
  227.          wait to mpause
  228.          call savescr with 'r5'
  229.          release module savescr
  230.          return
  231. case error() = 12 && Variable not found
  232.          ?
  233.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  234.          ?
  235.          text
  236.          You specified a non-existent memory variable or a variable name
  237.          that is not a field in the currently selected work area or the
  238.          work area specified by an alias.
  239.          endtext
  240.          ?
  241.          wait to mpause
  242.          call savescr with 'r5'
  243.          release module savescr
  244.          return
  245. case error() = 13 && ALIAS not found
  246.          ?
  247.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  248.          ?
  249.          text
  250.          You attempted to either SELECT a database area that is outside the
  251.          range of A through J, or to use an ALIAS that has not been
  252.          defined.
  253.          endtext
  254.          ?
  255.          wait to mpause
  256.          call savescr with 'r5'
  257.          release module savescr
  258.          return
  259. case error() = 14 && No find
  260.          ?
  261.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  262.          ?
  263.          text
  264.          You attempted to execute a FIND or SEEK command with a key
  265.          expression that does not match any entry in the index file.
  266.          endtext
  267.          ?
  268.          wait to mpause
  269.          call savescr with 'r5'
  270.          release module savescr
  271.          return
  272. case error() = 15 && Not a dBASE database
  273.          ?
  274.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  275.          ?
  276.          text
  277.          You attempted to USE a file that either does not conform to the
  278.          dBASE III PLUS format or has a corrupted header record.
  279.          endtext
  280.          ?
  281.          wait to mpause
  282.          call savescr with 'r5'
  283.          release module savescr
  284.          return
  285. case error() = 16 && *** Unrecognized command verb
  286.          ?
  287.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  288.          ?
  289.          text
  290.          You specified a word at the beginning of a command line that is
  291.          not a valid dBASE III PLUS command.
  292.          endtext
  293.          ?
  294.          wait to mpause
  295.          call savescr with 'r5'
  296.          release module savescr
  297.          return
  298. case error() = 17 && Cannot select requested database
  299.          ?
  300.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  301.          ?
  302.          text
  303.          The work area you SELECTed is outside the range or one through
  304.          ten.
  305.          endtext
  306.          ?
  307.          wait to mpause
  308.          call savescr with 'r5'
  309.          release module savescr
  310.          return
  311. case error() = 18 && Line exceeds maximum of 254 characters
  312.          ?
  313.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  314.          ?
  315.          text
  316.          You specified a command that exceeds 254 characters in length
  317.          within a command (.PRG) or format(.FMT) file.
  318.          endtext
  319.          ?
  320.          wait to mpause
  321.          call savescr with 'r5'
  322.          release module savescr
  323.          return
  324. case error() = 19 && Index file does not match database
  325.          ?
  326.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  327.          ?
  328.          text
  329.          You attempted to open an index file whose key expression cannot be
  330.          related to the database in USE.
  331.          endtext
  332.          ?
  333.          wait to mpause
  334.          call savescr with 'r5'
  335.          release module savescr
  336.          return
  337. case error() = 20 && Record is not in index
  338.          ?
  339.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  340.          ?
  341.          text
  342.          You attempted to position the record pointer with GO/GOTO, or any
  343.          command using the RECORD phrase, to a record that is not in the
  344.          index file.
  345.          endtext
  346.          ?
  347.          wait to mpause
  348.          call savescr with 'r5'
  349.          release module savescr
  350.          return
  351. case error() = 21 && Out of memory variable memory
  352.          ?
  353.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  354.          ?
  355.          text
  356.          You exceeded the 6,000 byte limit of memory space allocated for
  357.          memory variables. You can extend this limit by changing the
  358.          MVARSIZ parameter in the Config.db file.
  359.          endtext
  360.          ?
  361.          wait to mpause
  362.          call savescr with 'r5'
  363.          release module savescr
  364.          return
  365. case error() = 22 && Out of memory variable slots
  366.          ?
  367.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  368.          ?
  369.          text
  370.          You attempted to initialize a memory variable with 256 memory
  371.          variables already active.
  372.          endtext
  373.          ?
  374.          wait to mpause
  375.          call savescr with 'r5'
  376.          release module savescr
  377.          return
  378. case error() = 23 && Index is too big (100 char maximum)
  379.          ?
  380.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  381.          ?
  382.          text
  383.          The result of the key expression you INDEXED ON exceeds the
  384.          maximum length of 100 characters. This limitation refers to the
  385.          actual length of the key when the expression is evaluated. For
  386.          example, the following key length is 60 characters long if both
  387.          fields have a width of 30 in the database file structure.
  388.  
  389.          INDEX ON First-name + Last-name TO Alpha.
  390.          endtext
  391.          ?
  392.          wait to mpause
  393.          call savescr with 'r5'
  394.          release module savescr
  395.          return
  396. case error() = 24 && ALIAS name already in use
  397.          ?
  398.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  399.          ?
  400.          text
  401.          You attempted to USE a database file that is already open, has the
  402.          same ALIAS, or has a name or ALIAS within the range A through J.
  403.          dBASE III PLUS uses A through J for default ALIASes.
  404.          endtext
  405.          ?
  406.          wait to mpause
  407.          call savescr with 'r5'
  408.          release module savescr
  409.          return
  410. case error() = 25 && Record not inserted
  411.          ?
  412.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  413.          ?
  414.          text
  415.          You aborted an INSERT command without adding the record.
  416.          endtext
  417.          ?
  418.          wait to mpause
  419.          call savescr with 'r5'
  420.          release module savescr
  421.          return
  422. case error() = 26 && Database is not indexed
  423.          ?
  424.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  425.          ?
  426.          text
  427.          You attempted to execute a FIND, SEEK, or UPDATE command on a
  428.          database file without an open index file, or attempted to SET
  429.          RELATION to a database file that is not indexed.
  430.          endtext
  431.          ?
  432.          wait to mpause
  433.          call savescr with 'r5'
  434.          release module savescr
  435.          return
  436. case error() = 27 && Not a numeric expression
  437.          ?
  438.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  439.          ?
  440.          text
  441.          You attempted to use an expression that is not a numeric type
  442.          where a numeric expression is required, such as in SUM, AVERAGE,
  443.          or DISPLAY NEXT.
  444.          endtext
  445.          ?
  446.          wait to mpause
  447.          call savescr with 'r5'
  448.          release module savescr
  449.          return
  450. case error() = 28 && Too many indices
  451.          ?
  452.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  453.          ?
  454.          text
  455.          You attempted to specify more than seven index files with either
  456.          the USE or the SET INDEX TO commands.
  457.          endtext
  458.          ?
  459.          wait to mpause
  460.          call savescr with 'r5'
  461.          release module savescr
  462.          return
  463. case error() = 29 && File is not accessible
  464.          ?
  465.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  466.          ?
  467.          text
  468.          You attempted to create a disk file when the directory was full or
  469.          when the filename contained one or more of the following invalid
  470.          characters: + " < > ? * [ ].
  471.          endtext
  472.          ?
  473.          wait to mpause
  474.          call savescr with 'r5'
  475.          release module savescr
  476.          return
  477. case error() = 30 && Position is off the screen
  478.          ?
  479.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  480.          ?
  481.          text
  482.          You attempted to execute a SAY/GET command at a column coordinate
  483.          outside the range of 0 to 79 or a row coordinate outside the range
  484.          of 0 to 24.
  485.          endtext
  486.          ?
  487.          wait to mpause
  488.          call savescr with 'r5'
  489.          release module savescr
  490.          return
  491. case error() = 31 && Invalid function name
  492.          ?
  493.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  494.          ?
  495.          text
  496.          You specified a function that dBASE III PLUS cannot recognize.
  497.          endtext
  498.          ?
  499.          wait to mpause
  500.          call savescr with 'r5'
  501.          release module savescr
  502.          return
  503. case error() = 32 &&
  504.          ?
  505.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  506.          ?
  507.          text
  508.          No error code available at this time
  509.          endtext
  510.          ?
  511.          wait to mpause
  512.          call savescr with 'r5'
  513.          release module savescr
  514.          return
  515. case error() = 33 && Structure invalid
  516.          ?
  517.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  518.          ?
  519.          text
  520.          You attempted to execute the CREATE FROM command when the
  521.          structure defined in the structure-extended file is not valid.  
  522.          endtext
  523.          ?
  524.          wait to mpause
  525.          call savescr with 'r5'
  526.          release module savescr
  527.          return
  528. case error() = 34 && Operation with Memo field invalid
  529.          ?
  530.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  531.          ?
  532.          text
  533.          You attempted either to SORT or INDEX on a memo field, or to
  534.          assign a MEMO field to a variable.
  535.          endtext
  536.          ?
  537.          wait to mpause
  538.          call savescr with 'r5'
  539.          release module savescr
  540.          return
  541. case error() = 35 && Unterminated string
  542.          ?
  543.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  544.          ?
  545.          text
  546.          You specified a string expression without a terminating delimiter.
  547.          The valid delimiters are single quotes, double quotes, and square
  548.          brackets
  549.          endtext
  550.          ?
  551.          wait to mpause
  552.          call savescr with 'r5'
  553.          release module savescr
  554.          return
  555. case error() = 36 && Unrecognized phrase/keyword in command
  556.          ?
  557.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  558.          ?
  559.          text
  560.          You specified a phrase beginning with an invalid keyword.
  561.          endtext
  562.          ?
  563.          wait to mpause
  564.          call savescr with 'r5'
  565.          release module savescr
  566.          return
  567. case error() = 37 && Not a Logical expression
  568.          ?
  569.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  570.          ?
  571.          text
  572.          You attempted to use an expression that is not a logical type
  573.          where a logical expression is required, such as in a FOR/WHILE
  574.          clause.
  575.          endtext
  576.          ?
  577.          wait to mpause
  578.          call savescr with 'r5'
  579.          release module savescr
  580.          return
  581. case error() = 38 && Beginning of file encountered
  582.          ?
  583.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  584.          ?
  585.          text
  586.          You positioned the record pointer before the first record in the
  587.          file.
  588.          endtext
  589.          call savescr with 'r5'
  590.          release module savescr
  591.          return
  592. case error() = 39 && Numeric overflow (data was lost)
  593.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  594.          ?
  595.          text
  596.          Numeric overflow is a condition that happens when a mathematical
  597.          operation results in a number too large to be stored in the field
  598.          or variable in which it is placed. The two common conditions that
  599.          cause this are explained under the headings, REPLACE and TOTAL.
  600.  
  601.          REPLACE:
  602.          You attempted to REPLACE a numeric field WITH an expression that
  603.          is too large.
  604.  
  605.          TOTAL:
  606.          You specified numeric fields that are too small to accommodate the
  607.          resultant totals when TOTALing the database.
  608.          endtext
  609.          ?
  610.          wait to mpause
  611.          call savescr with 'r5'
  612.          release module savescr
  613.          return
  614. case error() = 40 &&
  615.          ?
  616.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  617.          ?
  618.          text
  619.          No explanation of error available at this time.
  620.          endtext
  621.          ?
  622.          wait to mpause
  623.          call savescr with 'r5'
  624.          release module savescr
  625.          return
  626. case error() = 41 && .DBT file cannot be opened
  627.          ?
  628.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  629.          ?
  630.          text
  631.          You attempted to USE a database file containing a memo field when
  632.          dBASE III PLUS cannot find the .dbt file containing the memo field
  633.          text. If you cannot find this file either, you must create the
  634.          file in ASCII format with a .dbt extension before dBASE III PLUS
  635.          will allow you to access the database file.
  636.          endtext
  637.          ?
  638.          wait to mpause
  639.          call savescr with 'r5'
  640.          release module savescr
  641.          return
  642. case error() = 42 && CONTINUE without LOCATE
  643.          ?
  644.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  645.          ?
  646.          text
  647.          You attempted to execute a CONTINUE command without first
  648.          executing a LOCATE command.
  649.          endtext
  650.          ?
  651.          wait to mpause
  652.          call savescr with 'r5'
  653.          release module savescr
  654.          return
  655. case error() = 43 && Insufficient memory
  656.          ?
  657.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  658.          ?
  659.          text
  660.          You attempted to load dBASE III PLUS on a machine with less than
  661.          256K of available RAM. Some of the conditions that cause this
  662.          message to be displayed:
  663.  
  664.          @....GET
  665.          You exceeded the maximum number or 128 GETS without issuing either
  666.          a CLEAR GETS or a CLEAR.
  667.  
  668.          RUN, TEDIT, WP
  669.          You attempted to RUN an external program with insufficient memory,
  670.          The amount of memory required is MAXMEM is 256K unless changed in
  671.          Config.db.
  672.  
  673.          LOAD
  674.          You attempted to LOAD a file larger than the amount of available
  675.          memory.
  676.          endtext
  677.          ?
  678.          wait to mpause
  679.          call savescr with 'r5'
  680.          release module savescr
  681.          return
  682. case error() = 44 && Cyclic relation
  683.          ?
  684.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  685.          ?
  686.          text
  687.          You created an endless cycle by SETing RELATION INTO a database
  688.          that relates back to the currently selected database. An example
  689.          of this situation occurs when you have three databases (A,B, and
  690.          C), and A relates to B, B to C, and C to A. SET RELATION, without
  691.          any parameters, disconnects all relations from the currently
  692.          selected work area.
  693.          endtext
  694.          ?
  695.          wait to mpause
  696.          call savescr with 'r5'
  697.          release module savescr
  698.          return
  699. case error() = 45 && Not a character expression
  700.          ?
  701.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  702.          ?
  703.          text
  704.          You attempted to use an expression that is not a character type
  705.          where a character expression is required.
  706.          endtext
  707.          ?
  708.          wait to mpause
  709.          call savescr with 'r5'
  710.          release module savescr
  711.          return
  712. case error() = 46 && Illegal value
  713.          ?
  714.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  715.          ?
  716.          text
  717.          In full-screen SET, you pressed the ESC key instead of entering a
  718.          number when setting either decimals or the report margin.
  719.          endtext
  720.          ?
  721.          wait to mpause
  722.          call savescr with 'r5'
  723.          release module savescr
  724.          return
  725. case error() = 47 && No fields to process
  726.          ?
  727.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  728.          ?
  729.          text
  730.          In ASSIST, you attempted to SUM or AVERAGE a database file that
  731.          has no numeric fields.
  732.          endtext
  733.          ?
  734.          wait to mpause
  735.          call savescr with 'r5'
  736.          release module savescr
  737.          return
  738. case error() = 48 && field not found
  739.          ?
  740.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  741.          ?
  742.          text
  743.          While in BROWSE, you attempted to FREEZE a field that does not
  744.          exist.
  745.          endtext
  746.          ?
  747.          wait to mpause
  748.          call savescr with 'r5'
  749.          release module savescr
  750.          return
  751. case error() = 49 &&
  752.          ?
  753.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  754.          ?
  755.          text
  756.          No explanation of error message available at this time
  757.          endtext
  758.          ?
  759.          wait to mpause
  760.          call savescr with 'r5'
  761.          release module savescr
  762.          return
  763. case error() = 50 && Report file invalid
  764.          ?
  765.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  766.          ?
  767.          text
  768.          You attempted to run a REPORT FORM (.FRM) file that was not
  769.          created by CREATE or MODIFY REPORT.
  770.          endtext
  771.          ?
  772.          wait to mpause
  773.          call savescr with 'r5'
  774.          release module savescr
  775.          return
  776. case error() = 51 && End-of-file or error on keyboard input
  777.          ?
  778.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  779.          ?
  780.          text
  781.          The file you used to simulate keyboard input (accomplished with
  782.          the DOS Set Environment Command) is corrupted.
  783.          endtext
  784.          ?
  785.          wait to mpause
  786.          call savescr with 'r5'
  787.          release module savescr
  788.          return
  789. case error() = 52 && No database is in USE. Enter file name:
  790.          ?
  791.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  792.          ?
  793.          text
  794.          You specified a command that requires a database file to be open
  795.          in the current work area.
  796.          endtext
  797.          ?
  798.          wait to mpause
  799.          call savescr with 'r5'
  800.          release module savescr
  801.          return
  802. case error() = 53 && There are no files of the type requested on this drive
  803.          ?
  804.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  805.          ?
  806.          text
  807.          In ASSIST, SET, or other menu-driven command, you selected a menu
  808.          option that requests a submenu containing all files of a
  809.          particular type, and there are no files of that type on the
  810.          default drive and directory. For example, selecting the Database
  811.          File option in the Set-Up menu when there are no database files
  812.          will cause this message in The Assistant.
  813.          endtext
  814.          ?
  815.          wait to mpause
  816.          call savescr with 'r5'
  817.          release module savescr
  818.          return
  819. case error() = 54 && Label file invalid
  820.          ?
  821.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  822.          ?
  823.          text
  824.          You ran or modified a LABEL file (.LBL) not created with the
  825.          CREATE/MODIFY LABEL commands.
  826.          endtext
  827.          ?
  828.          wait to mpause
  829.          call savescr with 'r5'
  830.          release module savescr
  831.          return
  832. case error() = 55 && Memory Variable file is invalid
  833.          ?
  834.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  835.          ?
  836.          text
  837.          You RESTORed FROM a file that is not a valid memory (.MEM) file.
  838.          endtext
  839.          ?
  840.          wait to mpause
  841.          call savescr with 'r5'
  842.          release module savescr
  843.          return
  844. case error() = 56 && Disk full when writing file: <filename>
  845.          ?
  846.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  847.          ?
  848.          text
  849.          You attempted to write to a disk that has no more space available.
  850.          endtext
  851.          ?
  852.          wait to mpause
  853.          call savescr with 'r5'
  854.          release module savescr
  855.          return
  856. case error() = 57 && *** execution error on CHR() :Out of range
  857.          ?
  858.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  859.          ?
  860.          text
  861.          You used a number less than zero or greater than 255 as the
  862.          argument in the CHR() function.
  863.          endtext
  864.          ?
  865.          wait to mpause
  866.          call savescr with 'r5'
  867.          release module savescr
  868.          return
  869. case error() = 58 && *** Execution error on LOG() :Zero or negative
  870.          ?
  871.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  872.          ?
  873.          text
  874.          You used a number less than or equal to zero as the argument in
  875.          the logarithm function.
  876.          endtext
  877.          ?
  878.          wait to mpause
  879.          call savescr with 'r5'
  880.          release module savescr
  881.          return
  882. case error() = 59 && *** Execution error on SPACE() :Too Large
  883.          ?
  884.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  885.          ?
  886.          text
  887.          You used the SPACE() function with an argument that is greater
  888.          than 254.
  889.          endtext
  890.          ?
  891.          wait to mpause
  892.          call savescr with 'r5'
  893.          release module savescr
  894.          return
  895. case error() = 60 && *** Execution error on SPACE() :Negative
  896.          ?
  897.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  898.          ?
  899.          text
  900.          You used the SPACE() function with a negative argument.
  901.          endtext
  902.          ?
  903.          wait to mpause
  904.          call savescr with 'r5'
  905.          release module savescr
  906.          return
  907. case error() = 61 && *** Execution error on SQRT() :Negative
  908.          ?
  909.          ? "Error Code# : "+ltrim(choice)+"     "+message()
  910.          ?
  911.          text
  912.          You used a negative number as the argument in the square root
  913.          function.
  914.          endtext
  915.          ?
  916.          wait to mpause
  917.          call savescr with 'r5'
  918.          release module savescr
  919.          return
  920. case error() = 62 && *** Execution error on SUBSTR() :Start point out of ra
  921.          ?
  922.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  923.          ?
  924.          text
  925.          You attempted to extract a substring from a character string where
  926.          the starting position argument of the substring function is
  927.          greater than the length of the string.
  928.          endtext
  929.          ?
  930.          wait to mpause
  931.          call savescr with 'r5'
  932.          release module savescr
  933.          return
  934. case error() = 63 && *** Execution error on STR() :Out of range
  935.          ?
  936.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  937.          ?
  938.          text
  939.          You specified a STR expression in which the length parameter
  940.          exceeds 19 digits or the decimal parameter exceeds the length
  941.          minus two.
  942.          endtext
  943.          ?
  944.          wait to mpause
  945.          call savescr with 'r5'
  946.          release module savescr
  947.          return
  948. case error() = 64 &&
  949.          ?
  950.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  951.          ?
  952.          text
  953.          No explanation of error message avaliable at this time
  954.          endtext
  955.          ?
  956.          wait to mpause
  957.          call savescr with 'r5'
  958.          release module savescr
  959.          return
  960. case error() = 65 && Internal error: Unknown command code:
  961.          ?
  962.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  963.          ?
  964.          text
  965.          There is a problem with the dBASE III PLUS system. Make a new
  966.          working copy of dBASE III PLUS from you master disk. If you still
  967.          get the error, contact Ashton-Tate Technical Support.
  968.          endtext
  969.          ?
  970.          wait to mpause
  971.          call savescr with 'r5'
  972.          release module savescr
  973.          return
  974. case error() = 66 && Internal error: CMDSET():
  975.          ?
  976.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  977.          ?
  978.          text
  979.          There is a problem with the dBASE III PLUS system. Make a new
  980.          working copy of dBASE III PLUS from you master disk. If you still
  981.          get the error, contact Ashton-Tate Technical Support.
  982.          endtext
  983.          ?
  984.          wait to mpause
  985.          call savescr with 'r5'
  986.          release module savescr
  987.          return
  988. case error() = 67 && Internal error: EVAL work area overflow
  989.          ?
  990.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  991.          ?
  992.          text
  993.          You attempted to use an expression that is overly complex and may
  994.          not be possible.
  995.          endtext
  996.          ?
  997.          wait to mpause
  998.          call savescr with 'r5'
  999.          release module savescr
  1000.          return
  1001. case error() = 68 && Internal error: Illegal opcode
  1002.          ?
  1003.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1004.          ?
  1005.          text
  1006.          there is a problem with the dBASE III PLUS system. Make a new
  1007.          working copy of dBASE III PLUS from you master disk. If you still
  1008.          get the error, contact Ashton-Tate Technical Support.
  1009.  
  1010.          This error might also occur during execution of an extremely
  1011.          complex expression to about 150 to 200 terms.
  1012.          endtext
  1013.          ?
  1014.          wait to mpause
  1015.          call savescr with 'r5'
  1016.          release module savescr
  1017.          return
  1018. case error() =  69 &&
  1019.          ?
  1020.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1021.          ?
  1022.          text
  1023.          No explanation of error message available at this time.
  1024.          endtext
  1025.          ?
  1026.          wait to mpause
  1027.          call savescr with 'r5'
  1028.          release module savescr
  1029.          return
  1030. case error() = 70 && ** WARNING ** Data will probably be lost. Confirm (Y/N)
  1031.          ?
  1032.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1033.          ?
  1034.          text
  1035.          You selected the abort option at a "disk full" message.
  1036.          endtext
  1037.          ?
  1038.          wait to mpause
  1039.          call savescr with 'r5'
  1040.          release module savescr
  1041.          return
  1042. case error() = 71 &&
  1043.          ?
  1044.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1045.          ?
  1046.          text
  1047.          No explanation of error message at this time
  1048.          endtext
  1049.          ?
  1050.          wait to mpause
  1051.          call savescr with 'r5'
  1052.          release module savescr
  1053.          return
  1054. case error() = 72 && ALTERNATE could not be opened
  1055.          ?
  1056.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1057.          ?
  1058.          text
  1059.          The ALTERNATE file specified in Config.db could not be opened
  1060.          because of insufficient directory space or invalid filename.
  1061.          endtext
  1062.          ?
  1063.          wait to mpause
  1064.          call savescr with 'r5'
  1065.          release module savescr
  1066.          return
  1067. case error() = 73 && ^^Expected ON or OFF
  1068.          ?
  1069.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1070.          ?
  1071.          text
  1072.          You set a Config.db ON/OFF parameter to something other than ON or
  1073.          OFF.
  1074.          endtext
  1075.          ?
  1076.          wait to mpause
  1077.          call savescr with 'r5'
  1078.          release module savescr
  1079.          return
  1080. case error() = 74 && ^---Truncated
  1081.          ?
  1082.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1083.          ?
  1084.          text
  1085.          You created a command line in Config.db that is too long and was
  1086.          therefore truncated.
  1087.          endtext
  1088.          ?
  1089.          wait to mpause
  1090.          call savescr with 'r5'
  1091.          release module savescr
  1092.          return
  1093. case error() = 75 && ^--- Out of range
  1094.          ?
  1095.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1096.          ?
  1097.          text
  1098.          In the Config.db file, you specified a parameter that is not
  1099.          within the allowable range. See Appendix B for the range of
  1100.          allowable values.
  1101.          endtext
  1102.          ?
  1103.          wait to mpause
  1104.          call savescr with 'r5'
  1105.          release module savescr
  1106.          return
  1107. case error() = 76 && *** Execution error on - :Concatenated string too larg
  1108.          ?
  1109.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1110.          ?
  1111.          text
  1112.          You attempted to concatenate a string with a resultant length
  1113.          greater than the maximum or 254 characters
  1114.          endtext
  1115.          ?
  1116.          wait to mpause
  1117.          call savescr with 'r5'
  1118.          release module savescr
  1119.          return
  1120. case error() = 77 && *** execution error on + :Concatenated string too larg
  1121.          ?
  1122.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1123.          ?
  1124.          text
  1125.          You attempted to concatenate a string with a resultant length
  1126.          greater than the maximum or 254 characters.
  1127.          endtext
  1128.          ?
  1129.          wait to mpause
  1130.          call savescr with 'r5'
  1131.          release module savescr
  1132.          return
  1133. case error() = 78 && *** Execution error on ^ or ** :Negative base, fractio
  1134.          ?
  1135.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1136.          ?
  1137.          text
  1138.          You attempted to raise a negative number to a power between zero
  1139.          and one.
  1140.          endtext
  1141.          ?
  1142.          wait to mpause
  1143.          call savescr with 'r5'
  1144.          release module savescr
  1145.          return
  1146. case error() = 79 && *** Execution error on STORE :String too large
  1147.          ?
  1148.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1149.          ?
  1150.          text
  1151.          You attempted to create a memory variable with more than the
  1152.          maximum of 254 characters.
  1153.          endtext
  1154.          ?
  1155.          wait to mpause
  1156.          call savescr with 'r5'
  1157.          release module savescr
  1158.          return
  1159. case error() = 80 &&
  1160.          ?
  1161.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1162.          ?
  1163.          text
  1164.          No explanation of error message avaliable at this time
  1165.          endtext
  1166.          ?
  1167.          wait to mpause
  1168.          call savescr with 'r5'
  1169.          release module savescr
  1170.          return
  1171. case error() = 81 && Invalid date (press SPACE)
  1172.          ?
  1173.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1174.          ?
  1175.          text
  1176.          You attempted to enter an invalid date into a date-type field or
  1177.          memory variable. Press the SPACEBAR to exit this condition.
  1178.          endtext
  1179.          ?
  1180.          wait to mpause
  1181.          call savescr with 'r5'
  1182.          release module savescr
  1183.          return
  1184. case error() = 82 && ** Not Found **
  1185.          ?
  1186.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1187.          ?
  1188.          text
  1189.          You specified a search string that cannot be found while using the
  1190.          FIND menu option in BROWSE.
  1191.          endtext
  1192.          ?
  1193.          wait to mpause
  1194.          call savescr with 'r5'
  1195.          release module savescr
  1196.          return
  1197. case error() = 83 &&
  1198.          ?
  1199.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1200.          ?
  1201.          text
  1202.          No explanation of error message avaliable at this time
  1203.          endtext
  1204.          ?
  1205.          wait to mpause
  1206.          call savescr with 'r5'
  1207.          release module savescr
  1208.          return
  1209. case error() = 84 &&
  1210.          ?
  1211.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1212.          ?
  1213.          text
  1214.          No explanation of error message avaliable at this time
  1215.          endtext
  1216.          ?
  1217.          wait to mpause
  1218.          call savescr with 'r5'
  1219.          release module savescr
  1220.          return
  1221. case error() = 85 &&
  1222.          ?
  1223.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1224.          ?
  1225.          text
  1226.          No explanation of error message available at this time
  1227.          endtext
  1228.          ?
  1229.          wait to mpause
  1230.          call savescr with 'r5'
  1231.          release module savescr
  1232.          return
  1233. case error() = 86 && ^_Keyword not found
  1234.          ?
  1235.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1236.          ?
  1237.          text
  1238.          There is an unrecognized word in Config.db.
  1239.          endtext
  1240.          ?
  1241.          wait to mpause
  1242.          call savescr with 'r5'
  1243.          release module savescr
  1244.          return
  1245. case error() = 87 && *** Execution error on NDX() :Invalid index number
  1246.          ?
  1247.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1248.          ?
  1249.          text
  1250.          You used a number less than one or greater than seven as the
  1251.          argument in the NDX() function.
  1252.          endtext
  1253.          ?
  1254.          wait to mpause
  1255.          call savescr with 'r5'
  1256.          release module savescr
  1257.          return
  1258. case error() = 88 && *** execution error on REPLICATE() :String too large
  1259.          ?
  1260.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1261.          ?
  1262.          text
  1263.          You attempted to create a string larger than 254 characters.
  1264.          endtext
  1265.          ?
  1266.          wait to mpause
  1267.          call savescr with 'r5'
  1268.          release module savescr
  1269.          return
  1270. case error() = 89 && Cannot erase a file which is open
  1271.          ?
  1272.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1273.          ?
  1274.          text
  1275.          You attempted to erase an open file. First close the file.
  1276.          endtext
  1277.          call savescr with 'r5'
  1278.          release module savescr
  1279.          return
  1280. case error() = 90 && Operation with Logical field invalid
  1281.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1282.          ?
  1283.          text
  1284.          You attempted to SORT or INDEX on a logical field.
  1285.          endtext
  1286.          ?
  1287.          wait to mpause
  1288.          call savescr with 'r5'
  1289.          release module savescr
  1290.          return
  1291. case error() = 91 && File was not LOADed
  1292.          ?
  1293.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1294.          ?
  1295.          text
  1296.          You attempted to LOAD a file that cannot be LOADed (zero length or
  1297.          not available), or you attempted to CALL or RELEASE a MODULE that
  1298.          has not been LOADed.
  1299.          endtext
  1300.          ?
  1301.          wait to mpause
  1302.          call savescr with 'r5'
  1303.          release module savescr
  1304.          return
  1305. case error() = 92 && Unable to load COMMAND.COM
  1306.          ?
  1307.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1308.          ?
  1309.          text
  1310.          Command.com was not on drive A or the drive specified by the DOS
  1311.          SET COMSPEC command when you:
  1312.  
  1313.          Issued the RUN/ command
  1314.  
  1315.          Executed MODIFY COMMAND or entered a memo field when an external
  1316.          word processor was assigned to TEDIT or WP in Config.db
  1317.          endtext
  1318.          ?
  1319.          wait to mpause
  1320.          call savescr with 'r5'
  1321.          release module savescr
  1322.          return
  1323. case error() = 93 && No PARAMETER statement found
  1324.          ?
  1325.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1326.          ?
  1327.          text
  1328.          You attempted to DO a command file or procedure WITH a parameter
  1329.          when there was no PARAMETER command as the first line in the
  1330.          command file or procedure.
  1331.          endtext
  1332.          ?
  1333.          wait to mpause
  1334.          call savescr with 'r5'
  1335.          release module savescr
  1336.          return
  1337. case error() = 94 && Wrong number of parameters
  1338.          ?
  1339.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1340.          ?
  1341.          text
  1342.          You incorrectly set the DO WITH command and the PARAMETERS command
  1343.          with an unequal number of parameters.
  1344.          endtext
  1345.          ?
  1346.          wait to mpause
  1347.          call savescr with 'r5'
  1348.          release module savescr
  1349.          return
  1350. case error() = 95 && Valid only in programs
  1351.          ?
  1352.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1353.          ?
  1354.          text
  1355.          You issued any of these commands at the dot prompt: CASE, DO CASE,
  1356.          DO WHILE, ELSE, ENDCASE, ENDDO, ENDIF, ENDTEXT, IF, LOOP,
  1357.          OTHERWISE, SUSPEND, or TEXT. These command are intended for dBASE
  1358.          III PLUS command files.
  1359.          endtext
  1360.          ?
  1361.          wait to mpause
  1362.          call savescr with 'r5'
  1363.          release module savescr
  1364.          return
  1365. case error() = 96 && Mismatched DO WHILE and ENDDO
  1366.          ?
  1367.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1368.          ?
  1369.          text
  1370.          dBASE III PLUS encountered an extra ENDDO in a command file.
  1371.          endtext
  1372.          ?
  1373.          wait to mpause
  1374.          call savescr with 'r5'
  1375.          release module savescr
  1376.          return
  1377. case error() = 97 &&
  1378.          ?
  1379.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1380.          ?
  1381.          text
  1382.          No explanation of error message at this time
  1383.          endtext
  1384.          ?
  1385.          wait to mpause
  1386.          call savescr with 'r5'
  1387.          release module savescr
  1388.          return
  1389. case error() = 98 &&
  1390.          ?
  1391.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1392.          ?
  1393.          text
  1394.          No explanation of error message at this time
  1395.          endtext
  1396.          ?
  1397.          wait to mpause
  1398.          call savescr with 'r5'
  1399.          release module savescr
  1400.          return
  1401. case error() = 99 && Invalid DOS SET option
  1402.          ?
  1403.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1404.          ?
  1405.          text
  1406.          You attempted to SET something that is not a valid DOS parameter.
  1407.          endtext
  1408.          ?
  1409.          wait to mpause
  1410.          call savescr with 'r5'
  1411.          release module savescr
  1412.          return
  1413. case error() = 100 &&
  1414.          ?
  1415.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1416.          ?
  1417.          text
  1418.          No explanation of error message at this time
  1419.          endtext
  1420.          ?
  1421.          wait to mpause
  1422.          call savescr with 'r5'
  1423.          release module savescr
  1424.          return
  1425. case error() = 101 && Not suspended
  1426.          ?
  1427.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1428.          ?
  1429.          text
  1430.          You issued the RESUME command when command file execution was not
  1431.          SUSPENDed.
  1432.          endtext
  1433.          ?
  1434.          wait to mpause
  1435.          call savescr with 'r5'
  1436.          release module savescr
  1437.          return
  1438. case error() = 102 && *** Execution error on STUFF() :String too large
  1439.          ?
  1440.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1441.          ?
  1442.          text
  1443.          You specified a STUFF expression which would have resulted in a
  1444.          string that exceeds the allowed maximum of 254 characters.
  1445.          endtext
  1446.          ?
  1447.          wait to mpause
  1448.          call savescr with 'r5'
  1449.          release module savescr
  1450.          return
  1451. case error() = 103 && DOs nested too deep
  1452.          ?
  1453.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1454.          ?
  1455.          text
  1456.          There is a maximum or 20 nested command files.
  1457.          endtext
  1458.          ?
  1459.          wait to mpause
  1460.          call savescr with 'r5'
  1461.          release module savescr
  1462.          return
  1463. case error() = 104 && Unknown function key
  1464.          ?
  1465.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1466.          ?
  1467.          text
  1468.          In SET FUNCTION, you specified a function key that does not match
  1469.          the name or number of an existing function key.
  1470.          endtext
  1471.          ?
  1472.          wait to mpause
  1473.          call savescr with 'r5'
  1474.          release module savescr
  1475.          return
  1476. case error() = 105 && Table is full
  1477.          ?
  1478.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1479.          ?
  1480.          text
  1481.          You attempted to LOAD more than the maximum of five files.
  1482.          Table is full
  1483.          endtext
  1484.          ?
  1485.          wait to mpause
  1486.          call savescr with 'r5'
  1487.          release module savescr
  1488.          return
  1489. case error() = 106 && Invalid index number
  1490.          ?
  1491.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1492.          ?
  1493.          text
  1494.          You attempted to SET ORDER TO a position in the index file list
  1495.          that is not occupied or that is out of the range or 0(Zero) to 7.
  1496.          endtext
  1497.          ?
  1498.          wait to mpause
  1499.          call savescr with 'r5'
  1500.          release module savescr
  1501.          return
  1502. case error() = 107 && Invalid operator
  1503.          ?
  1504.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1505.          ?
  1506.          text
  1507.          In attempting to specify a dBASE expression, you used an operator
  1508.          that is invalid for the data types used in the expression. For
  1509.          example, using the "/" operator to connect two character strings.
  1510.          endtext
  1511.          ?
  1512.          wait to mpause
  1513.          call savescr with 'r5'
  1514.          release module savescr
  1515.          return
  1516. case error() = 108 && File is in use by another
  1517.          ?
  1518.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1519.          ?
  1520.          text
  1521.          You attempted to open a file that is in EXCLUSIVE use by someone
  1522.          else, this can be a database file that was open with SET EXCLUSIVE
  1523.          ON or another file that is being accessed using a command that
  1524.          requires exclusive use of the file for its operation.
  1525.          endtext
  1526.          ?
  1527.          wait to mpause
  1528.          call savescr with 'r5'
  1529.          release module savescr
  1530.          return
  1531. case error() = 109 && Record is in use by another
  1532.          ?
  1533.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1534.          ?
  1535.          text
  1536.          You attempted to position the record pointer to a record that
  1537.          cannot be accessed because it is locked.
  1538.          endtext
  1539.          ?
  1540.          wait to mpause
  1541.          call savescr with 'r5'
  1542.          release module savescr
  1543.          return
  1544. case error() = 110 && Exclusive use on database is required
  1545.          ?
  1546.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1547.          ?
  1548.          text
  1549.          You attempted to execute a dBASE command that requires exclusive
  1550.          use of the database file for its operation. SET EXCLUSIVE ON, USE
  1551.          the database file, and try the command again.
  1552.          endtext
  1553.          ?
  1554.          wait to mpause
  1555.          call savescr with 'r5'
  1556.          release module savescr
  1557.          return
  1558. case error() = 111 && Cannot write to read only file
  1559.          ?
  1560.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1561.          ?
  1562.          text
  1563.          You attempted to write to a file that has the read/only attribute
  1564.          set. This attribute is set through the operating system.
  1565.          endtext
  1566.          ?
  1567.          wait to mpause
  1568.          call savescr with 'r5'
  1569.          release module savescr
  1570.          return
  1571. case error() = 112 && Index expression is too big (220 char maximum)
  1572.          ?
  1573.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1574.          ?
  1575.          text
  1576.          The key expression you INDEXed ON exceeds the maximum length of
  1577.          220 characters. This limitation refers to the number of characters
  1578.          in the key expression, rather than the actual length of the
  1579.          resultant key. For example the following key expression is 22
  1580.          characters long:
  1581.  
  1582.          INDEX ON First_name + Last_name TO Alpha
  1583.  
  1584.          That is, 10 characters for "First_name", 3 characters for the plus
  1585.          sign and spaces on either side, and 9 characters for "Last_name".
  1586.          The actual key length may be larger or smaller, depending on the
  1587.          length of the First_name and Last_name fields in the database file
  1588.          structure.
  1589.          endtext
  1590.          ?
  1591.          wait to mpause
  1592.          call savescr with 'r5'
  1593.          release module savescr
  1594.          return
  1595. case error() = 113 && Index interrupted. Index will be damaged if not comple
  1596.          ?
  1597.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1598.          ?
  1599.          text
  1600.          You pressed ESC during INDEX ON or REINDEX. This error message
  1601.          gives you the opportunity to continue or abandon the indexing
  1602.          process.
  1603.          endtext
  1604.          ?
  1605.          wait to mpause
  1606.          call savescr with 'r5'
  1607.          release module savescr
  1608.          return
  1609. case error() = 114 && Index damaged. REINDEX should be done before using dat
  1610.          ?
  1611.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1612.          ?
  1613.          text
  1614.          You attempted to engage an index file and the indexing process for
  1615.          that file was previously interrupted by pressing ESC.
  1616.          endtext
  1617.          ?
  1618.          wait to mpause
  1619.          call savescr with 'r5'
  1620.          release module savescr
  1621.          return
  1622. case error() = 115 && Invalid DIF File Header
  1623.          ?
  1624.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1625.          ?
  1626.          text
  1627.          You attempted to APPEND FROM a DIF file that contains an invalid
  1628.          file header.
  1629.          endtext
  1630.          ?
  1631.          wait to mpause
  1632.          call savescr with 'r5'
  1633.          release module savescr
  1634.          return
  1635. case error() = 116 &&
  1636.          ?
  1637.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1638.          ?
  1639.          text
  1640.          No explanation of error code at this time
  1641.          endtext
  1642.          ?
  1643.          wait to mpause
  1644.          call savescr with 'r5'
  1645.          release module savescr
  1646.          return
  1647. case error() = 117 && Invalid DIF Type Indicator
  1648.          ?
  1649.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1650.          ?
  1651.          text
  1652.          You attempted to APPEND FROM a DIF file that contains an incorrect
  1653.          data type indicator.
  1654.          endtext
  1655.          ?
  1656.          wait to mpause
  1657.          call savescr with 'r5'
  1658.          release module savescr
  1659.          return
  1660. case error() = 118 && Invalid DIF Character
  1661.          ?
  1662.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1663.          ?
  1664.          text
  1665.          You attempted to APPEND FROM a DIF file that contains an invalid
  1666.          character. This could possibly be caused by the presence of a
  1667.          control character in the DIF file.
  1668.          endtext
  1669.          ?
  1670.          wait to mpause
  1671.          call savescr with 'r5'
  1672.          release module savescr
  1673.          return
  1674. case error() = 119 && Invalid SYLK File Header
  1675.          ?
  1676.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1677.          ?
  1678.          text
  1679.          You attempted to APPEND FROM a SYLK file that has an invalid file
  1680.          header.
  1681.          endtext
  1682.          ?
  1683.          wait to mpause
  1684.          call savescr with 'r5'
  1685.          release module savescr
  1686.          return
  1687. case error() = 120 && Invalid SYLK File Dimension Bounds
  1688.          ?
  1689.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1690.          ?
  1691.          text
  1692.          You attempted to APPEND FROM a SYLK file that contains one or more
  1693.          data items which are indicated to be outside the specified bounds
  1694.          of the file.
  1695.          endtext
  1696.          ?
  1697.          wait to mpause
  1698.          call savescr with 'r5'
  1699.          release module savescr
  1700.          return
  1701. case error() = 121 && Invalid SYLK File Format
  1702.          ?
  1703.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1704.          ?
  1705.          text
  1706.          You attempted to APPEND FROM a SYLK file that was either not
  1707.          created by MultiPlan or that has somehow been corrupted.
  1708.          endtext
  1709.          ?
  1710.          wait to mpause
  1711.          call savescr with 'r5'
  1712.          release module savescr
  1713.          return
  1714. case error() = 122 && Data Catalog has not been established
  1715.          ?
  1716.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1717.          ?
  1718.          text
  1719.          You attempted to use the catalog query(?) clause as part of a
  1720.          command line when there was no catalog engaged. Use SET CATALOG TO
  1721.          to open a catalog before using the catalog query clause in command
  1722.          syntax.
  1723.          endtext
  1724.          ?
  1725.          wait to mpause
  1726.          call savescr with 'r5'
  1727.          release module savescr
  1728.          return
  1729. case error() = 123 && Invalid printer port
  1730.          ?
  1731.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1732.          ?
  1733.          text
  1734.          You attempted to SET PRINTER TO an operating system device that
  1735.          does not exist. Check your operating system manual for a list of
  1736.          valid printer device names.
  1737.          endtext
  1738.          ?
  1739.          wait to mpause
  1740.          call savescr with 'r5'
  1741.          release module savescr
  1742.          return
  1743. case error() = 124 && Invalid printer redirection
  1744.          ?
  1745.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1746.          ?
  1747.          text
  1748.          You attempted to use the SET PRINTER TO \\ syntax in order to
  1749.          spool output to the network printer, and the printer you specified
  1750.          does not exist.
  1751.          endtext
  1752.          ?
  1753.          wait to mpause
  1754.          call savescr with 'r5'
  1755.          release module savescr
  1756.          return
  1757. case error() = 125 && Printer not ready
  1758.          ?
  1759.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1760.          ?
  1761.          text
  1762.          You attempted to print when the printer was not connected, not on
  1763.          line, or not turned on. You will be given the opportunity to
  1764.          rectify the problem and retry the command, to abort the command,
  1765.          or to ignore the error. The only safe way to recover from this
  1766.          problem is to correct the printer problem and retry.
  1767.          endtext
  1768.          ?
  1769.          wait to mpause
  1770.          call savescr with 'r5'
  1771.          release module savescr
  1772.          return
  1773. case error() = 126 && Printer is not installed on port
  1774.          ?
  1775.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1776.          ?
  1777.          text
  1778.          You attempted to SET PRINTER TO an operating system device that
  1779.          does not have a printer installed.
  1780.          endtext
  1781.          ?
  1782.          wait to mpause
  1783.          call savescr with 'r5'
  1784.          release module savescr
  1785.          return
  1786. case error() = 127 && Not a valid VIEW file
  1787.          ?
  1788.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1789.          ?
  1790.          text
  1791.          You attempted to SET VIEW TO or MODIFY VIEW using an invalid VIEW
  1792.          file. The VIEW file has probably been corrupted and should be
  1793.          recreated using CREATE VIEW FROM ENVIRONMENT or CREATE VIEW. The
  1794.          database and other files in the view are still intact.
  1795.          endtext
  1796.          ?
  1797.          wait to mpause
  1798.          call savescr with 'r5'
  1799.          release module savescr
  1800.          return
  1801. case error() = 128 && Unable to Skip
  1802.          ?
  1803.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1804.          ?
  1805.          text
  1806.          You attempted to SKIP to a record that is locked by another user.
  1807.          endtext
  1808.          ?
  1809.          wait to mpause
  1810.          call savescr with 'r5'
  1811.          release module savescr
  1812.          return
  1813. case error() = 129 && Unable to Lock
  1814.          ?
  1815.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1816.          ?
  1817.          text
  1818.          In full-screen mode, you attempted to lock a record using Ctrl-O
  1819.          that was already locked by another user.
  1820.          endtext
  1821.          ?
  1822.          wait to mpause
  1823.          call savescr with 'r5'
  1824.          release module savescr
  1825.          return
  1826. case error() = 130 && Record is not locked
  1827.          ?
  1828.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1829.          ?
  1830.          text
  1831.          You attempted to update a record that is not locked.
  1832.          endtext
  1833.          ?
  1834.          wait to mpause
  1835.          call savescr with 'r5'
  1836.          release module savescr
  1837.          return
  1838. case error() = 131 && Database is encrypted
  1839.          ?
  1840.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1841.          ?
  1842.          text
  1843.          In single-user dBASE III PLUS, you attempted to USE a database
  1844.          file that was encrypted using the multi-user version. In
  1845.          multi-user dBASE III PLUS, you attempted to USE an encrypted
  1846.          database file without the proper authorization.
  1847.          endtext
  1848.          ?
  1849.          wait to mpause
  1850.          call savescr with 'r5'
  1851.          release module savescr
  1852.          return
  1853. case error() = 132 && Unauthorized login
  1854.          ?
  1855.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1856.          ?
  1857.          text
  1858.          You entered an invalid login sequence three times in a row.
  1859.          endtext
  1860.          ?
  1861.          wait to mpause
  1862.          call savescr with 'r5'
  1863.          release module savescr
  1864.          return
  1865. case error() = 133 && Unauthorized access level
  1866.          ?
  1867.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1868.          ?
  1869.          text
  1870.          You attempted to access a field or file with an access level that
  1871.          does not match your own.
  1872.          endtext
  1873.          ?
  1874.          wait to mpause
  1875.          call savescr with 'r5'
  1876.          release module savescr
  1877.          return
  1878. case error() = 134 && Not a valid QUERY file
  1879.          ?
  1880.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1881.          ?
  1882.          text
  1883.          You attempted to SET FILTER TO an invalid QUERY file. The QUERY
  1884.          file has probably been corrupted and should be recreated use
  1885.          CREATE QUERY.
  1886.          endtext
  1887.          ?
  1888.          wait to mpause
  1889.          release module savescr
  1890.          Return
  1891. case error() = 135 &&
  1892.          ?
  1893.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1894.          ?
  1895.          text
  1896.          No explanation of error code available at this time
  1897.          endtext
  1898.          ?
  1899.          wait to mpause
  1900.          call savescr with 'r5'
  1901.          release module savescr
  1902.          return
  1903. case error() = 136 && Unsupported path given
  1904.          ?
  1905.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1906.          ?
  1907.          text
  1908.          You attempted to CREATE a database file using the "../" as the
  1909.          path name.
  1910.          endtext
  1911.          ?
  1912.          wait to mpause
  1913.          call savescr with 'r5'
  1914.          release module savescr
  1915.          return
  1916. case error() = 137 && Maximum record length exceeded
  1917.          ?
  1918.          ? "Error Code# : "+ltrim(choice)+"     "+Message()
  1919.          ?
  1920.          text
  1921.          In CREATE or MODIFY STRUCTURE, you attempted to add a field to a
  1922.          database file that already has 128 fields.
  1923.          endtext
  1924.          ?
  1925.          wait to mpause
  1926.          call savescr with 'r5'
  1927.          release module savescr
  1928.          return
  1929. endcase
  1930. call savescr with 'r5'
  1931. Set Talk On
  1932. Set Echo On
  1933. enddo
  1934. * EOF Error.Prg
  1935.