COBOLでのランダムアクセス

Question

すみませんCOBOL初心者です。

FILE-CONTROL.
SELECT URIAGE-MOKUHYOU ASSIGN TO "c:\dat\mokuhyou.dat" 
ORGANIZATION IS INDEXEDACCESS MODE IS RANDOM RECORD KEY IS UM-SHITEN-CODE.
DATADIVISION.
　　FILESECTION.
　　FD URIAGE-MOKUHYOU.
　　01 UM-REC.
　　　05 UM-SHITEN.
　　　　10 UM-SHITEN-CODEPIC X(4).
　　　　10 UM-SHITEN-MEIPIC X(20).
　　　05 UM-KINGAKUPIC 9(10) OCCURS 12.
WORKING-STORAGESECTION.
　　01 TSUKIPIC 9(2).
　　01 WK-SHITEN-CODEPIC X(4).

 PROCEDUREDIVISION.
　　DISPLAY "支店コードを入力してください --> : "
　　ACCEPT WK-SHITEN-CODE
　　OPEN INPUT URIAGE-MOKUHYOU
　　READ URIAGE-MOKUHYOU 
　　　INVALID KEY
　　　　DISPLAY "ERROR; 支店コード = " WK-SHITEN-CODE
　　　NOT INVALID KEY
　　　　DISPLAY WK-SHITEN-CODE "  の売上げ目標は  " UM-REC
　　END-READ.
　　STOP RUN.

というプログラムを作成し、"mokuhyou.dat"という入力ファイルに正しくデータが格納されているのですが、コンパイルは問題なく、実行すると、
JMP0310I-U OPEN ERROR FILE=mokuhyou.dat. 'ACC-METHOD'. PGM=TEST046 ADR=00401258
とまず画面にでて、OKを押すと、
JMP0099I-U FORCED TERMINATION CODE=0310
というエラーになります。
おそらくファイルが正常に読み込めないものと推測されますが、解決法を教えてください。お願いします。

chie65536 · Accepted Answer

う～ん、惜しい。

SELECT URIAGE-MOKUHYOU
　　ASSIGN TO "C:\DAT\MOKUHYOU.TXT"
　　ORGANIZATION IS SEQUENTIAL.
か、
SELECT URIAGE-MOKUHYOU
　　ASSIGN TO "C:\DAT\MOKUHYOU.TXT"
　　ORGANIZATION IS LINE SEQUENTIAL.
にする（行順ファイルがサポートされてて使える場合）

SELECT N-URIAGE-MOKUHYOU
　　ASSIGN TO "C:\DAT\MOKUHYOU"
　　ORGANIZATION IS INDEXED
　　ACCESS MODE IS DYNAMIC
　　RECORD KEY IS NUM-SHITEN-CODE.
にする。索引ファイルを使う場合、主ファイル名は８文字以内に、拡張子は付けないのが無難。あと、ファイル名は大文字にしとく方が無難（後述）

　　05 UM-KINGAKU PIC 9(10) OCCURS 12.
の後ろに
　　05 FILLER PIC X(2).
が必要（改行コードのCRとLFの分）

　　MOVE UM-REC TO NUM-REC
はやっちゃいけない（テキスト側に改行コードのフィラが増え、テキストファイルと索引ファイルのレコード構造が違ってしまったから。それに各項目ごとに移送してるから不要）

　　REWRITE NUM-REC
は
　　WRITE NUM-REC
　　　INVALID KEY
　　　　REWRITE NUM-REC
　　END-WRITE
にする。OUTPUTオープンしてるからファイルは空になってる。つまりレコードは１つも存在しないからREWRITEは出来ない。

「WRITEしてみてINVALID KEYだったらREWRITE」をする理由は、元のテキストファイルに
0001SHITEN-A旧店名、AAに変更済～～～
0001SHITEN-AA～～～～～～～～～～～～
0002SHITEN-B～～～～～～～～～～～～
0003SHITEN-C～～～～～～～～～～～～
のように「同一の支店コードが２つ書いてあった時」のため。REWRITEではなく「同一コードが２つある」とのエラー表示をして終了するのでも良い。

これでダメだとしたら
「使ってるCOBOLに方言があって、テキストファイルを扱う場合のSELECT文に、何か特殊な書き方をしなきゃならない」
か
「『c:\dat\』のように、ドライブやパス指定を書けない」
か
「索引ファイルのファイル名には『n-mokuhyou.dat』のように拡張子は付けちゃいけない」
か
「索引ファイルのファイル名は『n-mokuhyou』のように８文字を超えちゃいけない」
か
「ファイル名に英文字の小文字を含むと問答無用でエラー」
などの制約が存在する場合がある。

特に索引ファイルでの「拡張子は付けない」と「主ファイル名は８文字以内」は注意。これを守らないとCOBOLが内部でキーファイルのファイル名を自動生成する際に、生成に失敗して実行時にOPEN文で予期せぬエラーが出る可能性が。
古いMS-DOSの仕様を引きずってて廃止して欲しい制約なんだが…。

あと「古いMS-DOSの仕様」に関連してか、ファイル名は大文字を使うのが慣例になっている。ファイル名に小文字を使うと動かないCOBOLがあるらしいので。

chie65536 · Answer

＞(2)SELECT FILE01 ASSIGN TO INPUT-FL.
＞OPEN INPUT FILE01
＞というコードについて、(1)は意味が分かるのですが、
＞(2)はどこからどういうファイルをOPENするのですか？

どこかに
　01  INPUT-FL  PIC X(80)  VALUE "c:\dat\input-file.txt".
の行がありませんか？

それか、どこかに
　01  INPUT-FL  PIC X(80).
の行があって、OPEN INPUT FILE01の前に
　　　MOVE "c:\dat\input-file.txt" TO INPUT-FL.
って書いてませんか？

普通、SELECT文には、直接ファイル名は指定しないのです。

なぜなら、以下のような手法で、複数のファイルを切り替える事が多いからです。
　　MOVE "INPUT001" TO INPUT-FL.
　　PERFORM MAIN-START THRU MAIN-EXIT.
　　MOVE "INPUT002" TO INPUT-FL.
　　PERFORM MAIN-START THRU MAIN-EXIT.
　　MOVE "INPUT003" TO INPUT-FL.
　　PERFORM MAIN-START THRU MAIN-EXIT.
　　STOP RUN.
*
　MAIN-START.
　　OPEN INPUT FILE01.
　　　（メインの処理）
　　CLOSE FILE01.
　MAIN-EXIT.
　　EXIT.

こうしておけば、OPEN前にINPUT-FLにファイル名を入れ直す事で、同じ処理で複数のファイルを繰り返して操作する事が出来ます。

また「オープンするファイル名は、起動時のコマンドラインに書いてある」と言うケースが多く、コマンドラインからファイル名をMOVEしてくる必要性から、ファイル名部分が変数になっているのが普通なのです。

chie65536 · Answer

＞基本的な質問で恐縮ですが、mokuhyou.datのファイルは自分がテストデータ
＞をエディタで編集し、mokuhyou.datの名前で保存しただけなのですが、
＞そうではなく、mokuhyou.datは別プログラムから作成すべきということ
＞なのでしょうか？

その通りです。

COBOLは以下の４種類のファイルを扱えます。
・レコード順ファイル（テキストファイル）
・行順ファイル（テキストファイル。一部のCOBOLでのみサポート）
・相対ファイル（バイナリファイル）
・索引ファイル（バイナリファイル。データとキーの２つのファイルでセット）

質問者さんのように「特定の値（支店コード）をキーにして、キーで指定したレコードを読み込む場合」は「索引ファイル」を使用します。

この「索引ファイル」は、単純なテキストファイルではなく「レコードファイル」と「キーファイル」に分かれていて、内部は「バイナリファイル」です。

で、エディタなどで書いた１行が固定長のテキストファイルを扱う場合、COBOLでは「レコード順ファイル」を用います。

なお、一部のCOBOLでは「１行が不定長でも良く、レコード終わりは改行コード」と言う、テキストファイルに特化した「行順ファイル」も扱えますが、古いCOBOLではサポートされていません。

そう言った訳で「元データがエディタで書いたテキストファイルで、それをCOBOLで扱う」と言う場合は、以下のようにします（実際の業務で「よくあるパターン」です）

●テキストインポートプログラムを用意する
１．元データのテキストファイルを「レコード順ファイル」で「INPUTオープン」する
２．実際にCOBOLで操作するデータファイルを「索引ファイル」で「I-Oオープン」し「ファイル無しエラー」を検出した場合は「OUTPUTオープン」する。
３．ソースファイルを「READ xxx NEXT」で読む。「AT END節」が実行された場合はソースファイルを最後まで読んだので全ファイルをクローズして終了。
４．読んだレコードの各項目をMOVE命令で書き出しレコードの各項目に移送する（レコード丸ごとMOVEしてはいけない。入力側と出力側で「項目の桁数」が違う可能性がある）
５．「WRITE xxx」で書き出し、もし「INVALID KEY節」が実行されたら、そのキーのレコードは既存なので「REWRITE xxx」する。つまり、レコードが無ければレコードを追加、レコードがあれば更新する事になる。
６．前の「３．」から繰り返す。

●本体のプログラム
１．実際にCOBOLで操作するデータファイルを「索引ファイル」で「I-Oオープン」する。エラーを検出した場合は「データファイルなし」としてプログラム終了
２．キーを指定して（レコードのキー項目に値を入れて）「READ」を行なう。
３．新規のレコードを追加する場合は「WRITE xxx」を、既存のレコードの内容を書き換える場合は「REWRITE」を行なう。
４．クローズして終了。

I-Oオープン、OUTPUTオープンした場合、プログラムを終了する場合は必ず「CLOSE xxx」を行なう事。クローズしないで「STOP RUN」した場合、最悪、最後に書いたレコードがファイルに反映されずに終了します。

ちなみに、COBOLで扱える各ファイルの詳細は、以下のようになります。

・レコード順ファイル
改行コードも含めて固定長であれば、エディタで書いたテキストファイルも読めるが、先頭から順に１レコードづつ読むしか出来ない。
前のレコードに戻ったり、最後のレコードに飛んだりは出来ない。
先頭レコードに戻りたい場合はクローズしてオープンし直す必要がある（REWINDと言う、先頭に戻る文を追加したCOBOLもあるが一般的ではなく、かなり特殊）
索引もキーもなにもないので「同じ内容のレコード」が複数存在する可能性もある。

・行順ファイル（一部のCOBOLでのみサポート）
レコードが固定長ではなく改行コードで区切られる事を除けば、レコード順ファイルと同じ。

・相対ファイル
ファイルの先頭にレコード管理用のヘッダがあり、レコード長は「COBOLが自動で決めた長さ」になっている。
レコードの先頭にはレコード番号がバイナリデータで記録されていて、レコードの各項目もバイナリデータになっている。
テキストファイルではないので、エディタで作る事は不可能。
言うなれば「レコード番号が索引キーになっている索引ファイル」に同等（と言ってもファイルはデータ本体のみで、キーファイルは存在しない）
キーが存在しないのでレコードの重複がチェック出来ないので「同じ内容のレコード」が複数存在する可能性もある。

・索引ファイル
COBOLで最も良く使われるファイル。と言うか、この形式のファイルがあるからCOBOLが使われると言っても過言ではない。
キーを指定する事で、特定のレコードをすぐに呼び出す事が出来る。
「READ xxx NEXT」を使えば「キーを指定せず、次のレコードを読む（オープン直後は先頭レコードを読む）」のも可能なので、レコード順ファイルで行なうような「先頭から最後まで順に処理する」と言う事も可能。
「START」を使うと「指定したキーに最も近いレコード」も探せるので「キーが○○から△△までの間だけ処理する」と言う事も可能になる。
索引キーが「キーファイル」としてデータ本体のファイルと別になっている事が多い。
普通は同一キーのレコード重複は許されないが「RECORD KEY句」に「WITH DUPLICATES」を指定すると、同一キーで複数のレコードを存在させられる。
レコードの先頭には削除フラグがバイナリデータで記録されていて、レコードの各項目もバイナリデータになっている。
テキストファイルではないので、エディタで作る事は不可能。
各レコードの「物理的なファイル位置」は「キーファイル」で管理されているので、レコードの物理的な位置はキーの順番に一致しない。最終レコードがファイルの先頭に存在したり、先頭レコードがファイルの末尾に存在したりする可能性もある。

chie65536 · Answer

まず、mokuhyou.datを作成する際に「ACCESS MODE IS DYNAMIC」で「OPEN OUTPUT」して、データファイルとキーファイルを作成しておく事。

正しく作成されればmokuhyou.datとmokuhyou.idxの２つのファイルが出来上がる筈。拡張子.idxのファイルは「キーファイル」で、これを元に「キーでの検索」が行なわれる。

てゆ～か、ファイルを作成してるプログラムは、元々「ACCESS MODE IS DYNAMIC」でアクセスしてた筈。それを「ACCESS MODE IS RANDOM」でアクセスしようとするから、実行時にオープン文でエラーが起きてる訳で。

で、特定のキーで特定のレコードを読みたいなら「ACCESS MODE IS DYNAMIC」で、キー付きファイルをオープンする事。

×ACCESS MODE IS RANDOM
○ACCESS MODE IS DYNAMIC

実際、特定のキーで特定のレコードを読む場合は、レコードキーに「欲しいレコードのキー値」をセットしておいてから「READ」を行なう。

×　　OPEN INPUT URIAGE-MOKUHYOU
×　　READ URIAGE-MOKUHYOU 
○　　OPEN INPUT URIAGE-MOKUHYOU
○　　MOVE WK-SHITEN-CODE TO UM-SHITEN-CODE
○　　READ URIAGE-MOKUHYOU 

レコードが無ければ「INVALID KEY」節が実行され、あれば「NOT INVALID KEY」節が実行される。

COBOLでのランダムアクセス

う～ん、惜しい。

＞(2)SELECT FILE01 ASSIGN TO INPUT-FL.

＞基本的な質問で恐縮ですが、mokuhyou.datのファイルは自分がテストデータ

まず、mokuhyou.datを作成する際に「ACCESS MODE IS DYNAMIC」で「OPEN OUTPUT」して、データファイルとキーファイルを作成しておく事。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング