# Sample HP Eloquence database schema
# To install execute the command: schema db.txt

begin database sample;

passwords:

items:

   custno,        X6;      # customer number
   matchcode,     X10;     # search key
   name1,         X32;     # customer name
   name2,         X32;
   name3,         X32;
   street,        X32;     # street or post box
   zipcity,       X32;     # zip and city
   phone,         X18;     # telephone number
   turnover,      3L;       # sales (month, current year, past year)
   salesarea,     X6;      # sales area

   partno,        X16;     # part number
   partlookup,    X10;     # part lookup string

   descripa,      X20;     # part description
   descripb,      X20;
   partunit,      X2;      # part unit
   profitgroup,   X4;      # profit group
   matnumber,     X16;     # material number
   itemcount,     X2;      # price unit (0->1, 1->10, 2->100, 3->1000)
   price1,        L;       # purchase price
   price2,        L;       # sales price

   id,            D;
   
   orderno,       X16;     # order number
   orderid,       D;       # internal order id
   orderdate,     D;       # order date
   orderstat,     I;       # order state
   ordertype,     X2;      # order type (VK -> customer order)
   ordervalue,    L;       # order value

   orderline,     I;       # order line
   itemno,        X16;     # part number
   qty,           L;       # quantity
   price,         L;       # price
   priceunit,     X2;      # price unit (0->1, 1->10, 2->100, 3->1000)
   delivdate,     D;       # target date

iitems:

   imatchcode  = matchcode;

   ipartlookup = partlookup;
   idescripa   = descripa:10;

   iorderno    = orderno;
   iorderdate  = orderdate;

   iorderline  = orderid, orderline;
   idelivdate  = delivdate;

sets:

n: CUSTOMERS, M(/0);
e: custno,
   matchcode,
   name1,
   name2,
   name3,
   street,
   zipcity,
   phone,
   turnover,
   salesarea;
i: imatchcode;

n: PARTS, M(/0);
e: partno,
   partlookup,
   descripa,
   descripb,
   partunit,
   profitgroup,
   matnumber,
   priceunit,
   price1,
   price2;
i: ipartlookup,
   idescripa;

n: ID, A(/0);
e: ID;

n: ORDERS, D(/0);
e: orderno,
   orderid(ID),
   orderdate,
   custno(CUSTOMERS),
   orderstat,
   ordertype,
   ordervalue;
i: iorderno,
   iorderdate;

n: LINEITEMS, D(/0);
e: orderid(ID),
   orderline,
   itemno(PARTS),
   qty,
   price,
   itemcount,
   delivdate;
i: iorderline,
   idelivdate;

end.