埋め込みの説明
@1@ : FACTORYまたはCLASS
例題
[C5112.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5112. 000003 IDENTIFICATION DIVISION. 000004 FACTORY. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 OBJA USAGE OBJECT REFERENCE FACTORY OF SELF. 000008 01 OBJB USAGE OBJECT REFERENCE CLASS OF SELF. 000009 PROCEDURE DIVISION. 000010 IDENTIFICATION DIVISION. 000011 METHOD-ID. C5112-FM1. 000012 DATA DIVISION. 000013 WORKING-STORAGE SECTION. 000014 01 OBJC USAGE OBJECT REFERENCE FACTORY OF SELF. 000015 01 OBJD USAGE OBJECT REFERENCE CLASS OF SELF. 000016 END METHOD C5112-FM1. 000017 END FACTORY. 000018 IDENTIFICATION DIVISION. 000019 OBJECT. 000020 PROCEDURE DIVISION. 000021 IDENTIFICATION DIVISION. 000022 METHOD-ID. C5112-OM1. 000023 END METHOD C5112-OM1. 000024 END OBJECT. 000025 END CLASS C5112.
C5112.cob 7: JMN5112I-S USAGE OBJECT REFERENCE FACTORY OF SELFは，オブジェクト定義またはオブジェクトメソッド定義内で指定しなければなりません．FACTORY OF SELF指定は無効になります．
C5112.cob 8: JMN5112I-S USAGE OBJECT REFERENCE CLASS OF SELFは，オブジェクト定義またはオブジェクトメソッド定義内で指定しなければなりません．CLASS OF SELF指定は無効になります．
C5112.cob 14: JMN5112I-S USAGE OBJECT REFERENCE FACTORY OF SELFは，オブジェクト定義またはオブジェクトメソッド定義内で指定しなければなりません．FACTORY OF SELF指定は無効になります．
C5112.cob 15: JMN5112I-S USAGE OBJECT REFERENCE CLASS OF SELFは，オブジェクト定義またはオブジェクトメソッド定義内で指定しなければなりません．CLASS OF SELF指定は無効になります．
詳細な説明
USAGE OBJECT REFERENCE FACTORY OF SELFは，ファクトリオブジェクトを保持する領域を宣言します．
USAGE OBJECT REFERENCE CLASS OF SELFは，自身のオブジェクト(インスタンス)を保持する領域を宣言します．
