home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBASEACC.ARC / JOBSINDX.PRG < prev    next >
Text File  |  1979-12-31  |  1KB  |  35 lines
  1.  
  2. *** JOBSINDX.CMD **
  3. * Indexes the costbase on job numbers to Jobs.NDX.
  4. *   The method of indexing here allows us to use the index to help
  5. * find job numbers for the Job Costs command files, but allows us to
  6. * do so without having to index the Costbase every time we add a bill.
  7. *   The strategy is: before we index the Costbase on job numbers,
  8. * we first store the number of the last record in a record with a job
  9. * number of zero.  When the file is indexed, this record is at the top
  10. * of the indexed file ($Jobs) so that we can find it whenever we want to.
  11. ********
  12.  
  13. USE Costbase
  14. GO BOTTOM
  15. STORE STR(#,5) TO Temp
  16. GO TOP
  17. IF Job:Nmbr = 0
  18.     REPLACE Name WITH Temp
  19. ELSE
  20.     DO WHILE !(Code) <> 'H'
  21.  ? "Uh, Oh--Trouble.  Don't touch anything"
  22.  ACCEPT 'and call Warren.' TO Code
  23.     ENDDO
  24. ENDIF
  25.  
  26. DELETE FILE $Jobs.NDX
  27. ERASE
  28. @ 5,0 SAY 'There are ' + Temp + ' records to index.'
  29. SET TALK ON
  30. INDEX ON Job:Nmbr TO $Jobs
  31. SET TALK Off
  32.  
  33. RELEASE Temp
  34. RETURN
  35.