Data Definition Language (DDL) Reference Manual

Definition Attributes
Data Definition Language (DDL) Reference Manual—529431-004
6-69
Specifying TYPE *
If the TYPE clauses in the orderinfo definition in Example 6-56 on page 6-68 were
replaced by the structures they represent, the definition look like Example 6-57 on
page 6-69.
The definition orderinfo, referenced by TYPE *, keeps its name in the orderinfo
record, but its implicit level-01 is changed to 02, and a new heading overrides its
original heading.
New headings specified for ordernum, orderdt, and delivdate override the
heading declared in orddate and deldate.
Definition That Refers to Dictionary Definitions
DEF orderinfo.
02 employee TYPE name.
02 ordernum TYPE * HEADING
"Order/Number".
02 orderdt TYPE orddate HEADING "Order Date".
02 orderint TYPE ordintervalHEADING "Order
Interval".
02 delivdate TYPE deldate HEADING "Deliv Date".
02 salesman PIC 9(4) HEADING "Salesman #".
02 custnum PIC 9(4) HEADING "Customer #".
END
Example 6-57. Equivalent to Example 6-56 on page 6-68
DEF orderinfo.
02 employee.
03 last-name PIC X(10).
03 first-name PIC X(20).
02 ordernum PIC 9(3) HEADING "Order
Number".
02 orderdt TYPE SQL DATETIME YEAR TO DAY HEADING "Order
Date".
02 orderint TYPE SQL INTERVAL MONTH 2 HEADING "Order
Interval".
02 delivdate TYPE SQL DATE HEADING "Deliv
Date".
02 salesman PIC 9(4) HEADING "Salesman
#".
02 custnum PIC 9(4) HEADING "Customer
#".
END
Example 6-56. TYPE def-name and TYPE * Clauses (page 2 of 2)