NOINIT

NOINIT は、INITIAL 属性を無視する場合に使用される記憶域属性です。

NOINIT 属性を LIKE 属性とともに使用すると、LIKE を使用して宣言された既存の変数から、INITIAL 値は継承せずにすべてのサブ構造体を継承できます。

NOINIT 属性は、レベル 1 の構造体でのみ有効です。

この例では、既存の変数からすべてのサブ構造体を継承する新しい変数を宣言し、NOINIT を使用して INITIAL 属性を無視しています。

dcl 1 s1,
    2 i fixed bin (31) init(88),
    2 j fixed bin (31) init(99);

dcl s2 like s1 noinit;