| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100 |
- 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
|
