(****************************************************************)
(*                     DATABASE TOOLBOX 4.0                     *)
(*     Copyright (c) 1984, 87 by Borland International, Inc.    *)
(*                                                              *)
(*                        BTREE.NFO                             *)
(*                                                              *)
(*  Include file for the Convert program which tells how to     *)
(*  the data and index files used by BTREE from Turbo Access    *)
(*  1.XX format to 4.0 format.  Use the file TEMPLATE.NFO as    *)
(*  a starting point.                                           *)
(*                                                              *)
(****************************************************************)
type
  FileName = string[66];


  DataFileInfo = record
                   OrigRecordSize : word;  { Size of original record }
                   NewRecordSize : word;
                   OrigStatusField,
                     { Set to true if you set 1st integer field }
                     { for a record status indicator in original data file }
                   NewStatusField  : boolean;
                     { Set to true if you set 1st LongInt field }
                     { for a record status indicator in original data file }
                   OrigFileNm,
                     { Name of original data file }
                   NewFileNm : FileName;
                    { Name of new data file.  OrigFileNm should <> NewFileNm }
                 end;

  IndexFileInfo = record
                    KeyLength : byte; { # of chars i.e. SizeOf(Key) - 1 }
                    Status    : byte; { Duplicates or NoDuplicates }
                    OrigFileNm,
                    { Name of original index file }
                    NewFileNm : FileName;
                    { Name of new index file.  OrigFileNm should <> NewFileNm }
                  end;

const
{ THE FOLLOWING CONSTANT DECLARATIONS ARE SET TO MATCH THOSE IN THE
  BTREE PROGRAM.  }


  MyDataFile : DataFileInfo =
                (OrigRecordSize : 342;  {Write a tiny util. program to compute}
                 NewRecordSize : 344;   {these sizes.  See TASizes for an eg. }
                 OrigStatusField : true;       { Status fields in old and new }
                 NewStatusField : true;
                 OrigFileNm : 'CustTA1.dat';   { Data File names old/new }
                 NewFileNm : 'Cust.dat');

  NumIndexFiles = 2;  { BTree uses 2 index files }

  MyIndexFiles : array[1..NumIndexFiles] of IndexFileInfo =
                  ((KeyLength : 15;         { Cust. Code Index file info. }
                    Status : NoDuplicates;
                    OrigFileNm : 'CustTA1.ixc';
                    NewFileNm : 'Cust.ixc'
                   ),
                   (KeyLength : 25;         { Names Index file info. }
                    Status : Duplicates;
                    OrigFileNm : 'CustTA1.ixn';
                    NewFileNm : 'Cust.ixn'
                   )
                  );


  { Turbo Access 1.0 constant declarations from BTree v. 1.XX }
  MaxDataRecSize = 342;
  MaxKeyLen      =  25;
  PageSize       =  16;
  Order          =   8;
  PageStackSize  =   5;
  MaxHeight      =   5;

