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