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