引数の説明
データ名 |
例
000001 @OPTIONS INITONLY(OBJECT) 000002 IDENTIFICATION DIVISION. 000003 CLASS-ID. C3548. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 REPOSITORY. 000007 . 000008 OBJECT. 000009 ENVIRONMENT DIVISION. 000010 DATA DIVISION. 000011 WORKING-STORAGE SECTION. 000012 01 ODATA PIC S9(9) COMP-5. 000013 PROCEDURE DIVISION. 000014* 000015 METHOD-ID. OO1. 000016 DATA DIVISION. 000017 WORKING-STORAGE SECTION. 000018 LINKAGE SECTION. 000019 PROCEDURE DIVISION. 000020 MOVE 30 TO ODATA. 000021 END METHOD OO1. 000022* 000023 END OBJECT. 000024* 000025 END CLASS C3548.
C3548.cob (20) : JMN3548I-S INITONLY属性のオブジェクトデータである'ODATA'が受取り側要素として指定できるのは,それが定義されているクラスのコンストラクタの手続きのみです.それ以外のメソッドでは参照側にしか指定できません.
詳細な説明
INITONLY属性のデータは,初期化のみ可能であり,以後の値の書き込みはできないデータです.従ってそのデータが受取り側として指定できるのは,それがOBJECTデータなのであれば,定義されているクラスのコンストラクタの手続きのみです.