トップ > ＳＱＬ方式

ＳＱＬ方式

１　ＳＱＬ方式

復習ですが、Ａ－ＶＸのＣＯＢＯＬからＡ－ＶＸ／ＲＤＢ上のデータを読み書きする方法として、
・拡張ＲＥＡＤ／ＷＲＩＴＥ方式
・ＳＱＬ方式
の２種類があります。

拡張ＲＥＡＤ／ＷＲＩＴＥ方式の方は今まで説明してきました。ここではＳＱＬ方式の方を説明します。なお、ＳＱＬ方式ですが、ＮＥＣの説明書によってはＳＱＬ－ＤＭＬ、埋め込みＳＱＬ方式といった記述をしていることもあります。同じ意味です。

世間のＣＯＢＯＬでは一般的なＳＱＬですが、ＮＥＣのオフコンのプログラミングではあまり使われないようです。
私自身も１，２か所の会社で使っているのを見たことがあるぐらいです。おそらくＮＥＣのオフコン業界全体で１％も使っていないのではないでしょうか。９９％は拡張ＲＥＡＤ／ＷＲＩＴＥ方式の方を使っていると思います。

私も「使っているプログラムを見たことがある」程度で、実際にＮＥＣのオフコンでＳＱＬ方式でＣＯＢＯＬプログラミングしたことはありません。という訳で、私も「説明します」というほどのノウハウはありません。これからの説明はＮＥＣの説明書に毛が生えたようなものですので、ご承知おきください。

なぜあまり使われないかの理由は想像することができます。
拡張ＲＥＡＤ／ＷＲＩＴＥ方式を使ってのＲＤＢアクセスが便利なことや、ＳＱＬをコンパイルする為にはＣＯＢＯＬコンパイラとは別にＳＱＬプリコンパイラというものを買わなければならないことなどが原因だと思います。

あまり使われていない為に性能チューニングやトラブル時のノウハウなどがあまり蓄積されていない、ということもあるのかもしれません。（いままで説明してきたようにＡ－ＶＸ／ＲＤＢは独特の部分があり、細かいところでオープン系のノウハウが使えるのかどうかわからない。単純にテストプログラムレベルの簡単なものを作って実行します程度なら同じだと思いますが、実際に運用レベルとして使おうと思うと今まで同じで済んでいたような細かい差が問題になるということは皆さんご存じだと思います。）

２　使用できるＳＱＬの範囲

使えるＳＱＬは、基本的にＳＱＬ８６の規格の範囲です。

また、今まで説明したようにＤＤＬ　ＳＱＬは一切使用できません。ＣＲＥＡＴＥ　ＴＡＢＬＥとかＤＲＯＰ　ＶＩＥＷとかＧＲＡＮＴとかは使えないということです。そういうことは表定義保守のユーティリティ（＃ＤＤＭ）というものを使います。プログラム中でテーブルを作りたいような時はこの表定義保守のユーティリティを呼び出して使います。

３　埋め込みＳＱＬ

Ａ－ＶＸのＣＯＢＯＬでＳＱＬを使用する場合には、埋め込みＳＱＬという方法を使います。メインフレーム系やオープン系のＣＯＢＯＬでも一般的に使うやり方です。

Ａ－ＶＸの埋め込みＳＱＬも一般的なものと同じで「ＥＸＥＣ　ＳＱＬ」と「ＥＮＤ－ＥＸＥＣ」でＳＱＬ文を囲むような形です。

EXEC SQL
     INSERT INTO JINJI (TNO,TNAME,TAGE)　　　　
            VALUES (2000,YAMADA TARO,30)　　　
END-EXEC.

Ｏｒａｃｌｅ社のＰｒｏ＊ＣＯＢＯＬと言語仕様はほとんど同じです。Ｐｒｏ＊ＣＯＢＯＬを使ったことのある人ならすぐわかるのではないでしょうか。

下にＳＱＬ方式のプログラミング例を載せます。カーソル操作を使った場合の例です。説明書から丸写しです。

 IDENTIFICATION     DIVISION.
 PROGRAM-ID.        PG091.
*
 ENVIRONMENT        DIVISION.
 CONFIGURATION      SECTION.
 SOURCE-COMPUTER.   SYSTEM 3100.
 OBJECT-COMPUTER.   SYSTEM 3100.
*
 DATA               DIVISION.
 WORKING-STORAGE    SECTION.
　  EXEC SQL BEGIN DECLARE SECTION END-EXEC.　→ ホスト変数定義
 77 HS-NAME   PIC  X(10).
 77 HU-SURYO  PIC  X(04).
    EXEC SQL END DECLARE SECTION END-EXEC.
*
    EXEC SQL INCLUDE SQLCA END-EXEC.　　　　　→　SQLCA宣言
*
 PROCEDURE          DIVISION.
 WHENEVER-PROC.
    EXEC SQL　　　　　　　　　　　　　　　　　→　埋め込み例外条件宣言
         WHENEVER SQLERROR GOTO:SQL-ERROR
    END-EXEC.
*
 START-PROC.
    EXEC SQL　　　　　　　　　　　　　　　　　→　カーソル定義
         DECLARE CI CURSOR FOR SELECT SNAME SURYO FROM
            URIAGE WHERE TANKA = 40
    END-EXEC.
    EXEC SQL OPEN CI END-EXEC.　　　　　　　　→　定義したカーソルのOPEN
    PERFORM L-FETCH THRU L-FETCH-END
            UNTIL SQLCODE = 100.
    EXEC SQL CLOSE CI END-EXEC.　　　　　　　→　処理終了カーソルのCLOSE
 PROC-END.
    STOP RUN.
*
 SQL-ERROR.
    DISPLAY "SQL ERRORCODE" SQLCODE.
    GOTO PROC-END.
*
 L-FETCH.
    EXEC SQL FETCH CI INTO:HS-NAME, :HS-SURYO END-EXEC　→　データ取り出し
    IF SQLCODE = 100 GOTO L-FETCH-END.
    DISPLAY "ｼｮｳﾋﾝﾒｲ:" HS-NAME "  ｳﾘｱｹﾞｽｳﾘｮｳ:" HU-SURYO.
 L-FETCH-END.
    EXIT.

［リレーショナル型データベース（２００９年１１月版）－第４部　利用編－１．２　ＳＱＬ］より

カーソルを使わず（非カーソル操作）に、INSERTやUPDATE、DELETEでデータを操作することもできます。
例えばレコードを削除するときに、「カーソルを使って1行ずつFETCHして削除条件のレコードならDELETEする」ということもできるし、カーソルを使わずに「DELETEのWHEREに削除条件を書いて1回のSQLで一気に削除する」というプログラムを組むこともできます。

この記事の1行目に飛ぶ