Microsoft Azure での COBOL のデモンストレーション プログラムは Visual COBOL のサンプル内から入手でき、デフォルトで %PUBLIC%\Documents\Micro Focus\Visual COBOL\Samples\Azure にインストールされます。
次のデモンストレーションが用意されています。
- AzureBookDemo
- このデモンストレーションは Visual Studio ソリューションです。既存の COBOL プログラムとやり取りする Web ロールおよび Worker ロールから構成される Microsoft Azure サービスを含んでいます。Web ロールは COBOL プログラム (BookWrapper.cbl) から構成され、サービス用のユーザー インターフェイスを提供します。Worker ロールは、Microsoft Azure キュー記憶域を使用して Web ロールと通信する方法、および既存の COBOL プログラム (book.cbl) を呼び出してビジネス ロジックを実行する方法を示します。
WorkerRole.cbl - Worker ロールを起動して実行するコードが含まれています。ロール設定を読み取り、Web ロールと通信するためのキューを使用します。次のメソッドが含まれます。
- Run - ロールを実行します。メッセージ キューを作成し、仮想ハード ドライブをマウントして、キューに含まれるメッセージを処理します。
- OnStart - 初期化。DiagnosticMonitor を起動しデリゲートを設定してロールの変更を処理します。
- ConfigurationSettingPublisher - RoleChangeHandler を設定するデリゲート。このメソッドでは、呼び出しごとに別のクラス (RoleChangeHandler) に移動された RoleChangeHandler
を追加し、その作成時に引数を渡すことができるようにします。
- CreateMessageQueues - Microsoft Azure キュー記憶域を設定します。Web ロールと Worker ロール間でブック情報を渡すために使用するメッセージ キューを作成します。
- SetupFileAccess - ロールに含まれるデータ ファイルの場所への dd_ マッピングを設定します。
- HandleMessage - 入力される要求キューを処理し、付属のブック詳細を使用してレガシー コードを呼び出し、応答を提示します。
- OnStop - ロールの停止時に呼び出されます。ドライブをアンマウントして、マウントが解除されていることを確認します。
Global.asax.cbl - 次のメソッドが含まれています。
- Application_Start - ロール変更を処理するデリゲートを設定します。
- ConfigurationSettingPublisher - RoleChangeHandler を設定するデリゲート。このメソッドでは、呼び出しごとに別のクラス (RoleChangeHandler) に移動された RoleChangeHandler
を追加し、その作成時に引数を渡すことができるようにします。
- AzureSQL
- このデモンストレーションは、Azure 上で実行されている ESQL の使用方法を示します。SQL Server 2008 R2 でローカルに作業する方法と、最小限の変更で Azure SQL Database に切り替える方法を示します。
- AzureStorage
- このデモンストレーションは Visual Studio ソリューションです。既存の COBOL プログラムとやり取りする Web ロールから構成される Microsoft Azure サービスが含まれています。Web ロールは、C# および C# ASP を提供する COBOL プログラム (CustomerInfoDataContext.cbl) で構成されています。NET に Microsoft Azure テーブル記憶域の顧客情報記憶域を作成、編集、更新、削除するためのすべての情報を提供します。
- AzureTracing
- このデモンストレーションには Microsoft Azure サービス用の Visual Studio ソリューションが含まれており、起動時に COBOL プログラムを呼び出し、COBOL トレース API を使用して、複数のトレース レコードを書き込む Worker ロールから構成されます。
- SqlAzureBookDemo
- このデモンストレーションは Visual Studio ソリューションです。既存の COBOL プログラムとやり取りする Web ロールおよび Worker ロールから構成される Microsoft Azure サービスを対象としています。Web ロールは C# および COBOL プログラム (SqlBookWrapper.cbl) から構成され、サービス用のユーザー インターフェイスを提供します。Worker ロールは、Microsoft Azure キュー記憶域を使用して Web ロールと通信する方法、および既存の COBOL プログラム (sqlbook.cbl) を呼び出してビジネス ロジックを実行する方法を示します。
- Thumbnails
- このデモンストレーションは Microsoft Thumbnails サンプルの COBOL バージョンで、Microsoft Microsoft Azure SDK に付属しています。これは Web ロールおよび Worker ロールのデモンストレーションを行うサービスです。Web ロールは写真をアップロードするためのユーザー インターフェイスを提供し、作業項目をキューに追加します。Worker
ロールは作業項目を取得してサムネイルを指定のディレクトリに作成します。
上記のデモンストレーションは、それぞれの readme ファイルに詳細が記述されており、それらのファイルは上述の場所にもあります。これらの readme ファイルではデモンストレーションの実行方法が説明されており、各ファイルの解説とファイルに関する
Microsoft.Windows.Azure の参照先も含まれています。