home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBAPG.ARC / S-JOIN.PRG < prev    next >
Encoding:
Text File  |  1984-08-12  |  1.5 KB  |  50 lines
  1. * Program.: S-JOIN.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...: A command file that simulates the JOIN 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 "FIRST" TO firstfile
  14. STORE "SECOND" TO secondfile
  15. STORE "JOIN-TO" TO joinfile
  16. STORE "Lastname+Firstname" TO key:expr
  17. *
  18. * ---Initialize macro to REPLACE to joinfile from secondfile.
  19. * ---Assumes only Name and Amount fields need replacing.
  20. STORE "Name WITH S.Name, Amount WITH S.Amount" TO Mreplace
  21. *
  22. * ---Joinfile has all the desired fields to be JOINed. 
  23. * ---It is created before the program is executed, 
  24. * ---and contains no records.
  25. SELECT PRIMARY
  26. USE &joinfile
  27. APPEND FROM &firstfile
  28. GO TOP
  29. SELECT SECONDARY
  30. * ---Assumes the second file and index file have the same name.
  31. USE &secondfile INDEX &secondfile
  32. SELECT PRIMARY
  33. DO WHILE .NOT. EOF
  34.    STORE &key:expr TO mkey
  35.    SELECT SECONDARY
  36.    FIND &mkey
  37.    IF # <> 0
  38.       * ---A matching record.
  39.       SELECT PRIMARY
  40.       * ---REPLACE to joinfile from secondfile.
  41.       REPLACE &Mreplace
  42.    ENDIF
  43.    SELECT PRIMARY
  44.    SKIP
  45. ENDDO
  46. CLEAR
  47. SET TALK ON
  48. RETURN 
  49. * EOF: S-JOIN.PRG 
  50.