home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / openall / hschv2.lzh / HSCHV20.TYP < prev    next >
Text File  |  1988-03-30  |  3KB  |  114 lines
  1. { database record definition for hschurch dataset, note that all records
  2.   are not used in every program but are here for common definitions.
  3.   The dates (longint) are managed using the TP4IO.TPU unit.
  4.   Homogenized Software, Gerry Rohr, RR#3, Anamosa, Iowa 52205.
  5. }
  6. type
  7.    keystring = string[25];
  8.  
  9.    mail_rec = record
  10.       mail_stat :longint;
  11.       mail_no   :integer;
  12.       category  :string[2];
  13.       lastname  :string[25];
  14.       firstname :string[20];
  15.       title     :string[10];
  16.       address   :string[30];
  17.       city      :string[20];
  18.       state     :string[2];
  19.       zip       :string[10];
  20.       special1  :string[2];
  21.       special2  :string[2];
  22.       special3  :string[2];
  23.       date_reg  :longint;
  24.       andfamily :string[1];
  25.       mailout   :string[1];
  26.       homephone :string[14];
  27.       publish   :string[1];
  28.       visitarea :string[4];
  29.       marital   :string[1];
  30.       note1     :string[30];
  31.       whovisits :string[3];
  32.    end;
  33.  
  34.    memb_rec = record
  35.       memb_stat :longint;
  36.       mail_no   :integer;
  37.       pers_no   :integer;
  38.       status    :string[2];
  39.       lastname  :string[25];
  40.       firstname :string[20];
  41.       middlename:string[20];
  42.       title     :string[10];
  43.       relation  :string[1];
  44.       m_f       :string[1];
  45.       workphone :string[20];
  46.       adult     :string[1];
  47.       occupat   :string[30];
  48.       employed  :string[30];
  49.       code1     :string[2];
  50.       code2     :string[2];
  51.       code3     :string[2];
  52.       code4     :string[2];
  53.       code5     :string[2];
  54.       born      :longint;
  55.       married   :longint;
  56.       membsince :longint;
  57.       confirmed :longint;
  58.       baptized  :longint;
  59.       date6     :longint;
  60.       date7     :longint;
  61.       date8     :longint;
  62.       env_no    :integer;
  63.       pers_id   :integer;
  64.       father_id :integer;
  65.       mother_id :integer;
  66.    end;
  67.  
  68.    memx_rec = record
  69.       memx_stat :longint;
  70.       pers_id   :integer;
  71.       c_no      :integer;
  72.       comment   :string[60];
  73.    end;
  74.  
  75.    l_rec = record              { Master List record }
  76.       list_stat :longint;
  77.       pers_id  :integer;
  78.       ldate    :longint;       { YYYYMMMDDD }
  79.       majorlst :integer;
  80.       minorlst :integer;
  81.    end;
  82.  
  83.    r_rec = record                { Contribution record }
  84.       r_stat      :longint;
  85.       pers_id     :integer;
  86.       ldate       :longint;      { YYYYMMDD }
  87.       contrib     :real;         { Contribution field }
  88.       fund        :integer;      { Special Fund or note type.  The
  89.                                    Fund numbers are in monyfund.dat. }
  90.    end;
  91.  
  92.    n_rec = record                { note record format }
  93.       n_stat      :longint;
  94.       id_no       :integer;      { Family ID number if - else person number }
  95.       ldate       :longint;      { YYYYMMDD }
  96.       code1       :string[4];    { codes to define lists }
  97.       code2       :string[4];
  98.       note        :string[50];   { the actual note }
  99.    end;
  100.  
  101.    l_desc = record               { defines the list types used }
  102.       desc        :string[20];
  103.       major       :integer;
  104.       minor       :integer;
  105.    end;
  106.  
  107.    r_desc = record               { fund descriptions for the money database}
  108.       fund        :integer;
  109.       desc        :string[20];
  110.    end;
  111.  
  112.    MaxDataType = memb_rec;   { largest data record type }
  113.    MaxKeyType = keystring;   { largest key allowed }
  114.