MAKEDBF.TPL 471 B

123456789101112131415161718192021
  1. >>FILE NAME =Make@TABLENAME@DBF.MOD
  2. MODULE Make@TABLENAME@DBF;
  3. (* this program will create the file for @TABLENAME@ *)
  4. FROM LowLevel IMPORT Fill;
  5. FROM ModBase3 IMPORT InitDBF,OpenDBF,CloseDBF,ReadDBRec,
  6. GetField,DBFieldDescriptor,DBFile;
  7. FROM DBCreate IMPORT BuildDBF;
  8. FROM SYSTEM IMPORT SIZE,ADR;
  9. FROM Storage IMPORT ALLOCATE,DEALLOCATE;
  10. VAR
  11. @TABLENAME@DBF : DBFile;
  12. >>MAKE DATABASE<<
  13. BEGIN
  14. MakeDatabase();
  15. END Make@TABLENAME@DBF.