Visual COBOL には、OpenESQL ODBC 向けの各種デモンストレーション アプリケーションが用意されています。Visual COBOL サンプル ブラウザーからそれらにアクセスできます。Visual COBOL サンプル ブラウザーを起動する手順については、「サンプル ブラウザーを起動するには」を参照してください。
デモンストレーション アプリケーションを使用するには、1 つ以上の ODBC ドライバーをインストールし、デモンストレーションで使用する DNS を作成しておく必要があります。
一部のデモンストレーション アプリケーションは、接続先のデータベースに EMP というテーブルが存在することを想定しています。
すべての OpenESQL ODBC デモンストレーション アプリケーションはコンソール ログを作成します。このログは処理の進行状況を示し、場合によりクエリ結果も示します。エラー発生時にはエラー メッセージを表示して終了します。
ODBC のすべてのサンプルは Visual COBOL サンプル ブラウザーの [Show native only] リストに表示されます。
ソース ファイルは %PUBLIC%\Documents\Micro Focus\Visual COBOL\Samples\SQL\openesql のサブディレクトリに格納されています。
- OESQL - Getting Started
- OpenESQL で静的 SQL を使用して各種 SQL 操作を実行する簡単なサンプルです。CONNECT 文のさまざまなスタイルの使用についても示します。
- OESQL - Behavior
- データ ソース名 LocalServer に接続するには、Microsoft SQL Server ODBC ドライバーを使用します。これを行うには、ヘルプ トピックの「ODBC データ ソース名を設定する」を参照してください。
behavior プログラムは behavior.cbl と behavsub.cbl を使用してテーブルを作成および格納します。テーブルの作成後に、BEHAVIOR 指令を使用して、同じ不定 COBOL カーソル宣言を behavior.cbl では読み取り専用とし、behavsub.cbl では更新可能にする方法を示します。
これは、プロジェクト ディレクトリのトレース ファイル OpenESQLTrace.processID.log で検証できます。このログ ファイルは、behavior.cbl の TRACELEVEL 指令で生成されます。
- OESQL - Catalog
- [SQL データ ソース] ダイアログを表示します。名前を入力または選択して [OK] をクリックします。[ログイン] ダイアログが表示されます。ログイン名に「admin」と入力し、パスワードは空欄のまま [OK] をクリックします。3 種類のデータ ディクショナリ クエリが実行され、結果が出力されます。
- OESQL - Connect
- データ ソース、ユーザー名、およびパスワードの入力を求めます。作成したデータ ソースの名前およびユーザー名「admin」を入力し、パスワードは空欄のまま Enter キーを押します。異なる構文オプションを使用する 4 種類の接続および接続解除テストが実行されます。5 番目のテストでは、[SQL データ ソース] ダイアログが表示されます。[マシン データ ソース] リストから適切な名前を選択して [OK] をクリックします。[ログイン] ダイアログが表示されます。ログイン名に「admin」と入力し、パスワードは空欄のまま [OK] をクリックします。5 番目のテストが実行され、プログラムが終了します。
- OESQL - Dynamic
- OpenESQL で動的 SQL を使用して各種 SQL 操作を実行する簡単なサンプルです。Getting Started のサンプルで使用するコードと機能的には同じです。
- OESQL - Get Diagnostics
- Get Diagnostics EXEC SQL 呼び出しを使用して OpenESQL ランタイムから診断情報を取得する方法を示します。このデモは、Microsoft SQL Server のほか、IBM DB2 LUW および Oracle
でも動作します。
- OESQL - LOB Data Types
- OpenESQL を使用してラージ オブジェクト (LOB) を挿入および選択する方法、および OpenESQL で Microsoft SQL Server テーブル内の LOB 列を操作する方法を示します。IBM DB2 LUW および Oracle
での操作方法も示します。
- OESQL - Select
- サンプル データベースに接続し、顧客コードの入力を求めます。メッセージに表示された BLUEL を入力します。該当の顧客レコードの 2 つのフィールドが表示され、別の顧客コードの入力が求められます。ここで Enter キーを押します。地域の入力が求められます。メッセージに表示された CA を入力します。その地域の顧客が一覧表示され、別の地域の入力が求められます。ここで、Enter キーを押してプログラムを終了します。
- OESQL - Whenever
- EXEC SQL WHENEVER 構文を使用したエラー処理方法を示します。また、MFSQLMESSAGETEXT 変数を使用して、SQLERRMC フィールドで利用可能な 70 バイト超のエラー メッセージを取得します。