例
000001 IDENTIFICATION DIVISION.
000002 ENUM-ID. C1810 INHERITS WINT32.
000003 ENVIRONMENT DIVISION.
000004 CONFIGURATION SECTION.
000005 REPOSITORY.
000006 CLASS WINT32 AS "System.Object".
000007 DATA DIVISION.
000008 WORKING-STORAGE SECTION.
000009 01 SPORTS VALUE AUTO.
000010 END ENUM C1810.
C1810.cob (2) : JMN1810I-S ENUM定義のINHERITS句に指定できないクラスが指定されています．INHERITS句は無効になります．
詳細な説明
ENUM-ID段落のINHERITS句にはENUMの要素の型を指定します．したがって指定可能なクラスは以下に限られます．
System.Byte
System.Int16
System.Int32
System.Int64