home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a013 / 1.ddi / SOURCE.EXE / F_REQDAT.PRG < prev    next >
Encoding:
Text File  |  1991-01-25  |  635 b   |  30 lines
  1. *****************************************************************
  2. FUNCTION REQDDATA
  3. *****************************************************************
  4.  
  5. * Warns the operator that data is required
  6.  
  7. * Copyright(c) 1991 -- James Occhiogrosso
  8.  
  9. PARAMETERS mvar_name, proc_name
  10.  
  11. PRIVATE ret_value := .T.
  12.  
  13. IF EMPTY(mvar_name)
  14.    ERRORBEEP()
  15.    ret_value = .F.
  16. ENDIF
  17.  
  18. * Display message if AEDBAR in use
  19. IF(ret_value, AEDMSG("mw_pgdn"), AEDMSG("mw_reqd"))
  20.  
  21. * If a UDF name is passed, execute it.
  22. * Note that the UDF can alter the return value.
  23.  
  24. IF proc_name != NIL
  25.     &proc_name(mvar_name)
  26. ENDIF
  27.  
  28. RETURN(ret_value)
  29.  
  30.