例
000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C1820. 000003 ENVIRONMENT DIVISION. 000004 OBJECT. 000005 DATA DIVISION. 000006 CONSTANT SECTION. 000007 01 A PIC S9(4) COMP-5 VALUE 1 PRIVATE. 000008 END OBJECT. 000009 END CLASS C1820.
C1820.cob (7) : JMN1820I-S アクセス指定句はスタティック定義およびオブジェクト定義の作業場所節またはクラスに含まれるメソッド定義の連絡節以外には記述できません.次の認識できる句,段落,節または部まで無効になります.