INDTEST.LST 1.8 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546
  1. Listing:
  2. 1 MODULE IndTest;
  3. 2 (* IMPORT PMD;*)
  4. 3 IMPORT ModBase3;
  5. 4 IMPORT DBIndxes;
  6. 5 IMPORT StringIO;
  7. 6 IMPORT InitCompilerMods;
  8. 7 VAR
  9. 8 ind:DBIndxes.DBIndex;
  10. ***** ^ not supported yet
  11. 9 dbf:ModBase3.DBFile;
  12. ***** ^ not supported yet
  13. 10 BEGIN
  14. 11 ModBase3.InitDBF('Modbase.DBF',dbf,60000,FALSE,TRUE,TRUE,ModBase3.DefaultFixUp);
  15. ***** ^ not supported yet
  16. ***** ^ not supported yet
  17. ***** ^ not supported yet
  18. ***** ^ not supported yet
  19. ***** ^ not supported yet
  20. ***** ^ not supported yet
  21. 12 DBIndxes.InitIndex('Modbase.NDX',ind,dbf,10000,FALSE,TRUE);
  22. ***** ^ not supported yet
  23. ***** ^ not supported yet
  24. ***** ^ not supported yet
  25. ***** ^ not supported yet
  26. ***** ^ not supported yet
  27. ***** ^ not supported yet
  28. 13 IF ModBase3.OpenDBF(dbf) THEN
  29. ***** ^ not supported yet
  30. ***** ^ not supported yet
  31. ***** ^ not supported yet
  32. 14 StringIO.PrintMessage(DBIndxes.BuildIndex(ind,'NAME'));
  33. ***** ^ not supported yet
  34. ***** ^ not supported yet
  35. ***** ^ not supported yet
  36. ***** ^ not supported yet
  37. ***** ^ not supported yet
  38. ***** ^ not supported yet
  39. 15 END;
  40. 16
  41. 17 END IndTest.
  42. 23 errors