2.4.302 JMN3548I-S

INITONLY属性のオブジェクトデータである@1@が受取り側要素として指定できるのは，それが定義されているクラスのコンストラクタの手続きのみです．それ以外のメソッドでは参照側にしか指定できません．

引数の説明

@1@:

データ名

例

      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データなのであれば，定義されているクラスのコンストラクタの手続きのみです．