HP DDL D40 Reference Manual page 449

Sample Schemas
DEFINITION suppinfo.
02 suppnum
02 suppname
02 addr
END
* Definition for REGION Record
DEFINITION reginfo.
02 regnum
02 regname
02 location
02 manager
END
* Definition for BRANCH Record
DEF branchinfo.
02 primkey.
03 regnum
03 branchnum
02 branchname
02 manager
END
* Definition for EMPLOYEE Record
DEFINITION empinfo.
02 empnum
02 empname
02 dept.
03 regnum
03 branchnum
02 job
02 age
02 salary
02 vacation
END
!***************************************************************
! FILE DEFINITIONS
!***************************************************************
* Contains customer information for each customer
RECORD customer.
FILE IS "$data.sales.customer"KEY-SEQUENCED
DEFINITION IS custinfo.
KEY IS customer.custnum DUPLICATES NOT ALLOWED.
KEY "cn" IS customer.custname.
END
* Contains order information for each order
RECORD orders.
FILE IS "$data.sales.orders"KEY-SEQUENCED
Data Definition Language (DDL) Reference Manual—426798-002
TYPE *.
TYPE name.
TYPE *.
TYPE *.
PIC X(12).
PIC X(14).
TYPE empnum
HEADING manager-heading.
TYPE *.
TYPE *.
PIC X(14).
TYPE empnum
HEADING manager-heading.
TYPE *.
TYPE name.
TYPE *.
TYPE *.
PIC X(12).
PIC 9(2).
PIC 9(6).
PIC 9(2).
AUDIT
MAXEXTENTS 100.
AUDIT
B- 5
Database Schema Listing