引数の説明
一意名(比較対象の左辺) |
一意名(比較対象の右辺) |
例
000001 PROGRAM-ID. C3494. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005 ENUM ENUM1 AS "System.AttributeTargets" 000006 ENUM ENUM2 AS "System.Reflection.MemberTypes" 000007 . 000008 DATA DIVISION. 000009 WORKING-STORAGE SECTION. 000010 01 ORENUM1 OBJECT ENUM1. 000011 01 ORENUM2 OBJECT ENUM2. 000012 PROCEDURE DIVISION. 000013 IF ORENUM1 = ORENUM2 THEN 000014 DISPLAY "CANNOT BE COMPARED" 000015 END-IF 000016 END PROGRAM C3494.
C3494.cob (13) : JMN3494I-S 'ORENUM1'と'ORENUM2'は比較できません.ENUMフィールドまたはENUM型を参照するオブジェクト参照一意名の比較は同じ型でなければなりません.