INITIALIZE ステートメントは、選ばれたカテゴリーのデータ・フィールドを あらかじめ定義されている値に設定します。このステートメントは、 機能的には 1 つ以上の MOVE ステートメントを実行するのと同じことになります。
フォーマット .------. V | >>-INITIALIZE----ID-1-+-----------------------------------------> >--+----------------------------------------------------------------------+->< | .-------------------------------------------------------. | | V | | '-REPLACING----+-ALPHABETIC----------+--+------+--BY--+-ID-2-------+-+-' +-ALPHANUMERIC--------+ '-DATA-' '-リテラル-1--' +-ALPHANUMERIC-EDITED-+ +-NATIONAL------------+ +-NATIONAL-EDITED-----+ +-NUMERIC-------------+ +-NUMERIC-EDITED------+ +-DBCS----------------+ '-EGCS----------------'
ID-1 は、以下のいずれかを参照する必要があります。
ID-1 が国別グループ項目を参照する場合は、ID-1 はグループ項目として処理されます。
ID-2 が国別グループ項目を参照する場合は、ID-2 は 国別カテゴリーの基本データ項目として処理されます。
ID-2 は、ID-1 を受け取りオペランドとして指定した MOVE ステートメントの送り出しオペランドとして有効な基本データ項目 (または基本項目として扱われる国別グループ項目) を参照する必要があります。
リテラル-1 は、ID-1 を受け取りオペランドとして指定した MOVE ステートメントの送り出しオペランドとして有効なリテラルでなければなりません。
添え字付きの項目を ID-1 に指定することができます。完全なテーブルを含むグループを ID-1 として指定することによってのみ、テーブル全体を初期設定することができます。
使用上の注意: ID-1 のデータ記述項目には、OCCURS 節の DEPENDING 句を入れることができます。ただし、 INITIALIZE ステートメントを使用しても、可変位置項目または可変長項目を初期化することはできません。
ID-1 のデータ記述項目に、RENAMES 節を入れることはできません。
特殊レジスターは、暗黙の MOVE ステートメントの有効な受け取りフィールドまたは送り出しフィールドである場合のみ、 それぞれ ID-1 および ID-2 として指定することができます。
REPLACING 句が指定されている場合:
REPLACING という語に続くキーワードは、データのクラスとカテゴリーに示されたデータのカテゴリーに対応しています。
REPLACING 句が指定されていない場合、
REPLACING 句が指定されている場合、
初期設定は、ID-2 またはリテラル-1 によって参照されるデータ項目が、この受け取り項目への暗黙の MOVE ステートメントの送り出しオペランドであるかのように行われます。
次の例外を除き、そのような基本受け取りフィールドは、グループ内のテーブル項目のオカレンスも含め、すべて初期設定されます。