埋め込みの説明
@1@ : 送出し側一意名
@2@ : 受取り側一意名
例題
[JMN3412I-A.cob] 000001 CLASS-ID. JMN3412I-A. 000002 OBJECT. 000003 PROCEDURE DIVISION. 000004* 000005 END OBJECT. 000006 END CLASS JMN3412I-A.
[JMN3412I-S.cob] 000001 CLASS-ID. JMN3412I-S. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005 CLASS JMN3412I-A. 000006 OBJECT. 000007 PROCEDURE DIVISION. 000008* 000009 METHOD-ID. JMN3412-M1. 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 01 OBJA OBJECT REFERENCE JMN3412I-A. 000013 LINKAGE SECTION. 000014 PROCEDURE DIVISION. 000015 SET OBJA TO SELF. 000016 END METHOD JMN3412-M1. 000017* 000018 END OBJECT. 000019 END CLASS JMN3412I-S.
JMN3412I-S.cob (15) : JMN3412I-S 定義済みオブジェクト一意名SELFは'OBJA'に適合していなければなりません．
詳細な説明
オブジェクト参照の代入を目的とする，明に書いたSET文または暗黙のSET文において，送出し側と受取り側のオブジェクト参照一意名の組み合わせが規則として許されない場合に，このメッセージが出力されます．組み合わせの規則は“COBOL文法書”の“11.8.5.4 代入時の適合”に示されていますので，そちらをご確認ください．
