Listing: 1 MODULE MakeErcompDBF; 2 (* 3 * ModBase 4 * Release 3.0 5 * (c) Copyright 1986 - 1991 PMI 6 Copyright 1988 - 1991 John McMonagle 7 * P.O. Box 8402 8 * Green Bay Wi 53308 9 * All Rights Reserved 10 * by Ed Ross 11 *) 12 13 14 (* this program will create the file for Ercomp *) 15 FROM LowLevel IMPORT Fill; 16 FROM ModBase3 IMPORT InitDBF,OpenDBF,CloseDBF,ReadDBRec, 17 GetField,DBFieldDescriptor,DBFile; 18 19 FROM DBCreate IMPORT BuildDBF; 20 FROM SYSTEM IMPORT SIZE,ADR; 21 FROM Storage IMPORT ALLOCATE,DEALLOCATE; 22 23 VAR 24 ErcompDBF : DBFile; 25 26 27 PROCEDURE MakeDatabase(); 28 VAR 29 Desc : POINTER TO ARRAY [1..200] OF DBFieldDescriptor; ***** ^ not supported yet ***** ^ not supported yet 30 BEGIN 31 ALLOCATE(Desc, 6 * SIZE(DBFieldDescriptor)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 32 Fill(Desc, 6 * SIZE(DBFieldDescriptor),0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 33 MakeDescriptor( Desc^[ 1], 'ERKEY', 8, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 34 MakeDescriptor( Desc^[ 2], 'ERNAME', 30, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 35 MakeDescriptor( Desc^[ 3], 'ERTYPE ', 12, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 36 MakeDescriptor( Desc^[ 4], 'RELATED_1 ', 8, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 37 MakeDescriptor( Desc^[ 5], 'RELATED_2 ', 8, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 38 MakeDescriptor( Desc^[ 6], 'ERDESC ', 10, 0, 'M'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 39 InitDBF('Ercomp.DBF',ErcompDBF,0,FALSE,TRUE,FALSE,DefaultFixUp); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 40 BuildDBF('Desc^, 6,ErcompDBF); ***** ^ not supported yet 41 CloseDBF(ErcompDBF); 42 DEALLOCATE(Desc, 6 * SIZE(DBFieldDescriptor)); 43 END MakeDatabase; 44 45 BEGIN 46 MakeDatabase(); 47 48 END MakeErcompDBF. 46 errors