User guide

Sample Data Base
058058 Tandem Computers Incorporated C–3
The dictionary for the sample data base describes the records. It serves as a template
to ENFORM for retrieval of records. Figure C-2 is a source listing of the dictionary.
Figure C-2. Dictionary Source Listing of Sample Relational Data Base (Page 1 of 3)
?DICT !
?FUP ddlfup!
DEF custnum PIC "9(4)" HEADING "Customer/Number".
DEF partnum PIC "9(4)" HEADING "Part/Number".
DEF empnum PIC "9(4)".
*===================== order entry records =======================
RECORD order.
FILE IS "$mkt.sample.order" KEY-SEQUENCED.
02 ordernum; PIC "999".
02 orderdate.
05 omonth; PIC "99".
05 oday; PIC "99".
05 oyear; PIC "99".
02 deldate.
05 dmonth; PIC "99".
05 dday; PIC "99".
05 dyear; PIC "99".
02 salesman; TYPE empnum.
02 custnum, TYPE *.
KEY IS ordernum.
KEY "sn" IS salesman.
KEY "cn" IS custnum.
END
RECORD customer.
FILE IS "$mtk.sample.customer" KEY-SEQUENCED.
02 custnum; TYPE *.
02 custname; PIC "X(18)".
02 address; PIC "X(22)".
02 city; PIC "X(14)".
02 state; PIC "X(12)".
KEY IS custnum.
KEY "cn" IS custnum.
END
RECORD fromsup.
FILE IS "$mkt.sample.fromsup" KEY-SEQUENCED.
02 primkey.
05 partnum; TYPE *.
05 suppnum; PIC "999".
02 partcost; PIC "999999V99"; DISPLAY "M
ZZZ,ZZ9.99 ".
KEY IS primkey.
END