home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / IDXREONE.PRG < prev    next >
Encoding:
Text File  |  1990-05-08  |  511 b   |  40 lines
  1. ****** ╓╪╜¿─│╬─╝■╡─╦≈╥² IDXREONE.PRG ******
  2. ****** DO IDXREONE                   ******
  3. CLOS DATA
  4. SET TALK OFF
  5. SET SAFE OFF
  6. FN=''
  7. FNO=''
  8. CFN=''
  9. DO SELEF
  10. IF LEN(FN)=0
  11. EXIT
  12. ENDIF
  13. SELE 1
  14. USE IDX INDE IDX
  15. SET FILT TO F_NO=FNO
  16. GO TOP
  17. IF .NOT.EOF()
  18. IN=''
  19. DO WHILE .NOT. EOF()
  20. IN=IN+','+TRIM(IDX_NAME)
  21. SKIP
  22. ENDDO
  23. SET FILT TO
  24. IN=SUBS(IN,2)
  25. IF  FN='IDX'
  26. SET INDE TO &IN
  27. REIN
  28. ELSE
  29. SELE 3
  30. USE &FN
  31. SET INDE TO &IN
  32. REIN
  33. USE
  34. SELE 1
  35. ENDIF
  36. ENDIF
  37. CLOS DATA
  38. RETU
  39. ** END OF IDXCRONE.PRG **
  40.