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