DDL Compiler Commands
Data Definition Language (DDL) Reference Manual — 426798-002
9- 29
COMMENTS Command
* 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.
The comment is in the file COBSRC, preceding NAME and CUSTNAME:
* 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).
In the following example, a comment on a TOKEN-TYPE statement is inherited in the
C, COBOL, Pascal, TACL, and pTAL or TAL source code generated for the token type:
?DICT
?COBOL
?TAL
?TACL
?COMMENTS
?CLISTOUT
?NOTIMESTAMP
*Token type for enumerated tokens
TOKEN-TYPE zspi-typ-enum VALUE IS zspi-tdt-enum
DEF IS zspi-ddl-enum.
The generated C code is:
/* Token type for enumerated tokens */
#pragma section zspi_typ_enum
#define ZSPI_TYP_ENUM 2818u
The generated COBOL85 code is:
*Token type for enumerated tokens
01 ZSPI-TYP-ENUM NATIVE-2 VALUE IS 2818.
