Data Definition Language (DDL) Reference Manual

Definitions and Records
Data Definition Language (DDL) Reference Manual—529431-004
5-19
Examples
Examples
The RECORD statements in Example 5-5 on page 5-19 through Example 5-8 on
page 5-20 refer to the definitions in Example 5-4 on page 5-19.
Example 5-4. Definitions Referenced in RECORD Statements
CONSTANT phone-heading VALUE IS "Phone Number".
CONSTANT phone-display VALUE IS "M<[phone]>".
DEF phone HEADING phone-heading
DISPLAY phone-display.
02 area-code PIC 9(3).
02 prefix PIC 9(3).
02 numb PIC 9(4).
END
DEF addr.
02 address PIC X(22).
02 city PIC X(14).
02 state PIC X(12).
END
DEF custinfo.
02 custnum PIC 9(4).
02 custname PIC X(18).
02 addr TYPE *.
END
Example 5-5. Record Defined by Existing Definition
RECORD cust.
FILE IS "$data.sales.customer". ! File name
KEY-SEQUENCED. ! File type
DEF IS custinfo. ! Record structure
KEY IS cust.custnum. ! Primary key
KEY "nm" IS cust.custname. ! Alternate key
END.
Example 5-6. Record With Unique Alternate Key
RECORD supplier-info.
FILE IS "$data.sales.supplier" KEY-SEQUENCED .
02 suppnum PIC 9(4).
02 suppname PIC X(18).
02 addr TYPE *.
KEY IS suppnum.
KEY "sn" IS suppname DUPLICATES NOT ALLOWED .
END