Data Definition Language (DDL) Reference Manual

DDL Compiler Commands
Data Definition Language (DDL) Reference Manual—529431-004
9-45
DEFLIST
DEFLIST
The DEFLIST command includes in (or excludes from) the compiler listing a
description of each definition that is referenced by a DEFINITION or RECORD
statement
.
Default: NODEFLIST
DDLSRC
?Section NAME
Definition NAME.
02 LAST-NAME Pic "X(12)"
UPSHIFT.
02 FIRST-NAME Pic "X(8)"
UPSHIFT.
02 MIDINIT Pic "X(2)"
UPSHIFT.
End
?Section ADDR
Definition ADDR.
02 ADDRESS Pic "X(22)".
02 CITY Pic "X(14)".
02 STATE Pic "X(2)".
02 ZIP-CODE Pic "9(5)".
End
?Section CUSTNUM
Definition CUSTNUM Pic "X(4)".
?Section CUSTOMER
Record CUSTOMER.
File is "CUSTOMER" Key-sequenced.
02 CUSTNUM Type *.
02 CUSTNAME Type NAME.
02 CUSTADDR Type ADDR.
Key is CUSTNUM Duplicates not allowed.
Key "CN" is CUSTNAME.
End
Reconstructing the Dictionary on Another Subvolume
>30
!?DICT $data.backup !
!?SOURCE ddlsrc
!EXIT
Open and clear dictionary.
Write source to dictionary.
[NO]DEFLIST
Example 9-20. DDL Command (page 2 of 2)