home *** CD-ROM | disk | FTP | other *** search
- /*
- Listing 24.8 Errmsg()
- Author: Joe Booth
- Excerpted from "Clipper 5: A Developer's Guide"
- Copyright (c) 1991 M&T Books
- 501 Galveston Drive
- Redwood City, CA 94063-4728
- (415) 366-3600
- */
-
- Function errmsg(nErr)
- do case
- case nErr = 2
- ? "Check the spelling of the file name...."
- case nErr = 3
- ? "Check that the proper path is designated..."
- case nErr = 4
- ? "Need to increase CONFIG.SYS files statement..."
- case nErr = 5
- ? "The file is probably set to read-only...."
- case nErr = 6
- ? "Programming problem - contact the programmmer..."
- case nErr = 15
- ? "You've specified an invalid drive letter...."
- case nErr = 19
- ? "Remove the write-protect tab from the diskette..."
- case nErr = 21
- ? "Try shutting the drive door..."
- case nErr = 29
- ? "The disk is full....."
- case nErr = 32
- ? "Someone else is using the file..."
- case nErr <> 0
- ? "CONTACT the programmer immediately!!!!"
- endcase
- return NIL
-
- // end of file CHP2408.PRG
-