SQL Programming Manual for Pascal

Sample NonStop SQL Database
HP NonStop SQL Programming Manual for Pascal—528614-001
A-3
Sample Database Source File
Figure A-2. Sample Database Source File (page 2 of 4)
{* *}
{* *}
{* Sales (SALES) *}
{* *}
{* *}
?SECTION CUSTOMER
{* Record Definition for \SYS1.$VOL1.SALES.CUSTOMER *}
{* Definition current at 09:54:38 - 12/11/91 *}
type
customer_type = record
custnum : cardinal;
custname : fstring(18);
street : fstring(22);
city : fstring(14);
state : fstring(12);
postcode : fstring(10);
credit : fstring(2);
END;
?SECTION ORDERS
{* Record Definition for \SYS1.$VOL1.SALES.ORDERS *}
{* Definition current at 09:54:40 - 12/11/91 *}
type
orders_type = record
ordernum : int32;
order_date : int32;
deliv_date : int32;
salesrep : cardinal;
custnum : cardinal;
END;
?SECTION ODETAIL
{* Record Definition for \SYS1.$VOL1.SALES.ODETAIL *}
{* Definition current at 09:54:41 - 12/11/91 *}
type
odetail_type = record
ordernum : int32;
partnum : cardinal;
unit_price : int32; {* scale is 2 *}
qty_ordered : int32;
END;
VSTA02.vsd
p