Data Definition Language (DDL) Reference Manual

DDL Compiler Commands
Data Definition Language (DDL) Reference Manual—529431-004
9-115
VALUES
VALUES
The [NO]VALUES command includes [excludes] initial values from DEFINITION and
RECORD statements in [from] DDL or COBOL source code.
Default: VALUES
VALUES
includes initial values from DEFINITION and RECORD statements in COBOL or
DDL source code.
NOVALUES
excludes initial values from DEFINITION and RECORD statements from DDL or
COBOL source code.
The VALUES command does not affect VALUE clauses associated with level-88 items
or with CONSTANT, TOKEN-CODE, TOKEN-MAP, or TOKEN-TYPE statements.
When the VALUES command is specified and the DDL compiler is generating source
code for FORTRAN, the compiler translates any initial values to comments.
The VALUES command is useful for definitions used in the Linkage sections of
COBOL or SCREEN COBOL, where COBOL initial values are not allowed.
Example 9-61 on page 9-115 suppresses initial values for the definition NEW-NAME.
[NO]VALUES
Example 9-61. VALUES and NOVALUES Commands
DDL Input
?NOTIMESTAMP
?COBOL cobsrc
Suppress timestamp comments
DEF new-numb PIC 9(12)
VALUE IS ZEROS.
By default, include initial values in COBSRC
?NOVALUES
DEF new-name PIC X(18)
VALUE IS "JONES".
Suppress initial values
?VALUES
Include initial values again
DDL Output (COBOL Code)
?SECTION NEW-NUMB,TANDEM
01 NEW-NUMB PIC 9(12)
VALUE ZEROS.
?SECTION NEW-NAME,TANDEM
01 NEW-NAME PIC X(18).