Listing: 1 MODULE MakeTestDBF; 2 (* this program will create the file for Test *) 3 FROM LowLevel IMPORT Fill; 4 FROM ModBase3 IMPORT InitDBF,OpenDBF,CloseDBF,ReadDBRec, 5 GetField,DBFieldDescriptor,DBFile; 6 7 FROM DBCreate IMPORT BuildDBF; 8 FROM SYSTEM IMPORT SIZE,ADR; 9 FROM Storage IMPORT ALLOCATE,DEALLOCATE; 10 11 VAR 12 TestDBF : DBFile; 13 14 15 PROCEDURE MakeDatabase(); 16 VAR 17 Error : CARDINAL; 18 Desc : POINTER TO ARRAY [1..200] OF DBFieldDescriptor; ***** ^ not supported yet ***** ^ not supported yet 19 BEGIN 20 ALLOCATE(Desc, 2 * SIZE(DBFieldDescriptor)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 21 Fill(Desc, 2 * SIZE(DBFieldDescriptor),0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 22 MakeDescriptor( Desc^[ 1], 'TEST', 30, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 23 MakeDescriptor( Desc^[ 2], 'TEMP', 20, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 24 InitDBF('Test.DBF',TestDBF,0,FALSE,TRUE,FALSE,DefaultFixUp); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 25 (* It would be a good to test error.*) 26 Error:=BuildDBF(Desc^, 2,TestDBF); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 27 CloseDBF(TestDBF); ***** ^ not supported yet ***** ^ not supported yet 28 DEALLOCATE(Desc, 2 * SIZE(DBFieldDescriptor)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 29 END MakeDatabase; ***** ^ not supported yet 30 31 BEGIN 32 MakeDatabase(); ***** ^ not supported yet ***** ^ not supported yet 33 34 END MakeTestDBF. 37 errors