home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / AS_MUSER.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  2.1 KB  |  64 lines
  1. //
  2. // Module name: as_muser.cod
  3. // Description: Multi-User error handler
  4. //
  5. // ERROR() MESSAGE()                          File, record error, critical
  6. // ========================================================================
  7. //     148 Network server busy                critical
  8. //     217 Lock table full                    critical
  9. //     131 Database is encrypted              file
  10. //     110 Exclusive open of file is required file
  11. //     108 File is in use by another          file
  12. //     129 Unable to lock                     file/record
  13. //     133 Unauthorized access level          file/record
  14. //     124 Invalid printer redirection        N/A
  15. //     132 Unauthorized login                 N/A
  16. //     111 Cannot write to a read-only file   record
  17. //     109 Record is in use by another        record
  18. //     130 Record is not locked               record
  19. //     128 Unable to skip                     record
  20. //
  21. // Errors will be handled in one of two ways:
  22. //
  23. // 1) Display message and return to menu
  24. // 2) Dialog box for options Try again and Return to menu
  25. //
  26. PROCEDURE Multerr
  27. *{replicate("-",69)}
  28. * Errors will be handled in one of two ways:
  29. *
  30. * 1) Display message and return to menu
  31. * 2) Dialog box for options Try again and Return to menu
  32. *{replicate("-",69)}
  33.   PRIVATE lc_opt, lc_erno
  34.  
  35.   gn_error=ERROR(){tabto(41)}&& Set the global error variable
  36.   lc_erno=STR(ERROR(),3)+','{tabto(41)}&& Contains error number to test
  37.   lc_opt='T'{tabto(41)}&& Option variable
  38.  
  39.   *-- Dialog box for options Try again and Return to menu.
  40.   IF lc_erno $ "108,109,128,129,"
  41.     ACTIVATE WINDOW Pause
  42.     @ 0,2 SAY lc_erno+" "+MESSAGE()
  43.     @ 2,22 SAY "T = Try again, R = Return to menu." ;
  44.            GET lc_opt PICTURE "!" VALID lc_opt $ "TR"
  45.     READ
  46.     DEACTIVATE WINDOW Pause
  47.     IF lc_opt = "R"
  48.       RETURN
  49.     ENDIF
  50.   ENDIF
  51.  
  52.   *-- Display message and return to menu.
  53.   IF .NOT. lc_erno $ "108,109,128,129,"
  54.     DO PAUSE WITH ERROR()
  55.     RETURN
  56.   ENDIF
  57.  
  58.   gn_error=0{tabto(41)}&& Reset global variable
  59.   RETRY{tabto(41)}&& Try the command again
  60.  
  61. RETURN
  62. *-- EOP: Multerr
  63. // EOP AS_MUSER.COD
  64.