Topspeed_JPI/TS/MODBASE/MAKEERCO.MOD

MODULE MakeErcompDBF;
(*
 *  ModBase
 *  Release 3.0
 *  (c) Copyright 1986 - 1991 PMI
    Copyright 1988 - 1991 John McMonagle
 *  P.O. Box 8402
 *  Green Bay Wi 53308
 *  All Rights Reserved
 *  by Ed Ross
 *)


(* this program will create the file for Ercomp *)
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
  ErcompDBF : DBFile;


PROCEDURE MakeDatabase();
VAR 
 Desc : POINTER TO ARRAY [1..200] OF DBFieldDescriptor;
BEGIN
  ALLOCATE(Desc,  6 * SIZE(DBFieldDescriptor));
  Fill(Desc,   6 * SIZE(DBFieldDescriptor),0);
   MakeDescriptor(  Desc^[  1], 'ERKEY',  8,  0, 'C');
   MakeDescriptor(  Desc^[  2], 'ERNAME', 30,  0, 'C');
   MakeDescriptor(  Desc^[  3], 'ERTYPE    ', 12,  0, 'C');
   MakeDescriptor(  Desc^[  4], 'RELATED_1 ',  8,  0, 'C');
   MakeDescriptor(  Desc^[  5], 'RELATED_2 ',  8,  0, 'C');
   MakeDescriptor(  Desc^[  6], 'ERDESC    ', 10,  0, 'M');
   InitDBF('Ercomp.DBF',ErcompDBF,0,FALSE,TRUE,FALSE,DefaultFixUp);
   BuildDBF('Desc^,  6,ErcompDBF);
   CloseDBF(ErcompDBF);
 DEALLOCATE(Desc,  6 * SIZE(DBFieldDescriptor));
END MakeDatabase;

BEGIN
  MakeDatabase();

END MakeErcompDBF.