例
000001 IDENTIFICATION DIVISION.
000002 CLASS-ID. C5709.
000003 ENVIRONMENT DIVISION.
000004 OBJECT.
000005 PROCEDURE DIVISION.
000006 METHOD-ID. SET PROPERTY PR5709.
000007 DATA DIVISION.
000008 LINKAGE SECTION.
000009 01 LK1 PIC S9(9) COMP-5.
000010 PROCEDURE DIVISION
000011 USING LK1.
000012 END METHOD.
000013 END OBJECT.
000014 END CLASS C5709.
C5709.cob (11) : JMN5709I-W プロパティ設定メソッドのUSING指定には,BY VALUEを指定しなければなりません.BY VALUEが指定されたとみなします.
詳細な説明
プロパティ設定メソッドのUSINGパラメタにはBY VALUEを指定して,値を直接渡すようにします.BY VALUE指定によって渡された値を呼ばれた側で変更しても,呼び出した側のデータ項目の値は変更されません.