Topspeed_JPI/TS-V3/MODBASE/INDTEST.MOD

MODULE IndTest;
(* IMPORT PMD;*)
IMPORT ModBase3;
IMPORT DBIndxes;
IMPORT StringIO;
IMPORT InitCompilerMods;
VAR
  ind:DBIndxes.DBIndex;
  dbf:ModBase3.DBFile;
BEGIN
  ModBase3.InitDBF('Modbase.DBF',dbf,60000,FALSE,TRUE,TRUE,ModBase3.DefaultFixUp);
  DBIndxes.InitIndex('Modbase.NDX',ind,dbf,10000,FALSE,TRUE);
  IF ModBase3.OpenDBF(dbf) THEN
    StringIO.PrintMessage(DBIndxes.BuildIndex(ind,'NAME'));
  END;

END IndTest.