引数の説明
一意名(比較対象の左辺) |
一意名(比較対象の右辺) |
'System.Boolean' |
例
000001 PROGRAM-ID. C3522.
000002 ENVIRONMENT DIVISION.
000003 CONFIGURATION SECTION.
000004 REPOSITORY.
000005 CLASS CLASS-BOOLEAN AS "System.Boolean"
000006 CLASS CLASS-INT32 AS "System.Int32"
000007 .
000008 DATA DIVISION.
000009 WORKING-STORAGE SECTION.
000010 01 OBJ-BOOLEAN OBJECT CLASS-BOOLEAN.
000011 01 OBJ-INT32 OBJECT CLASS-INT32.
000012 PROCEDURE DIVISION.
000013 IF OBJ-BOOLEAN = OBJ-INT32 THEN
000014 DISPLAY "CANNOT BE COMPARED"
000015 END-IF
000016 END PROGRAM C3522.
C3522.cob (13) : JMN3522I-S 'OBJ-BOOLEAN'と'OBJ-INT32'は比較できません.System.Boolean型を参照するオブジェクト参照一意名の比較対象は,同じ型または1けたのブール項目でなければなりません.