Data Definition Language (DDL) Reference Manual

DDL Compiler Commands
Data Definition Language (DDL) Reference Manual—529431-004
9-24
COBCHECK
•
No more than 3 levels of nested OCCURS can be in a COBOL data-description
entry.
•
An item specified as a key in a RECORD statement must be alphanumeric. To use
a numeric field as a key, enclose it within a group and specify the group as the key;
a group’s data type is assumed to be alphanumeric regardless of the data types of
its member fields.
When COBCHECK is in effect, the DDL compiler issues this message for each DDL
object statement that passes the syntax check:
COBOL CHECK completed for name
Example 9-10. COBCHECK and NOCOBCHECK Commands
?COBCHECK
RECORD customer.
FILE IS "$data.sales.customer" KEY-SEQUENCED.
02 custnum PIC S9(4) KEYTAG 0.
02 custname PIC X(18) KEYTAG "cn".
02 custaddr TYPE addr.
END
Record CUSTOMER size is 70 bytes.
*** WARNING *** COBOL OUTPUT DIAGNOSTICS:
*** ERROR *** Non-alphanumeric key element - CUSTNUM
?NOCOBCHECK