Data Definition Language (DDL) Reference Manual

Dictionary Maintenance
Data Definition Language (DDL) Reference Manual—529431-004
10-3
Adding Dictionary Objects
In Example 10-2 on page 10-3, the record DEPENDENTS contains two fields
(EMPNUM and DEPNAME) that refer to existing objects in the dictionary.
Example 10-2. Adding a New Record to a Dictionary
Add the record:
40> EDIT newsrc !; ADD
1 RECORD dependents.
2 FILE IS $data.sales.empdep KEY-SEQUENCED
3 AUDIT.
4 O2 dep-key.
5 04 empnum TYPE *.
6 04 depnum PIC X(4).
7 02 depname TYPE name.
8 02 age PIC 9(2).
9 02 sex PIC X(2).
10 88 female VALUE "01".
11 88 male VALUE "02".
12 KEY IS dep-key.
13 END
14 //
*EXIT
Specify a new record
View the record:
41> DDL DICT $data.sales
!?SOURCE newsrc
1 RECORD dependents.
2 FILE IS $data.sales.empdep KEY-SEQUENCED
3 AUDIT.
4 02 dep-key.
5 04 empnum TYPE *.
6 04 depnum PIC X(4).
7 02 depname TYPE name.
8 02 age PIC 9(2).
9 02 sex PIC X(2).
10 88 female VALUE "01".
11 88 male VALUE "02".
12 KEY IS dep-key.
13 END
Record DEPENDENTS size is 34 bytes.
Record DEPENDENTS added to dictionary.
!EXIT