例
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句は無効になります.