NetCOBOL V11.0 入門ガイド

6.13 データベース機能を使ったプログラム（応用編）(Sample12)

ここでは、本製品で提供するサンプルプログラム-Sample12-について説明します。

Sample12では、データベース(SQL)機能のより進んだ使い方として、データベースの複数の行を1つの埋込みSQL文で操作する例を示します。

データベースはサーバ上に存在し、クライアント側からこれにアクセスします。

データベースのアクセスは、ODBCドライバを経由して行います。ODBCドライバを使用するデータベースアクセスについては、“NetCOBOL ユーザーズガイド”の“リモートデータベースアクセス”を参照してください。

このプログラムを動作させるためには、以下の製品が必要です。

クライアント側

• ODBCドライバマネージャ

• ODBCドライバ

• ODBCドライバの必要とする製品

サーバ側

• データベース

• データベースにODBCでアクセスするために必要な製品

概要

Sample11と同じデータベースにアクセスし、次の操作を行ってからデータベースとの接続を切断します。

• データベース全データの表示

• GOODSの値が“TELEVISION”である行のGNOの値の取り出し

• 取り出したGNOを持つ行のQOHの更新

• GOODSの値が“RADIO”、“SHAVER”、“DRIER”の行の削除

• データベースの全データの再表示

なお、出力結果は翻訳オプションSSOUTを使用して、一部をファイルに出力します。

提供プログラム

• Sample12.cob（COBOLソースプログラム）

• Makefile（メイクファイル）

• COBOL85.CBR（実行用の初期化ファイル）

使用しているCOBOLの機能

• リモートデータベースアクセス

使用しているCOBOLの文

• CALL文

• DISPLAY文

• GO TO文

• IF文

• PERFORM文

• 埋込みSQL文 (複数行指定ホスト変数、表指定ホスト変数、埋込み例外宣言、CONNECT文、カーソル宣言、OPEN文、FETCH文、SELECT文、DELETE文、UPDATE文、CLOSE文、COMMIT文、ROLLBACK文、DISCONNECT文)

プログラムを実行する前に

• ODBCドライバを経由してサーバのデータベースへアクセスできる環境を構築しておいてください。

• デフォルトで接続するサーバを設定し、そのサーバのデータベース上に“STOCK”という名前でテーブルを作成しておいてください。

  “STOCK”テーブルは、以下の形式で作成してください。

  

  “STOCK”テーブルに次のデータを格納しておいてください。

  GNO	GOODS	QOH	WHNO
  110	TELEVISION	85	2
  111	TELEVISION	90	2
  123	REFRIGERATOR	60	1
  124	REFRIGERATOR	75	1
  137	RADIO	150	2
  138	RADIO	200	2
  140	CASSETTE DECK	120	2
  141	CASSETTE DECK	80	2
  200	AIR CONDITIONER	04	1
  201	AIR CONDITIONER	15	1
  212	TELEVISION	10	2
  215	VIDEO	05	2
  226	REFRIGERATOR	08	1
  227	REFRIGERATOR	15	1
  240	CASSETTE DECK	25	2
  243	CASSETTE DECK	14	2
  351	CASSETTE TAPE	2500	2
  380	SHAVER	870	3
  390	DRIER	540	3

• ODBC情報ファイル設定ツール(SQLODBCS.exe)を使用して、ODBC情報ファイル(ここではDBMSACS.INFとします)を作成してください。