例
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