home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE5 / CUA_SAMP.ZIP / ERRORMSG.PRG < prev    next >
Encoding:
Text File  |  1994-06-24  |  588 b   |  22 lines
  1. PROCEDURE ErrorMsg
  2. PARAMETERS pcMsg
  3. *----------------------------------------------------------------------------
  4. * NAME
  5. *   ErrorMsg - Displays an ErrMsg message box with Error title and OK.
  6. *
  7. * PARAMETERS
  8. *   pcMsg      = Message to display in message box
  9. *
  10. *----------------------------------------------------------------------------
  11. #include "ERRMSG.HDB"
  12.     PRIVATE lVoid
  13.  
  14.     dB5___EMsg.Message = pcMsg
  15.     dB5___EMsg.BoxTitle = [Error]
  16.     DO ErrMsg WITH dB5___EMsg
  17.     lVoid = dB5___EMsg.Release()
  18.     RELEASE dB5___EMsg
  19.  
  20. RETURN
  21. *-- EOP: ErrorMsg WITH pcMsg
  22.