例
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指定によって渡された値を呼ばれた側で変更しても,呼び出した側のデータ項目の値は変更されません.