Data Definition Language (DDL) Reference Manual

DDL Compiler Commands
Data Definition Language (DDL) Reference Manual—529431-004
9-30
COMMENTS
In Example 9-14 on page 9-30, the two comment lines preceding the group definition of
NAME are stored as a single comment associated with NAME in the open dictionary,
and three starred comment lines are each associated with an element within the group
definition NAME. The comments are also written to the open COBOL source code file
COBSRC (preceding NAME and CUSTNAME), where they are inherited by the
definition CUSTNAME, which refers to NAME.
In Example 9-15
on page 9-31, a comment on a TOKEN-TYPE statement is inherited
in the C, COBOL, Pascal (on D-series systems), TACL, and pTAL or TAL source code
generated for the token type.
Example 9-14. COMMENTS Command
DDL Input
?DICT
?COBOL cobsrc
?COMMENTS
?CLISTOUT
?NOTIMESTAMP
* An expanded name in the following sequence:
* Last name, First name, Middle initial
DEF name.
* Last name
02 last-name PIC X(12).
* First name
02 first-name PIC X(8).
* Middle initial
02 midinit PIC X(2).
END
DEF custname TYPE name.
DDL Output (COBOL Code)
* An expanded name in the following sequence:
* Last name, First name, Middle initial
01 NAME.
* Last name
02 LAST-NAME PIC X(12).
* First name
02 FIRST-NAME PIC X(8).
* Middle initial
02 MIDINIT PIC X(2).
* An expanded name in the following sequence:
* Last name, First name, Middle initial
01 CUSTNAME.
* Last name
02 LAST-NAME PIC X(12).
* First name
02 FIRST-NAME PIC X(8).
* Middle initial
02 MIDINIT PIC X(2).