例
000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5254. 000003 ENVIRONMENT DIVISION. 000004 OBJECT. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 PROP1 PIC X(5) PROPERTY. 000008 END OBJECT. 000009 END CLASS C5254.
C5254.cob (7) : JMN5254I-S プロパティ設定メソッドを生成するPROPERTY句は,数字項目,オブジェクト参照データ項目,または1文字の日本語項目に指定できます.PROPERTY句は無効になります.