ALLBASE/SQL Reference Manual (36216-90216)

Appendix C 633
Sample DBEnvironment
CREATABS Command File
DiscountQty SMALLINT)
IN PurchFS;
CREATE PUBLIC TABLE PurchDB.Vendors
(VendorNumber INTEGER NOT NULL,
VendorName CHAR(30) NOT NULL,
ContactName CHAR(30),
PhoneNumber CHAR(15),
VendorStreet CHAR(30) NOT NULL,
VendorCity CHAR(20) NOT NULL,
VendorState CHAR(2) NOT NULL,
VendorZipCode CHAR(10) NOT NULL,
VendorRemarks VARCHAR(60) )
IN PurchFS;
CREATE PUBLIC TABLE PurchDB.Orders
(OrderNumber INTEGER NOT NULL,
VendorNumber INTEGER,
OrderDate CHAR(8) )
IN OrderFS;
CREATE PUBLIC TABLE PurchDB.OrderItems
(OrderNumber INTEGER NOT NULL,
ItemNumber INTEGER NOT NULL,
VendPartNumber CHAR(16),
PurchasePrice DECIMAL(10,2) NOT NULL,
OrderQty SMALLINT,
ItemDueDate CHAR(8),
ReceivedQty SMALLINT )
IN OrderFS;
CREATE PUBLIC TABLE PurchDB.Reports
(ReportName CHAR(20) NOT NULL,
ReportOwner CHAR(20) NOT NULL,
FileData LONG VARBINARY(100000)IN FileFS NOT NULL)
IN OrderFS;
CREATE VIEW PurchDB.PartInfo
(PartNumber,
PartName,
VendorNumber,
VendorName,
VendorPartNumber,
ListPrice,
Quantity) AS
SELECT PurchDB.SupplyPrice.PartNumber,
PurchDB.Parts.PartName,
PurchDB.SupplyPrice.VendorNumber,
PurchDB.Vendors.VendorName,
PurchDB.Supplyprice.VendPartNumber,
PurchDB.SupplyPrice.UnitPrice,
PurchDB.SupplyPrice.DiscountQty
FROM PurchDB.Parts,
PurchDB.SupplyPrice,
PurchDB.Vendors
WHERE PurchDB.SupplyPrice.PartNumber =
PurchDB.Parts.PartNumber
AND PurchDB.SupplyPrice.VendorNumber =
PurchDB.Vendors.VendorNumber;