COBOLのSTART文について

Question

こんにちは。
現在COBOLの勉強をしています。
あるプログラムのコードを読んでいて、分からない点があったので質問させていただきます。
COBOLに詳しい方、何卒よろしくお願いします。

内容は以下です。
※サンプル用にかなり書き換えており、
宣言等は省いてます。ご了承ください。

・読み込みファイル1(FILE1)
項目ID（F1-KEY） ：項目名称（キー）：プライマリキー
項目ID（F1-TORCD）：項目名称（取引先コード）：プライマリキー
項目ID（F1-KUBUN）：項目名称（区分）：プライマリキー
項目ID（F1-BIKO) ：項目名称（備考）

・読み込みファイル2(FILE2)
項目ID（F2-KEY） ：項目名称（キー）：プライマリキー
項目ID（F2-TORCD）：項目名称（取引先コード）：プライマリキー
項目ID（F2-KUBUN）：項目名称（区分）：プライマリキー
項目ID（F2-BIKO) ：項目名称（備考）

000000 ENVIRONMENT  DIVISION.
000000 INPUT-OUTPUT SECTION.   
000000 FILE-CONTROL.  
000000    SELECT  FILE1 ASSIGN        FILE1-RDB
000000                  ORGANIZATION  INDEXED
000000                  ACCESS MODE   DYNAMIC
000000                  RECORD KEY    F1-KEY         
000000                  FILE STATUS   IS FSTS.
000000    SELECT  FILE2 ASSIGN        FILE2-RDB
000000                  ORGANIZATION  INDEXED
000000                  ACCESS MODE   DYNAMIC
000000                  RECORD KEY    F2-KEY         
000000                  FILE STATUS   IS FSTS.
000000***** FD句省略**************************************
000000*ファイル1ＲＥＡＤ
000000      SELECT FILE1.
000000*
000000      INITIALIZE F2-KEY1.
000000      MOVE F1-TORCD TO F2-TORCD.
000000      MOVE F1-KUBUN TO F2-KUBUN.
000000*
000000*ファイル2ＲＥＡＤ
000000      START FILE2 KEY NOT < F2-KEY1 INVALID
000000                                    STOP RUN.
000000

上記のような処理をSQL(ORACLE)に書き換えると、

SELECT * 
FROM FILE1 
OUTER JOIN FILE2 ON  F1-TORCD = F2-TORCD
                 AND F2-KUBUN = F1-KUBUN;

の様になると考えているのですが、間違いないでしょうか？
ファイル2ＲＥＡＤ時の、「KEY NOT < F2-KEY1」がどういうことだろう？と引っかかっております。

Answer 1

COBOLでは、DMLを記述しません。RDBMSのようなシステムを操作する場合にも、一般的にはREAD、
WRITE,REWRITE、START、DELETE　文を利用します。ただ、UNIX系のOSで起動するCOBOLではその限りではありません。どのように利用するかは環境により独自に予約後が用意されていると思いますのでマニュアルを読んでください。

Answer 2

SELECT FILE1.は文法エラーですね。

START FILE2 KEY NOT < F2-KEY1 INVALID STOP RUN.は、

SELECT * FROM FILE2 WHERE プライマリキーのカラム名 >= ?;

で、プレースホルダー?に、F2-KEY1の値をバインドします。

結果が0件ならプログラム終了です。

Comments

[xo001122]

回答ありがとうございます。
SELECT FILE1 では文法エラーになりますか。ちょっと調べてみます。
すみません、F2-KEY1より大きいプライマリキーというのがピンときません。
記載しておりませんでしたが、F2-KEY1がプライマリキーになります。
もう1点教えて頂きたいのですが、ファイル2を読み込む前の「MOVE TO」は結合条件に当たると考えていたのですが違うようなので、何のために「MOVE TO」を行っているのか教えて頂けないでしょうか。よろしくお願いします。

[otn]

> SELECT FILE1 では文法エラーになりますか。

SELECTは宣言文で用いられ、物理ファイルに対して論理ファイル名を宣言します。論理ファイル名しかないと意味不明です。

> F2-KEY1より大きいプライマリキーというのがピンときません。記載しておりませんでしたが、F2-KEY1がプライマリキーになります。

ＲＤＢＭＳであれば、プライマリーキーのカラム名があるはずで、F2-KEY1はそのカラムと比較する普通の変数名です。

> 何のために「MOVE TO」を行っているのか

プライマリーキーカラムと比較すべき値を作り出している。

[xo001122]

＞論理ファイル名しかないと意味不明です。
記載してます通り、宣言を省略してますので、宣言してあるものと思って頂きたいです。

＞ＲＤＢＭＳであれば、プライマリーキーのカラム名があるはずで、F2-KEY1はそのカラムと比較する普通の変数名です。
ちょっと投稿を編集しました。F2-KEY1がカラム名にあたります。

＞プライマリーキーカラムと比較すべき値を作り出している。
つまり、F1-TORCD >= F2-TORCD,F2-KUBUN >= F1-KUBUNということでしょうか？

なかなか理解できずに申し訳ありません...。

[otn]

宣言部分のselectは良いのですが、`SELECT FILE1.`が実行文部分にあるように見受けられ、それがおかしいと言っています。あるいは特殊な方言でしょうか？

> F2-KEY1がカラム名にあたります。
COBOLの話じゃなくて、SQLの話をしています。
わかりにくかったようなので、回答を修正しました。

> つまり、F1-TORCD >= F2-TORCD,F2-KUBUN >= F1-KUBUNということでしょうか？
違います。
プライマリキーがF2-KEY1と等しいか大きいかどうかです。