home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBAPG.ARC / S-UPDATE.PRG < prev    next >
Encoding:
Text File  |  1984-08-12  |  1.4 KB  |  46 lines
  1. * Program.: S-UPDATE.PRG
  2. * Author..: Luis A. Castro
  3. * Date....: 01/11/83, 01/17/84, 06/24/84
  4. * Notice..: Copyright 1983 & 1984, Luis A. Castro, All Rights Reserved
  5. * Version.: dBASE II, version 2.4x
  6. ¬ Notes...║ Simulate≤ thσ UPDAT┼ 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 "FROM" TO fromfile
  15. STORE "Lastname+Firstname" TO key:expr
  16. *
  17. * ---Initialize macro to REPLACE or ADD to masterfile.  
  18. * ---Assumes Name field is replaced and Amount field is added.
  19. STORE "Name WITH P.Name, "+;
  20.       "Amount WITH Amount + P.Amount" TO Mreplace
  21. *
  22. SELECT PRIMARY
  23. USE &fromfile
  24. SELECT SECONDARY
  25. * ---Assumes the master file and index file have the same name.
  26. USE &masterfile INDEX &masterfile
  27. SELECT PRIMARY
  28. DO WHILE .NOT. EOF
  29.    STORE &key:expr TO mkey
  30.    SELECT SECONDARY
  31.    FIND &mkey
  32.    IF # = 0
  33.       * ---No matching record.  
  34.       * ---So, add a blank record to masterfile.
  35.       APPEND BLANK
  36.    ENDIF
  37.    * ---Update information to masterfile from fromfile.
  38.    REPLACE &Mreplace
  39.    SELECT PRIMARY
  40.    SKIP
  41. ENDDO 
  42. CLEAR
  43. SET TALK ON
  44. RETURN 
  45. * EOF: S-UPDATE.PRG
  46.