SQL Programming Manual for Pascal

Sample NonStop SQL Database
HP NonStop SQL Programming Manual for Pascal—528614-001
A-4
Sample Database Source File
Figure A-2. Sample Database Source File (page 3 of 4)
?SECTION PARTS
{* Record Definition for \SYS1.$VOL1.SALES.PARTS *}
{* Definition current at 09:54:43 - 12/11/91 *}
type
parts_type = record
partnum : cardinal;
partdesc : fstring(18);
price : int32; {* scale is 2 *}
qty_available : int32;
END;
{* *}
{* *}
{* Inventory (INVENT) *}
{* *}
{* *}
?SECTION SUPPLIER
{* Record Definition for \SYS1.$VOL1.INVENT.SUPPLIER *}
{* Definition current at 09:54:46 - 12/11/91 *}
type
supplier_type = record
suppnum : cardinal;
suppname : fstring(18);
street : fstring(22);
city : fstring(14);
state : fstring(12);
postcode : fstring(10);
END;
?SECTION PARTSUPP
{* Record Definition for \SYS1.$VOL1.INVENT.PARTSUPP *}
{* Definition current at 09:54:44 - 12/11/91 *}
type
partsupp_type = record
partnum : cardinal;
suppnum : cardinal;
partcost : int32; {* scale is 2 *}
qty_received : int32;
END;
VSTA02.vsd