Ａ−ＶＸのデータベース（５）

ＣＯＢＯＬでのプログラミングの話を少しします。「私はプログラミングなんかしないよ」という人はここは読まずに先に進んでください。

１　ＣＯＢＯＬ８５からＡ−ＶＸ　ＲＤＢアクセス

Ｗｉｎｄｏｗｓ上からのアクセス方法は、最初に説明しました。
ここではＡ−ＶＸ上のＣＯＢＯＬからＡ−ＶＸ　ＲＤＢを使用する方法をさわりの部分を簡単に説明します。

Ａ−ＶＸのＣＯＢＯＬからＡ−ＶＸ　ＲＤＢ上のデータを読み書きする方法として、
・ＳＱＬ（埋め込みＳＱＬ）
・ＣＯＢＯＬ８５　ＤＭＬ
の２種類があります。

この他に複数索引順編成ファイルとして直接データを読み書きする方法があります。

２　埋め込みＳＱＬ

世間のＣＯＢＯＬでは一般的な埋め込みＳＱＬですが、ＮＥＣのオフコンではあまり使われないようです。

後述するＣＯＢＯＬ８５　ＤＭＬを使ってのＲＤＢアクセスが便利なことや、埋め込みＳＱＬをコンパイルする為にはＣＯＢＯＬコンパイラとは別にＳＱＬプリコンパイラというものを買わなければならないことなどが原因だと思います。

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

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

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

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

３　ＣＯＢＯＬ８５　ＤＭＬ

ＮＥＣのオフコンでＡ−ＶＸ　ＲＤＢにアクセスするときにはこっちのやり方のほうが一般的なようです。私自身はＡ−ＶＸのＣＯＢＯＬではこっちの方しか見たことがありません。

この方法はＯＰＥＮ／ＣＬＯＳＥやＲＥＡＤ、ＷＲＩＴＥ、ＲＥＷＲＩＴＥ、ＤＥＬＥＴＥといった命令を使ってデータベースに対して読み書きを行います。
つまり基本表や仮想表（つまりテーブルやビュー）に対して、普通のファイルのようにアクセスすることができるということです。
基本表（テーブルのことね）を順編成ファイルのように順番にＲＥＡＤ／ＷＲＩＴＥしていったり、相対編成ファイルや索引順編成ファイルのようにキーを使ってＲＥＡＤ／ＷＲＩＴＥしていくことができます。ＲＥＡＤ　〜　ＡＴ　ＥＮＤ　〜とかＷＲＩＴＥ　〜　ＩＮＶＡＬＩＤ　ＫＥＹ　〜なんて書き方ができます。

何がいいかというと、「普通のファイルのアクセスならノウハウが蓄積されているでしょう」とか、「このデータは普通のファイルに入っているからＲＥＡＤ／ＷＲＩＴＥ、これはデータベースだからＳＱＬで」とか分けて考えなくていいとか、「このデータは順アクセスしかしないから順編成、このデータは検索するからこいつをキーにして・・」とかシステム設計時にファイル編成を考えなくてもいいとか、「ファイルからデータベースにシステム構成を変えてもファイル時代のプログラムがそのまま何の変更もなく使える」（このおかげで、年季の入ったプログラムが今だに現役で使えてたり・・・）とか、いろいろな理由があります。

普通のファイルにアクセスする命令だけで一通りのことができるので、普通の人はＲＥＡＤ／ＷＲＩＴＥなどがあれば満足するのですが、中には「ＲＤＢなんだからＲＥＡＤ／ＷＲＩＴＥだけだと嫌だ」という人もいます。そういう人の為にＳＥＬＥＣＴ、ＳＣＲＡＴＣＨ、ＣＯＭＭＩＴ、ＲＯＬＬＢＡＣＫといった命令が追加されています。
ＳＥＬＥＣＴ命令は、ＳＱＬ文のＳＥＬＥＣＴとよく似た命令です。（使い方がなんとなく似ているということです。命令自体はＳＱＬ文のＳＥＬＥＣＴ文とは異なります。）ＳＥＬＥＣＴ命令でレコードの集合を作っておいて、その集合の中でＲＥＡＤ／ＷＲＩＴＥするようなイメージになります。

これらの命令をうまく使うとパフォーマンスが向上したり、トランザクション処理ができたり、といったことができるようになったりします。（うまく使わないとパフォーマンスが低下したり、うまく動かなくなったりということもありますが。）

最後に追加的な情報ですが、「ＣＯＢＯＬ実行環境指定」でロックした時の動きを変えることができます。

４　ファイルとして読み書き

複数索引順編成ファイルとして、オープンして、読み書きして、クローズする、普通のファイルとしてのアクセス方法です。

上の「ＣＯＢＯＬ８５　ＤＭＬ」と何が違うのかですが、上のは基本表や仮想表をファイルとみなしてアクセスするのに対して、これはデータの入っている物理ファイルを直接アクセスする方法です。

理論的には、１つの基本表（物理ファイル）に対して上の３種類の方法混在で読み書きしても問題ありませんが、同時にアクセスしたときのロックがどうなるとか、いろいろと複雑な話が出てくると思うので、実際のところはどれか１つの方法で統一して読み書きするのがよさそうです。