home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c150 / 5.ddi / TIMS.DDL < prev    next >
Encoding:
Text File  |  1990-10-01  |  2.3 KB  |  76 lines
  1. /*----------------------------------------------------------------
  2.    Technical Information Management System (TIMS) Database
  3. ----------------------------------------------------------------*/
  4. database tims {
  5.    data file "tims.d01" contains system, key_word, intersect;
  6.    data file "tims.d02" contains author, borrower, info, text;
  7.    key  file "tims.k01" contains id_code;
  8.    key  file "tims.k02" contains friend, word;
  9.  
  10.    record author {
  11.       char name[32];               /* author's name: "last, first" */
  12.    }                               /* or editor's name */
  13.    record info {
  14.       unique key char id_code[16]; /* dewey dec. or own coding tech. */
  15.       char info_title[80];         /* title of book, article, mag. */
  16.       char publisher[32];          /* name of publisher - prob. coded */
  17.       char pub_date[12];           /* date of publication  
  18.                      (e.g. most recent copyright) */
  19.       int info_type;               /* 0 = book, 1 = magazine, 2 = article */
  20.    }
  21.    record borrower {
  22.       key char friend[32];         /* name of borrower */
  23.       long date_borrowed;          /* dates are stored initially as */
  24.       long date_returned;          /* numeric YYMMDD (e.g. 870226) */
  25.    }
  26.    record text {
  27.       char line[80];               /* line of abstract text */
  28.    }
  29.    record key_word {
  30.       unique key char word[32];    /* subject key words or classification */
  31.    }
  32.    record intersect {
  33.       int int_type;                /* copy of info_type to save I/O */
  34.    }                               /* when looking only for, say, books */
  35.    set author_list {
  36.       order ascending;
  37.       owner system;
  38.       member author by name;
  39.    }
  40.    set has_published {
  41.       order ascending;
  42.       owner author;
  43.       member info by info_title;
  44.    }
  45.    set article_list {
  46.       order last;
  47.       owner info;
  48.       member info;
  49.    }
  50.    set loaned_books {
  51.       order last;
  52.       owner info;
  53.       member borrower;
  54.    }
  55.    set abstract {
  56.       order last;
  57.       owner info;
  58.       member text;
  59.    }
  60.    set key_to_info {
  61.       order last;
  62.       owner key_word;
  63.       member intersect;
  64.    }
  65.    set info_to_key {
  66.       order last;
  67.       owner info;
  68.       member intersect;
  69.    }
  70.    set loan_history {
  71.       order last;
  72.       owner system;
  73.       member borrower;
  74.    }
  75. }
  76.