HP DDL D40 Reference Manual page 259

DDL Compiler Commands
* Last name, First name, Middle initial
DEF name.
* Last name
02 last-name
* First name
02 first-name
* Middle initial
02 midinit
END
DEF custname
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
* First name
02 FIRST-NAME
* Middle initial
02 MIDINIT
* An expanded name in the following sequence:
* Last name, First name, Middle initial
01 CUSTNAME.
* Last name
02 LAST-NAME
* First name
02 FIRST-NAME
* Middle initial
02 MIDINIT
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
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
Data Definition Language (DDL) Reference Manual—426798-002
PIC X(12).
PIC X(8).
PIC X(2).
TYPE name.
PIC X(12).
PIC X(8).
PIC X(2).
PIC X(12).
PIC X(8).
PIC X(2).
VALUE IS zspi-tdt-enum
DEF IS zspi-ddl-enum.
NATIVE-2 VALUE IS 2818.
9- 29
COMMENTS Command