SQL Programming Manual for Pascal

Sample NonStop SQL Database
HP NonStop SQL Programming Manual for Pascal—528614-001
A-5
Sample Database Source File
Figure A-2. Sample Database Source File (page 4 of 4)
?SECTION PARTLOC
{* Record Definition for \SYS1.$VOL1.INVENT.PARTLOC *}
{* Definition current at 09:54:48 - 12/11/91 *}
type
partloc_type = record
loc_code : fstring(3);
partnum : cardinal;
qty_on_hand : int32;
END;
?SECTION ERRORS
{* Record Definition for \SYS1.$VOL1.INVENT.ERRORS *}
{* Definition current at 09:54:49 - 12/11/91 *}
type
errors_type = record
errors_date : int32;
errors_time : int32;
errors_id : int32;
errors_sql : int16;
errors_text1 : fstring(240);
errors_text2 : fstring(240);
END;
VSTA02.vsd