ALLBASE/SQL Reference Manual (36216-90216)

632 AppendixC
Sample DBEnvironment
CREATABS Command File
/* The following commands create a DBEFileSet with one DBEFile for
storage of long field data in the PurchDB.Reports table .*/
CREATE DBEFILESET FileFS;
CREATE DBEFILE FileData
WITH PAGES=50, NAME='FileData',
TYPE=TABLE;
ADD DBEFILE FileData TO DBEFILESET FileFS;
/* The following commands create the two tables that comprise the ManufDB
database. */
CREATE PUBLIC TABLE ManufDB.SupplyBatches
(VendPartNumber CHAR(16) NOT NULL,
BatchStamp DATETIME DEFAULT CURRENT_DATETIME
NOT NULL
PRIMARY KEY,
MinPassRate FLOAT)
IN WarehFS;
CREATE PUBLIC TABLE ManufDB.TestData
(BatchStamp DATETIME NOT NULL
REFERENCES ManufDB.SupplyBatches (BatchStamp),
TestDate DATE,
TestStart TIME,
TestEnd TIME,
LabTime INTERVAL,
PassQty INTEGER,
TestQty INTEGER)
IN WarehFS;
/* The following commands create the seven tables and two views
that comprise the PurchDB database. */
CREATE PUBLIC TABLE PurchDB.Parts
(PartNumber CHAR(16) NOT NULL,
PartName CHAR(30),
SalesPrice DECIMAL(10,2) )
IN WarehFS;
CREATE PUBLIC TABLE PurchDB.Inventory
(PartNumber CHAR(16) NOT NULL,
BinNumber SMALLINT NOT NULL,
QtyOnHand SMALLINT,
LastCountDate CHAR(8),
CountCycle SMALLINT,
AdjustmentQty SMALLINT,
ReorderQty SMALLINT,
ReorderPoint SMALLINT )
IN WarehFS;
CREATE PUBLIC TABLE PurchDB.SupplyPrice
(PartNumber CHAR(16) NOT NULL,
VendorNumber INTEGER NOT NULL,
VendPartNumber CHAR(16) NOT NULL,
UnitPrice DECIMAL(10,2),
DeliveryDays SMALLINT,