home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / techs.zip / TECH6.ARC / CMDJOIN.PRG next >
Text File  |  1985-11-01  |  621b  |  30 lines
  1. * Program...: Cmdjoin.PRG
  2. * Author... : Luis Castro
  3. * Date .....: December 1, 1985
  4. * Version...: dBASE II, any version
  5. * Note(s)...: This program performs a simple JOIN that is very
  6. *             similar to the dBASE II JOIN command.
  7. *
  8. SET TALK OFF
  9. USE Joinfile
  10. APPEND FROM File1
  11. GO TOP
  12. SELECT SECONDARY
  13. USE File2 INDEX File2
  14. SELECT PRIMARY
  15. DO WHILE .NOT. EOF
  16.    STORE key TO mkey
  17.    SELECT SECONDARY
  18.    FIND &mkey
  19.    IF # <> 0
  20.       SELECT PRIMARY
  21.       REPLACE Field1 WITH S.Field1
  22.       REPLACE Field2 WITH S.Field2
  23.    ENDIF
  24.    SELECT PRIMARY
  25.    SKIP
  26. ENDDO
  27. CLEAR
  28. RETURN
  29. * EOP Cmdjoin.PRG
  30.