例
000001 CLASS-ID. C3424.
000002 OBJECT.
000003 DATA DIVISION.
000004 WORKING-STORAGE SECTION.
000005 01 PROPDAT PIC S9(9) COMP-5 PROPERTY WITH NO SET.
000006 PROCEDURE DIVISION.
000007 END OBJECT.
000008 END CLASS C3424.
000001 PROGRAM-ID. P3424.
000002 ENVIRONMENT DIVISION.
000003 CONFIGURATION SECTION.
000004 REPOSITORY.
000005 CLASS C3424.
000006 DATA DIVISION.
000007 WORKING-STORAGE SECTION.
000008 01 WDATA PIC S9(9) COMP-5.
000009 01 OBJC3424 OBJECT REFERENCE C3424.
000010 PROCEDURE DIVISION.
000011 MOVE WDATA TO PROPDAT OF OBJC3424.
000012 END PROGRAM P3424.
P3424.cob (11) : JMN3424I-S プロパティ設定メソッドが定義されていません．
詳細な説明
オブジェクトプロパティが設定側(受取り側)に記述されているとき，そのプロパティに対して取出しメソッドは存在するが設定メソッドが存在しない場合に，このエラーメッセージが出力されます．このオブジェクトプロパティは，参照側(送出し側)にしか書くことができません．