Topspeed_JPI/TS/MODBASE/DATATYPE.DEF

DEFINITION MODULE DataTypes;
(*
 *  ModBase
 *  Release 3.0
 *  (c) Copyright 1986 - 1991 PMI
    Copyright 1988 - 1991 John McMonagle
 *  P.O. Box 8402
 *  Green Bay Wi 53308
 *  All Rights Reserved
 *  by Ed Ross
 *)

FROM GenLists IMPORT GenList;

CONST
  StdLength = 8;
  OldElmtNameLen = 7;
  ElmtNameLen  = 9;
  

VAR
  FldList : GenList;       (* list of all fields *)
  IdxList : GenList;       (* subset of field list - list of indexed fields*)

  TableName : ARRAY[0..20] OF CHAR;
  FullTableName : ARRAY[0..63] OF CHAR;
  DBFName   : ARRAY[0..20] OF CHAR;
  

TYPE
  IndexElmtRec = RECORD
    FldName : ARRAY[0..ElmtNameLen] OF CHAR;   
    EdtName : ARRAY[0..15] OF CHAR;
    HighLight : CHAR;  
    IndexType: CHAR;    (* will be either Real, Numeric or Char *)
    IdxName : ARRAY[0..8] OF CHAR;  (* the field name 
                                     trunc to 8 for file name*)
   END; 


 
   
  DataElmtRec = RECORD
    Name : ARRAY[0..ElmtNameLen] OF CHAR;
    Type : CHAR;
    Len  : CARDINAL;
    Dec  : CARDINAL;
    Idx  : CHAR;      (* indexed field *)
    Desc : ARRAY[0..40] OF CHAR;
    RecType : ARRAY[0..30] OF CHAR;  (* the mod2 type *)
  END;  
  


END DataTypes.