home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / techs.zip / TECH7.ARC / CMDTOTAL.PRG next >
Text File  |  1985-11-01  |  934b  |  35 lines
  1. * Program...: Cmdtotal.PRG
  2. * Author... : Luis Castro 
  3. * Date .....: December 1, 1985
  4. * Version ..: dBASE II, any version
  5. * Note(s)...: This program TOTALS one database file to
  6. *             another database file in a way that is very
  7. *             similar to the dBASE II TOTAL command.
  8. *
  9. SET TALK OFF
  10. * ---Mainfile should be either INDEXed or SORTed on the
  11. * ---TOTALling key.
  12. USE Mainfile
  13. * ---Create TOTAL TO database file.
  14. COPY STRUCTURE TO Newfile FIELDS Key, Field1, Field2
  15. SELECT SECONDARY
  16. USE Newfile
  17. SELECT PRIMARY
  18. DO WHILE .NOT. EOF
  19.    STORE key TO mkey
  20.    STORE 0 TO total1, total2
  21.    DO WHILE key = mkey .AND. ( .NOT. EOF )
  22.       STORE Field1 + total1 TO total1
  23.       STORE Field2 + total2 TO total2
  24.       SKIP
  25.    ENDDO
  26.    SELECT SECONDARY
  27.    APPEND BLANK
  28.    REPLACE Key WITH mkey
  29.    REPLACE Field1 WITH total1, Field2 WITH total2
  30.    SELECT PRIMARY
  31. ENDDO
  32. CLEAR
  33. RETURN
  34. * EOP Cmdupdat.PRG
  35.