埋め込みの説明
@1@ : クラス名
例題
[C1767.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1767 INHERITS FJBASE. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS FJBASE 000007 . 000008 OBJECT. 000009 DATA DIVISION. 000010 WORKING-STORAGE SECTION. 000011 01 OBJR USAGE OBJECT REFERENCE FJBASE. 000012 PROCEDURE DIVISION. 000013* 000014 METHOD-ID. M1767 PROTOTYPE. 000015 END METHOD M1767. 000016* 000017 END OBJECT. 000018 END CLASS C1767. 000019/
[M1767.cob] 000001 IDENTIFICATION DIVISION. 000002 METHOD-ID. M1767 OF C1767. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 CLASS C1767 000007 CLASS FJBASE AS "*COM" 000008 . 000009 PROCEDURE DIVISION. 000010 END METHOD M1767.
M1767.cob 5: JMN1767I-S リポジトリ段落に指定されたクラス'FJBASE'は,メソッド原型定義時の指定と同じでなければなりません.クラス'FJBASE'の指定は無効になります.