home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / USEFM.PRG < prev    next >
Encoding:
Text File  |  1990-04-29  |  807 b   |  56 lines
  1. ****** USEFM.PRG *****
  2. ** PARA FNA(32) **
  3. DIME NDX0(10)
  4. NDX=FNA(7)
  5. NDX0='0'
  6. CLOS DATA
  7. SELE 9
  8. USE FILE INDE FILE
  9. SELE 10
  10. USE IDX INDE IDX
  11. CLEAR
  12. I=1
  13. DO WHILE M->I<=FNA(6)
  14. QH=SUBS('ABCDEFGHIJ',M->I,1)
  15. SELE &QH
  16. FN=FNA((M->I-1)*3+8)
  17. USE &FN
  18. IF M->I=1
  19. SET INDE TO &NDX
  20. SET FILT TO &EXP
  21. ELSE
  22. IDXEXP=TRIM(FNA((M->I-2)*3+10))
  23. IF LEN(M->IDXEXP)<>0
  24. SELE 9
  25. SEEK FN
  26. FNO=F_NO
  27. SELE 10
  28. LOCA FOR F_NO=FNO.AND.IDX_EXP=M->IDXEXP
  29. IF .NOT.EOF()
  30. NDX1=TRIM(IDX_NAME)
  31. SELE &QH
  32. SET INDE TO &NDX1
  33. ELSE
  34. NDX0(M->I)=SYS(3)
  35. NDX1=NDX0(M->I)
  36. SELE &QH
  37. INDE ON &IDXEXP TO &NDX1
  38. ENDIF
  39. ELSE
  40. IDXEXP='RECNO()'
  41. ENDIF
  42. QH0=SUBS('ABCDEFGHIJ',FNA((M->I-2)*3+9),1)
  43. SELE &QH0
  44. SET RELA TO &IDXEXP INTO &QH ADDI
  45. ENDIF
  46. I=M->I+1
  47. ENDDO
  48. SELE 9
  49. USE
  50. SELE 10
  51. USE
  52. SELE 1
  53. RETU
  54. ***** END OF USEFM.PRG *****
  55.  
  56.