ＣＯＢＯＬ８５のコーディングについて

質問

ＣＯＢＯＬ８５のコーディングについて教えてください。
以下のようなレコードを持つテーブルで、ＣＤ１＝"Ｂ"のレコードを、(1)→(2)→(3)の降順で読み込むには、どのようにコーディングすれば可能でしょうか？
コーディング例をお願いします。

　　ＣＤ１｜ＣＤ２｜ＤＡＴＥ
　　――――――――――――――――
　　Ａ　　｜１　　｜２０１２０１０１
　　Ａ　　｜２　　｜２０９９１２３１
(3)　Ｂ　　｜１　　｜２０１２０１０１
(2)　Ｂ　　｜２　　｜２０１３１２３１
(1)　Ｂ　　｜３　　｜２０９９１２３１
　　Ｃ　　｜１　　｜２０１２０１０１
　　Ｃ　　｜２　　｜２０９９１２３１

回答No.3

PUNCHI_PUNTA

データベースなのか、シーケンシャルファイルなのかで違うと思いますが
データベースなら

EXEC SQL DECLARE CUR1 CURSOR FOR
SELECT CD1,CD2,DATE
FROM テーブル
ORDER BY CD2 DESC
END-EXEC.

EXEC SQL DECLARE CUR1 CURSOR FOR

EXEC SQL
FETCH CUR1
INTO :XXX-REC
END-EXEC.

みたいにすると、ソートのかかった状態でデータ処理できますよ。

回答No.2

ToOrisugaru

２か、４ならしってるけど多分同じでしょ（操作方法は大幅に違うかな．．）だとしても、ファイル編成は多分同じなので
上記通りのファイルであれば、Ｂのレコードが上記例で３件程度なら、一度メモリに貯めこんで、内部ソートするのが
いいと思います。
最近のＣＯＢＯＬでは、ＯＣＣＵＲＳ句にて最大６５５３４指定できるかと思いましたが、一昔では最大２５５でした。
この辺は、ＣＯＢＯＬマニュアルを確認してください。

仮に、何件くるかわからない場合は、Ｂのレコードを別ファイルに抜き出して、（ＢをキーとしＪＣＬで抽出）後、Ｂが
入ったファイルをｓｏｒｔ（降順に）後、上記ファイルと抜き出しソート後ファイルを照合し結果として上記ご質問の内容を
実現する方法があるかと思います。

　元のファイル（キーのみ抜粋）
　　　Ａ，１
　　　Ａ，２
　　　Ｂ，１
　　　Ｂ，２　　　　　
　　　Ｂ，３
　　　Ｃ，１
　　　Ｃ，２　　　

　　上記ファイルを抽出　（ｔｅｍｐ１）

　　　Ｂ，１
　　　Ｂ，２　　　　　
　　　Ｂ，３

　　　ソート後ファイル　ファイル１

　　　Ｂ，３
　　　Ｂ，２　　　　　
　　　Ｂ，１

　　このファイルと元のファイルからＢを除いたファイル　（以下ファイル２と仮名）

　　　Ａ，１
　　　Ａ，２
　　　Ｃ，１
　　　Ｃ，２　　　

　　　ファイル１とファイル２を照合（１番目の項目を照合キーとして）

　　　Ａ，１
　　　Ａ，２
　　　Ｂ，３
　　　Ｂ，２　　　　　
　　　Ｂ，１
　　　Ｃ，１
　　　Ｃ，２　　　

　　　結果上記Ｂ項目が降順となるようにファイルが作成される
　　　（って具合になるかと思います）

　　（注意：上記例では、ＣＤ１がコード順であることが前提です。）　

　　　★基本的に汎用機では大容量のデータを扱うことが多くマシン１台に多くの端末がぶら下がり
　　　　多くの利用者が同時に利用しています。よってあまり多くのレコードをメモリ上に抱えて処理する
　　　　のは好ましくありません。上記例のようにファイルの抽出、ソート、マージのパターンを駆使して
　　　　処理を実現していきます。
　　　　ＪＣＬを利用して処理を考案する前に、マニュアルとしてスーパーバイザ解説書ってのがある
　　　　はずなので最初にそれを熟読しておきましょ！

回答No.1

ToOrisugaru

ＣＯＢＯＬで扱える標準編成ファイルは、基本的に順編成ファイル、直編成ファイル、索引順編成ファイル、区分編成ファイル
の４種類です。（マシンにより、汎用機、ｌｉｎｕｘ（unix系）にもよるのですが、ご質問の言語はどの環境で取り扱うのでしょうか？
汎用機などでは、ＣＯＢＯＬ言語だけでなく、ｊｓ（ｊｃｌ）のユーティリティも駆使して実現することになります。
また、ｕｎｉｘ系だと、専用のユーティリティ（sort、margeなど）も用意されているかと思いますが？？
また、扱うデータ量によりＤＢを選択する選択肢もあります。

補足

大変失礼しました。
ACOS2の環境で取り扱います。