home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / members.zip / ERRCHK.PRG < prev    next >
Text File  |  1986-10-16  |  2KB  |  72 lines
  1. *----------------------------------------------------------------------
  2. * Program : Membership Database Package
  3. * File    : ERRCHK
  4. * Function: Error Interception & Recovery 
  5. * Author  : J. North        
  6. * Version : (AT contest)
  7. * Date    : 10/15/86
  8. *----------------------------------------------------------------------
  9. *
  10. private code,err_msg
  11. err_msg=message()
  12. code=error()
  13. do case
  14.     case code=125.or.code=126
  15.         set print off
  16.         set console on
  17.         set escape off
  18.         on escape
  19.         clear
  20.         do dialog with 10,"Printer Not Ready -- Press any key"
  21.         wait ""
  22.         use
  23.         return to master
  24.     case code=114
  25.         ?? chr(7)
  26.         set console off
  27.         reindex
  28.         set console on
  29.         retry
  30. endcase    
  31. on error
  32. set device to screen
  33. set print off
  34. set console on
  35. do clwait
  36. call curson
  37. ? "An error has occured!  Recording Information ..."
  38. set console off
  39. * ---Setup alternate file name.
  40. set date ansi
  41. err_file=right(dtoc(date()),5)+"-"+right(time(),2)+".ERR"
  42. err_file=stuff(err_file,3,1,"-")
  43. * ---Set and turn on Error File.
  44. set alternate to &err_file
  45. set alternate on
  46. * -- Record Vital Statistics
  47. ? "-------------------------------------------------------------------"
  48. ? "Date: "+dtoc(date())
  49. ? "Time: "+time()
  50. ? "-------------------------------------------------------------------"
  51. ? "Error: "+err_msg
  52. ? "-------------------------------------------------------------------"
  53. ? "Database In Use : "+dbf()
  54. ? "Open Index Files --"
  55. i=1
  56. do while i<8
  57.     ? "   "+ndx(i)
  58.     i=i+1
  59. enddo
  60. ? "Remaining Disk Space: ",diskspace()
  61. ? "-------------------------------------------------------------------"
  62. ? "Memory --"
  63. list memory
  64.  
  65. * ---Reset alternate file.
  66. set alternate off
  67. set alternate to
  68. close databases
  69. set console on
  70. wait "Error recorded in "+err_file+". Press any key"
  71. quit
  72.