Topspeed_JPI/TS/MODBASE/MAKETEST.MOD

MODULE MakeTestDBF;
(* this program will create the file for Test *)
FROM LowLevel IMPORT Fill;
FROM ModBase3 IMPORT InitDBF,OpenDBF,CloseDBF,ReadDBRec,
     GetField,DBFieldDescriptor,DBFile;

FROM DBCreate IMPORT BuildDBF;   
FROM SYSTEM IMPORT SIZE,ADR;
FROM Storage IMPORT ALLOCATE,DEALLOCATE;

VAR
  TestDBF : DBFile;


PROCEDURE MakeDatabase();
VAR 
 Error : CARDINAL;
 Desc : POINTER TO ARRAY [1..200] OF DBFieldDescriptor;
BEGIN
  ALLOCATE(Desc,  2 * SIZE(DBFieldDescriptor));
  Fill(Desc,   2 * SIZE(DBFieldDescriptor),0);
   MakeDescriptor(  Desc^[  1], 'TEST', 30,  0, 'C');
   MakeDescriptor(  Desc^[  2], 'TEMP', 20,  0, 'C');
   InitDBF('Test.DBF',TestDBF,0,FALSE,TRUE,FALSE,DefaultFixUp);
   (* It would be a good to test error.*)
   Error:=BuildDBF(Desc^,  2,TestDBF);
   CloseDBF(TestDBF);
 DEALLOCATE(Desc,  2 * SIZE(DBFieldDescriptor));
END MakeDatabase;

BEGIN
  MakeDatabase();

END MakeTestDBF.