User guide

Sample Data Base
C–4 058058 Tandem Computers Incorporated
Figure C-2. Dictionary Source Listing of Sample Relational Data Base (Page 2 of 3)
RECORD odetail.
FILE IS "$mkt.sample.odetail" KEY-SEQUENCED.
02 primkey.
05 ordernum; PIC "999".
05 partnum; TYPE *.
02 quantity; PIC "999".
KEY IS primkey.
END
RECORD parts.
FILE IS "$mkt.sample.parts" KEY-SEQUENCED.
02 partnum; TYPE *.
02 partname; PIC "X(18)".
02 inventory; PIC "999S".
02 location; PIC "XXX".
02 price; PIC "999999V99".
KEY IS partnum.
KEY "pn" IS partname.
END
RECORD supplier.
FILE IS "$mkt.sample.supplier" KEY-SEQUENCED.
02 suppnum; PIC "999".
02 suppname; PIC "X(18)".
02 address; PIC "X(22)".
02 city; PIC "X(14)".
02 state; PIC "X(12)".
KEY IS suppnum.
KEY "su" IS suppname.
END