home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBAPG.ARC / S-TOTAL.PRG < prev    next >
Encoding:
Text File  |  1984-08-12  |  1.4 KB  |  49 lines
  1. * Program.: S-TOTAL.PRG 
  2. * Author..: Luis A. Castro
  3. * Date....: 01/11/83, 01/17/84, 06/24/84
  4. * Notice..: Copyright 1983 & 1984, Ashton-Tate, All Rights Reserved
  5. * Version.: dBASE II, version 2.4x
  6. * Notes...: A command file that simulates the TOTAL command.
  7. *
  8. SET TALK OFF 
  9. *
  10. * ---The parameters may be initialized with STORE statements
  11. * ---or entered from the keyboard with ACCEPT statements
  12. * ---(i.e. the STORE verbs could be changed to ACCEPT verbs).
  13. STORE "MASTER" TO masterfile
  14. STORE "TOTAL" TO totalfile
  15. STORE "Lastname" TO key:field
  16. STORE "Cost" TO field:01
  17. STORE "Quantity" TO field:02
  18. *
  19. SELECT PRIMARY
  20. USE &masterfile
  21. * ---Create the total file.
  22. COPY STRUCTURE TO &totalfile;
  23.      FIELD &key:field, &field:01, &field:02
  24. SELECT SECONDARY
  25. USE &totalfile
  26. SELECT PRIMARY
  27. DO WHILE .NOT. EOF
  28.    STORE &key:field TO mkey
  29.    STORE 0 TO mfield:01, mfield:02
  30.    *
  31.    * ---Total numeric fields with duplicate key fields.
  32.    DO WHILE &key:field = mkey .AND. .NOT. EOF
  33.       STORE &field:01 + mfield:01 TO mfield:01
  34.       STORE &field:02 + mfield:02 TO mfield:02
  35.       SKIP
  36.    ENDDO
  37.    SELECT SECONDARY
  38.    * ---Enter result into the total file.
  39.    APPEND BLANK
  40.    REPLACE &key:field WITH mkey,;
  41.            &field:01 WITH mfield:01,;
  42.            &field:02 WITH mfield:02
  43.    SELECT PRIMARY
  44. ENDDO
  45. CLEAR
  46. SET TALK ON
  47. RETURN 
  48. * EOF: S-TOTAL.PRG
  49.