Listing: 1 MODULE MakeCustomerDBF; 2 (* this program will create the file for Customer *) 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 CustomerDBF : 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, 31 * SIZE(DBFieldDescriptor)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 21 Fill(Desc, 31 * SIZE(DBFieldDescriptor),0); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 22 MakeDescriptor( Desc^[ 1], 'CIN', 10, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 23 MakeDescriptor( Desc^[ 2], 'NAMEIDX', 40, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 24 MakeDescriptor( Desc^[ 3], 'NAME', 40, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 25 MakeDescriptor( Desc^[ 4], 'NOTES1', 40, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 26 MakeDescriptor( Desc^[ 5], 'NOTES2', 40, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 27 MakeDescriptor( Desc^[ 6], 'NOTES3', 40, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 28 MakeDescriptor( Desc^[ 7], 'AMTOUT', 10, 2, 'N'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 29 MakeDescriptor( Desc^[ 8], 'LASTINV', 8, 0, 'D'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 30 MakeDescriptor( Desc^[ 9], 'YTDPURCH', 10, 2, 'N'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 31 MakeDescriptor( Desc^[ 10], 'SALESREP', 10, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 32 MakeDescriptor( Desc^[ 11], 'CONTACT', 20, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 33 MakeDescriptor( Desc^[ 12], 'PHONENBR', 18, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 34 MakeDescriptor( Desc^[ 13], 'FAXNBR', 15, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 35 MakeDescriptor( Desc^[ 14], 'DATENTER', 8, 0, 'D'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 36 MakeDescriptor( Desc^[ 15], 'SHIPTOA1', 30, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 37 MakeDescriptor( Desc^[ 16], 'SHIPTOA2', 30, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 38 MakeDescriptor( Desc^[ 17], 'SHIPTOA3', 30, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 39 MakeDescriptor( Desc^[ 18], 'SHIPTOZP', 9, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 40 MakeDescriptor( Desc^[ 19], 'BILLTOA1', 30, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 41 MakeDescriptor( Desc^[ 20], 'BILLTOA2', 30, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 42 MakeDescriptor( Desc^[ 21], 'BILLTOA3', 30, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 43 MakeDescriptor( Desc^[ 22], 'BILLTOZP', 9, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 44 MakeDescriptor( Desc^[ 23], 'DISCLEVEL', 1, 0, 'N'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 45 MakeDescriptor( Desc^[ 24], 'DISCAMOUNT', 4, 2, 'N'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 46 MakeDescriptor( Desc^[ 25], 'SHIPVIA', 20, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 47 MakeDescriptor( Desc^[ 26], 'TERMS', 20, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 48 MakeDescriptor( Desc^[ 27], 'LIMIT', 10, 2, 'N'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 49 MakeDescriptor( Desc^[ 28], 'RESALENBR', 15, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 50 MakeDescriptor( Desc^[ 29], 'TAXABLE', 1, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 51 MakeDescriptor( Desc^[ 30], 'FREEFRGHT', 1, 0, 'C'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 52 MakeDescriptor( Desc^[ 31], 'SALEREPCOM', 4, 2, 'N'); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 53 InitDBF('Customer.DBF',CustomerDBF,0,FALSE,TRUE,FALSE,DefaultFixUp); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 54 (* It would be a good to test error.*) 55 Error:=BuildDBF(Desc^, 31,CustomerDBF); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 56 CloseDBF(CustomerDBF); ***** ^ not supported yet ***** ^ not supported yet 57 DEALLOCATE(Desc, 31 * SIZE(DBFieldDescriptor)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 58 END MakeDatabase; ***** ^ not supported yet 59 60 BEGIN 61 MakeDatabase(); ***** ^ not supported yet ***** ^ not supported yet 62 63 END MakeCustomerDBF. 182 errors