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