cobolでシーケンシャルファイルを読む

Question

cobolで何度もシーケンシャルファイルを読む方法はありますか？たとえば、ファイルの最後に達した後、ファイルの先頭から戻ってきますか？

Answer 1

ファイルを閉じて、再度開いて、再度読み込みます。

私はなぜこれをしたいと思うか知りたいですか？

Answer 2

ループ内のファイルを読み込んだり、さまざまな動作を実行したりすることもできます。他の答えと同様に、最後に到達するたびにファイルを閉じて、再度開いてください。

Answer 3

この場合、JOINKEYSのDFSORTは大変役に立ちます。あなたの要求がfile2の文字列のリストでfile1の文字列を検索する場合にのみ、あなたのアプローチを強く示唆していません。

Answer 4

代替案：ファイル1のコピーをユーティリティ（または別のCOBOLプログラム）で作成します。ファイル1aのコピーにはORGANIZATION RELATIVE（VSAM RRDS、おそらく）があります。スキャン/マッチングプログラムでは、START文でファイル1aの最初のレコードに移動することができます。

同様に、インデックス付きシーケンシャルファイル1aを作成することもできます。ここでは、キーはレコード番号と同じように任意の昇順番号になります。

Answer 5

オープン、プロセス、クローズ、再オープン、再処理、再クローズを任意の回数行うことができます。非常に時間がかかります。

Cobolプログラムでは、提案されているように、小さなファイルをテーブルに格納し、大きなファイルに対してテーブルを処理します。

ただし、プログラムは必要ありません。 JOINKEYS あなたに解決策を教えてください。

鍵がありませんか？ああ、こんにちは。あなたは1つを作る。両方のファイルの各レコードに対して、同じ値を持つ同じ1バイトのキーを作成します。そのキーでジョインクをやります。 JOINKEYSでSORTEDを指定します（DFSORTを使用している場合はNOSEQCK）。「デカルト」結合があります。レコード全体またはレコードの一部に使用できるSS（サブストリング一致）を使用します。実際に必要とされる出力は不明ですが、私はあなたが今それを考え出すとは思いません。

DFSORTを使用すると、1ステップで実行できます。 SyncSortを使用すると、JNFnCMTLファイルをサポートしているバージョンであれば、一度に実行できます。