home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / IDXREALL.PRG < prev    next >
Encoding:
Text File  |  1990-04-17  |  578 b   |  39 lines
  1. ****** ╓╪╜¿╦∙╙╨╬─╝■╡─╦≈╥² IDXREALL.PRG ******
  2. ****** DO IDXREALL                     ******
  3. CLOS DATA
  4. SET TALK OFF
  5. SET SAFE OFF
  6. SELE 1
  7. COPY FILE IDX.DBF TO IIDX.DBF
  8. USE IIDX
  9. SELE 2
  10. COPY FILE FILE.DBF TO FFILE.DBF
  11. USE FFILE
  12. SET FILT TO IDX_NUM<>0
  13. GO TOP
  14. DO WHILE .NOT. EOF()
  15. FN=F_NAME
  16. FNO=F_NO
  17. SELE 3
  18. USE &FN
  19. SELE 1
  20. IN=''
  21. SET FILT TO F_NO=FNO
  22. GO TOP
  23. DO WHILE .NOT. EOF()
  24. EXP=TRIM(IDX_EXP)
  25. IN=TRIM(IDX_NAME)
  26. SELE 3
  27. INDE ON &EXP TO &IN
  28. SELE 1
  29. SKIP
  30. ENDDO
  31. SELE 2
  32. SKIP
  33. ENDDO
  34. CLOS DATA
  35. ERAS IIDX.DBF
  36. ERAS FFILE.DBF
  37. RETU
  38. ** END OF IDXREALL.PRG **
  39.