1-- from PRD.CUST.KSDS, CUSTREC.cpy (58 to 103 bytes)
2CREATE TABLE customer (
3 cust_id CHAR(12) PRIMARY KEY,
4 cust_name VARCHAR(30) NOT NULL,
5 cust_type CHAR(1) NOT NULL CHECK (cust_type IN ('R', 'C')),
6 credit_limit NUMERIC(11,2) NOT NULL,
7 open_date DATE
8);
9-- AIX1 KEYS(30 12) NONUNIQUEKEY
10CREATE INDEX customer_name_ix ON customer (cust_name);
11-- OCCURS 0 TO 3 DEPENDING ON CUST-PHONE-COUNT
12CREATE TABLE customer_phone (
13 cust_id CHAR(12) NOT NULL REFERENCES customer (cust_id),
14 seq SMALLINT NOT NULL CHECK (seq BETWEEN 1 AND 3),
15 phone VARCHAR(15) NOT NULL,
16 PRIMARY KEY (cust_id, seq)
17);
18-- review: open_date 00000000 loads as NULL (12 programs test it)
19-- review: credit_limit S9(9)V99 COMP-3, 6 bytes, sign nibble C/D/F