例題
[C3469.cob] 000001 CLASS-ID. C3469. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 OBJECT. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 PROCEDURE DIVISION. 000008* 000009 METHOD-ID. OM1. 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 01 A TYPEDEF STRONG. 000013 02 D OBJECT REFERENCE C3469. 000014 01 WABC TYPE A. 000015 LINKAGE SECTION. 000016 PROCEDURE DIVISION. 000017 IF SELF::"OM2" = WABC THEN 000018 EXIT METHOD. 000019 END METHOD OM1. 000020* 000021 METHOD-ID. OM2. 000022 DATA DIVISION. 000023 WORKING-STORAGE SECTION. 000024 LINKAGE SECTION. 000025 01 A TYPEDEF STRONG. 000026 02 D OBJECT REFERENCE C3469. 000027 01 ABC TYPE A. 000028 PROCEDURE DIVISION RETURNING ABC. 000029 END METHOD OM2. 000030* 000031 END OBJECT. 000032 END CLASS C3469.
C3469.cob 17: JMN3469I-S 復帰項目がオブジェクト参照データを含む強く型付けされた集団項目となる行内呼出しまたはオブジェクトプロパティは，条件式に指定できません．
