埋め込みの説明
@1@ : クラス名
例題
[A.cob] 000001 CLASS-ID. A. 000002 END CLASS A.
[B.cob] 000001 CLASS-ID. B INHERITS A. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005 CLASS A. 000006 END CLASS B.
[X.cob] 000001 CLASS-ID. X. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005 CLASS B. 000006 FACTORY. 000007 PROCEDURE DIVISION. 000008* 000009 METHOD-ID. MX. 000010 DATA DIVISION. 000011 LINKAGE SECTION. 000012 01 OBJB OBJECT REFERENCE B. 000013 PROCEDURE DIVISION RETURNING OBJB. 000014 END METHOD MX. 000015* 000016 END FACTORY. 000017 END CLASS X.
[C3445.cob] 000001 PROGRAM-ID. C3445. 000002 ENVIRONMENT DIVISION. 000003 CONFIGURATION SECTION. 000004 REPOSITORY. 000005 CLASS A 000006 CLASS X. 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 OBJA OBJECT REFERENCE A. 000010 LINKAGE SECTION. 000011 PROCEDURE DIVISION. 000012 INVOKE X "MX" RETURNING OBJA 000013 END PROGRAM C3445.
C3445.cob 12: JMN3445I-S 間接的に参照されるクラス'B'は，リポジトリ段落に指定しなければなりません．
