Data Definition Language (DDL) Reference Manual

Dictionary-Manipulation Statements
Data Definition Language (DDL) Reference Manual—529431-004
8-9
OUTPUT UPDATE
Example 8-9. OUTPUT UPDATE Statement
20>DDL dict
Run DDL compiler, opening dictionary in current subvolume.
!?DDL myfile
Open DDL source code file.
!OUTPUT UPDATE zip-cd.
Write update source to myfile.
!?NODDL
Close myfile before editing it.
!?EDIT myfile
...
Change definition of zip-cd.
*EXIT
Exit from the editor.
!?SOURCE myfile
Compile the contents of myfile into the dictionary.
Example 8-10. Contents of myfile After Example 8-9 on page 8-9 (page 1 of 2)
?Section ZIP-CD-DELETES ! First section deletes all
Delete Record SUPPLIER. ! objects that refer to
Delete Record CUSTOMER. ! ZIP-CD.
Delete Definition SUPPINFO.
Delete Definition CUSTINFO.
Delete Definition ADDR.
?Section ZIP-CD ! Second section defines new
Definition ZIP-CD PIC "9(9)". ! ZIP-CD with new length.
?Section ADDR. ! Subsequent sections contain
Definition ADDR. ! definitions to rebuild
02 ADDRESS PIC "X(22)". ! deleted objects.
02 CITY PIC "X(14)".
02 STATE PIC "X(12)".
02 ZIP TYPE ZIP-CD.
End.
?Section CUSTINFO.
Definition CUSTINFO.
02 CUSTNUM TYPE *.
02 CUSTNAME TYPE NAME.
02 ADDR TYPE *.
End.
?Section SUPPINFO.
Definition SUPPINFO.
02 SUPPNUM TYPE *.
02 SUPPNAME TYPE NAME.
02 ADDR TYPE *.
End.