home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dpf15b.zip / DP_CLIPP.PRG < prev    next >
Text File  |  1990-11-16  |  770b  |  19 lines
  1. *              This assumes a database named "database",
  2. *              an index named "data_ntx", and a 
  3. *              filter expression named "data_filtr"
  4.  
  5. SELECT A
  6. USE database                       && select your data base
  7. SET INDEX TO data_ntx              && optional index
  8. SET FILTER TO &data_filtr          && optional filter
  9. DECLARE array[FCOUNT()]            && create optional array
  10. AFILL (array,"+")                  && fill with pluses 
  11. array[1] = SPACE(1)                && DO NOT translate 1st field
  12. count = dPerfect("merge.sf",array) && create "merge.sf"
  13. IF ERRORLEVEL() = 1                && successful completion
  14.  ? STR(count)                      && display # records
  15. ELSE
  16.  ? "Sorry -- dPerfect Error!"      && error occurred
  17. ENDI
  18.  
  19.