DEFINITION MODULE DBFTest;
FROM ModBase3 IMPORT DBFile;
FROM DBIndxes IMPORT DBIndex;
FROM NumTypes IMPORT Real8;
FROM DateFunctions IMPORT Date;
TYPE
TestRec = RECORD
    TEST : ARRAY[0.. 30] OF CHAR;;   (*  *)
    TEMP : ARRAY[0.. 20] OF CHAR;;   (*  *)
END;


VAR
  TestDBF: DBFile;
  ActTestIdx : DBIndex;   
                     (* active index for next/prev/first/last cmds*)

  TestIdx : DBIndex;  



  PROCEDURE MoveTestToDBF( REC : TestRec);
  PROCEDURE MoveTestFromDBF(VAR REC : TestRec);


 PROCEDURE OpenTestDBF(WithIdx : BOOLEAN);


 PROCEDURE CloseTestDBF();


PROCEDURE FindTestByTest( Key : ARRAY OF CHAR) : BOOLEAN;

  PROCEDURE NextTest () : BOOLEAN;
  PROCEDURE PrevTest () : BOOLEAN;
  PROCEDURE FirstTest ();
  PROCEDURE LastTest ();
END  DBFTest.