home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TAS407.ZIP / MISSING.TAS < prev    next >
Encoding:
Text File  |  1991-07-11  |  541 b   |  15 lines
  1. { missing.tas - Script to check the quote data base for missing dates
  2.     as of the current date. It is necessary that the first ticker in the 
  3.     directory have the latest date downloaded. 
  4.     This ticker's last date is then checked against the last date of all 
  5.     the subsequent tickers. If a mis-match is found, a message is put
  6.     out.
  7. }
  8. #max_quotes 5
  9. #output_file 'missing.qts' n
  10. if first_ticker then 
  11.     file_date := date;
  12. if file_date <> date then  
  13.     writeln('S ',ticker,' last record is ',date, 
  14.     ' and should be ', file_date);
  15.