例題
[C3437.cob] 000001 CLASS-ID. C3437. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005 OBJECT. 000006 DATA DIVISION. 000007 WORKING-STORAGE SECTION. 000008 01 OBJ1 OBJECT REFERENCE C3437 PROPERTY. 000009 PROCEDURE DIVISION. 000010* 000011 METHOD-ID. METHODI. 000012 DATA DIVISION. 000013 LINKAGE SECTION. 000014 01 OBJ2 OBJECT REFERENCE C3437. 000015 PROCEDURE DIVISION RETURNING OBJ2. 000016 IF SELF::"METHODI" = NULL THEN 000017 EVALUATE OBJ1 OF SELF 000018 WHEN NULL 000019 DISPLAY "NULL" 000020 WHEN OTHER 000021 DISPLAY "OHTER" 000022 END-EVALUATE 000023 END-IF. 000024 END METHOD METHODI. 000025* 000026 END OBJECT. 000027 END CLASS C3437.
C3437.cob 16: JMN3437I-S 復帰項目の用途がオブジェクト参照データとなる行内呼出しまたはオブジェクトプロパティは，条件式に指定できません．
C3437.cob 18: JMN3437I-S 復帰項目の用途がオブジェクト参照データとなる行内呼出しまたはオブジェクトプロパティは，条件式に指定できません．
