home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / DDEEXEC / DDEERR.PRG < prev    next >
Encoding:
Text File  |  1992-11-03  |  1.6 KB  |  49 lines
  1. ***********************************************************
  2. *     * 11/03/92              DDEerr.PRG         06:02:18 *
  3. ***********************************************************
  4. *     *                                                   *
  5. *     * Description:                                      *
  6. *     *  Function that displays DDE communications error  *
  7. *     *  message.                                         *
  8. ***********************************************************
  9. DECLARE DDEerr[26]
  10. ErrNo = DDELastError()
  11. IF ErrNo > 0
  12.    DO GetErrs
  13.    WAIT WINDOW "DDE Error: " + DDEerr[ErrNo]
  14.    RELEASE ALL LIKE DDEerr
  15. ENDIF
  16. RETURN
  17. PROCEDURE GetErrs
  18. IF !FILE ("DDEERR.MEM")
  19.    DDEerr[ 1] = "Service busy"
  20.    DDEerr[ 2] = "Topic busy"
  21.    DDEerr[ 3] = "Channel busy"
  22.    DDEerr[ 4] = "No such service"
  23.    DDEerr[ 5] = "No such topic"
  24.    DDEerr[ 6] = "Bad channel"
  25.    DDEerr[ 7] = "Insufficient memory"
  26.    DDEerr[ 8] = "Acknowledge timeout"
  27.    DDEerr[ 9] = "Request timeout"
  28.    DDEerr[10] = "No DDEInitialize"
  29.    DDEerr[11] = "Client attempted server transaction identifier"
  30.    DDEerr[12] = "Execute timeout"
  31.    DDEerr[13] = "Bad parameter"
  32.    DDEerr[14] = "Low memory" 
  33.    DDEerr[15] = "Memory error"
  34.    DDEerr[16] = "Connect failure"
  35.    DDEerr[17] = "Request failure"
  36.    DDEerr[18] = "Poke timeout"
  37.    DDEerr[19] = "Could not display message"
  38.    DDEerr[20] = "Multiple synchronous transactions "
  39.    DDEerr[21] = "Server died"
  40.    DDEerr[22] = "Internal DDE error"
  41.    DDEerr[23] = "Advise timeout"
  42.    DDEerr[24] = "Invalid transaction"
  43.    DDEerr[25] = "Unknown"
  44.    SAVE ALL LIKE DDEerr TO DDEerr
  45. ELSE
  46.    RESTORE FROM DDEerr ADDITIVE
  47. ENDIF
  48.  
  49.