ENFORM User's Guide

Sample Data Base
058058 Tandem Computers Incorporated C–5
Figure C-2. Dictionary Source Listing of Sample Relational Data Base (Page 3 of 3)
*===================== employee records ==========================
RECORD region.
FILE IS "$mkt.sample.region" KEY-SEQUENCED.
02 regnum; PIC "99".
02 regname; PIC "X(12)".
02 location; PIC "X(14)".
02 manager; PIC "9999".
KEY IS regnum.
KEY "rn" IS regname.
END
RECORD branch.
FILE IS "$mkt.sample.branch" KEY-SEQUENCED.
02 primkey.
05 regnum; PIC "99".
05 branchnum; PIC "99".
02 branchname; PIC "X(14)".
02 manager; TYPE empnum.
KEY IS primkey.
END
RECORD employee.
FILE IS "$mkt.sample.employee" KEY-SEQUENCED.
02 empnum; TYPE *.
02 empname; PIC "X(18)".
02 dept.
05 regnum; PIC "99".
05 branchnum; PIC "99".
02 job; PIC "X(12)".
02 age; PIC "99".
02 salary; PIC "999999".
02 vacation; PIC "99".
KEY IS empnum.
KEY "en" IS empname.
KEY "dp" IS dept.
END