READ文（索引ファイル機能の拡張）

形式: 書き方1　順アクセスのREAD文; 書き方2　乱アクセスのREAD文

機能: 順アクセスのREAD文は，START文で決定したアクセス順序に従い，ファイルの次の，または前のレコードを使用できるようにする。; 乱アクセスのREAD文は，大記憶ファイルの指定されたレコードを使用できるようにする。

構文規則

一意名1の記憶領域とファイル名1のレコード領域とは，同じであってはならない。
データ名1は，ファイル名1に関連するレコードキーとして指定されたデータ項目でなければならない。
合成キー名1は，SOURCE指定，または=指定のあるRECORD KEY句，SOURCE指定，FOR指定，または=指定のあるALTERNATE RECORD KEY句に書かれた合成キー名を指定する。
データ名1は，修飾してもよい。合成キー名1は，ファイル名で修飾できる。
順アクセス法のファイルにアクセスするときには，書き方1を用いる。
動的アクセス法のファイルのレコードを順アクセスするときには，NEXT指定またはPREVIOUS指定を書かなければならない。
動的アクセス法のファイルのレコードを乱アクセスするときには，書き方2を用いる。
動的アクセス法のファイルを乱アクセスした後，NEXT指定によって順アクセスする場合，これ以降レコードのアクセスはキーの上昇順に行われる。
ファイル名1にUSE手続きがないときは，INVALID KEY指定またはAT END指定を書かなければならない。

一般規則

ファイル名1のファイルは，READ文を実行する前に入力モードまたは入出力両用モードで開いておかなければならない。
順アクセス法の索引ファイルに対して，NEXTを指定した場合，またはNEXT指定およびPREVIOUS指定のどちらも省略した場合は，START文による指定に従って，そのファイルから次の，または前のレコードにアクセスする。PREVIOUSを指定した場合は，START文による指定に関係なく，そのファイルから前のレコードにアクセスする。
READ文の実行によって，ファイル名1に関連する入出力状態の値が更新される。
無条件文2または無条件文4を指定すると，レコードはその実行前に使用できるようになる。無条件文2または無条件文4を指定しないと，レコードはREAD文に続く文の実行前に使用できるようになる。
このファイルにレコード記述項が二つ以上あるときには，それらのレコードは再定義の規則に従って記憶領域中の同じレコード領域を共用する。READ文の実行が完了したときの，現在レコードの範囲を超えた位置にあるデータ項目の内容は保証しない。
INTO指定のあるREAD文の実行結果は，次に示す規則の順に適応したものと等しい。
（a）INTO指定のないREAD文の実行。
（b）現在レコードがCORRESPONDING指定のないMOVE文の規則に従って，レコード領域から一意名1の領域へ転記される。現在レコードのサイズは，RECORD句の規則で定める。暗黙の転記は集団項目転記となる。
このレコードは，入力レコード領域と一意名1のデータ項目の両方で使用できるようになる。READ文の実行が不成功になったときには，この転記はされない。一意名1に付けた添字は，レコードを読んだ後で転記する直前に評価される。
ファイル位置指示子が，次のレコードがないことを示しているとき，次の順序で動作する。
（a）ファイル位置指示子の設定に従って，ファイル終了条件を示す値が，ファイル名1に関連する入出力状態に設定される。
（b）READ文にAT END指定を書くと，AT END指定の無条件文1が実行される。ファイル名1に関連するUSE手続きは実行されない。
（c）READ文にAT END指定を書かないと，ファイル名1に関連するUSE手続きを書かなければならず，USE手続きが実行される。その手続きからは，READ文に続く次の実行文に復帰する。ファイル終了条件になると，その条件を起こしたREAD文の実行ができなくなる。
READ文の実行でファイル終了条件または無効キー条件のどれも起こらなかったとき，AT END指定またはINVALID KEY指定があっても無視され，次のように動作する。
（a）ファイル位置指示子が設定され，そのファイル名1に関連する入出力状態が更新される。
（b）ファイル終了条件または無効キー条件のどれでもない例外条件になったとき，ファイル名1に関連するUSE手続きが実行された後，USE文の規則に従って制御が移される。
（c）例外条件にならなかったとき，レコードは，レコード領域で使用できるようになり，INTO指定があれば暗黙に転記される。制御は，READ文の終わり，または無条件文2が指定されていれば，そこに移る。後者の場合，無条件文2で指定されている各文の規則に従って実行が続く。明示的な分岐または条件文が実行されたとき，制御はその文の規則に従って移され，その他では，無条件文2の実行の完了によって，制御がREAD文の終わりに移る。
READ文の実行ができなくなった後の，関連するレコード領域の内容および索引ファイルの参照キーは規定しない。ファイル位置指示子には，有効な次のレコードが確立しなかったことが設定される。
書き方1のREAD文の実行が開始されるときのファイル位置指示子の設定値は，次の規則に従って，使用できるレコードを定めるために使用される。
索引ファイルでのレコードの比較は，現在の参照キーの値による。
（a）ファイル位置指示子が，有効な次のレコードがないことを示しているとき，READ文の実行は不成功となる。
（b）先に実行されたOPEN文またはSTART文によってファイル位置指示子が設定されているとき，そのファイル位置指示子より大きいかまたは等しい（レコード下降順アクセスのときは小さいかまたは等しい）キー値を持つレコードが選択される。
（c）先に実行されたREAD文によってファイル位置指示子が設定されているときで，かつ現在の参照キーが重複を許さない索引ファイルに対してのとき，そのファイル位置指示子より大きい（レコード下降順アクセスのときは小さい）キー値を持つレコードが選択される。
（d）先に実行されたREAD文によってファイル位置指示子が設定されているときで，かつ現在の参照キーが重複を許す索引ファイルに対してのとき，選択されるレコードは次のどれかである。
・キー値がファイル位置指示子に等しく，かつ，その重複したレコードキー値を持つレコードの組の中で，先に実行されたREAD文で使用できるようになったレコードの論理的に直後（レコード下降順アクセスのときは直前）にあるレコード
・キー値がファイル位置指示子より大きい（レコード下降順アクセスのときは小さい）最初のレコード
　上記の規則を満たすレコードが見つかると，そのレコードがファイル名1に関連するレコード領域で使用できるようになる。
　上記の規則を満たすレコードが見つからないとき，ファイル位置指示子は次のレコードが存在しないことを示すように設定され，一般規則7に従って実行が続けられる。
　レコードが使用できるようになると，ファイル位置指示子には使用できるようになったレコードのレコード番号またはキー値が設定される。
読み込んだレコードのサイズがファイル名1のレコード記述項で指定された最小のサイズより小さいとき，読み込まれた最後の有効な文字の右にあるレコード領域の部分の内容は不定である。読み込んだレコードのサイズがファイル名1のレコード記述項で指定された最大のサイズより大きいとき，レコードは右側が切り捨てられて最大のサイズとなる。どの場合も，入出力状態はレコード長の不整合を示すように設定される。
END-READ指定は，READ文の範囲を区切る。
動的アクセス法の索引ファイルに対して，NEXT指定のある書き方1のREAD文を書くと，START文による指定に従って，そのファイルから次の，または前のレコードにアクセスする。PREVIOUSを指定した場合は，START文による指定に関係なく，そのファイルから前のレコードにアクセスする。
副レコードキーを参照キーとして順アクセスするときに，その値で指定されるレコードは重複して存在することがある。その場合の順アクセスのREAD文は，WRITE文またはREWRITE文で重複した値を持つレコードを書き出した順に従って，（レコード下降順アクセスのときは書き出した順とは逆の順に）レコードにアクセスする。
書き方1のREAD文の参照キーは，関連するファイルに対して直前に実行されたOPEN，READまたはSTART文によって定まる。
書き方2のREAD文でKEY指定を書くと，そのデータ名1，または合成キー名1がこのREAD文の参照キーとなる。動的アクセス法の場合，そのファイルに対するそれ以降の書き方1のREAD文は，別の参照キーが指定されるまで，この参照キーを使用する。
書き方2のREAD文でKEY指定を書かないと，主レコードキーがこの文の参照キーとなる。動的アクセス法の場合，そのファイルに対するそれ以降の書き方1のREAD文は，別の参照キーが指定されるまで，この参照キーを使用する。
書き方2のREAD文を実行すると，ファイル位置指示子に参照キーの値が設定される。この値は，ファイルのレコード中の対応するデータ項目の値と一致する最初のレコードが見つかるまで比較される。副レコードキーが重複した値を持つとき，最初に見つかるレコードは，大記憶管理システムに渡された重複した副レコードキー値を持つ一連のレコードの最初（レコード下降順アクセスのときは最後）のものである。一致するレコードがあると，ファイル名1に関連するレコード領域で使用できるようになる。一致するレコードがないとき無効キー条件になり，READ文の実行ができなくなる。

【標準仕様との関連】: COBOL2002　言語　標準仕様編　10.8.33 READ文

4.4.1 READ文（索引ファイル機能の拡張）

4.4.1　READ文（索引ファイル機能の拡張）