Windows Azure での COBOL のデモンストレーション プログラム

Windows Azure での COBOL のデモンストレーション プログラムは、デフォルトで %PUBLIC%\Documents\Micro Focus\Enterprise Developer\Samples\Azure にあります。

次のデモンストレーションが用意されています。

AzureBookDemo

このデモンストレーションは Visual Studio ソリューションです。既存の COBOL プログラムとやり取りする Web ロールと Worker ロールから構成される Windows Azure サービスを含んでいます。Web ロールは COBOL プログラム (BookWrapper.cbl) から構成され、サービス用のユーザー インターフェイスを提供します。Worker ロールは、Windows Azure キュー記憶域を使用して Web ロールと通信する方法、および既存の COBOL プログラム (book.cbl) を呼び出してビジネス ロジックを実行する方法のデモンストレーションを行います。

WorkerRole.cbl - Worker ロールを起動して実行するコードが含まれています。ロール設定を読み取り、Web ロールと通信するためのキューを使用します。次のメソッドが含まれます。

• Run - ロールを実行します。メッセージ キューを作成し、仮想ハード ドライブをマウントして、キューに含まれるメッセージを処理します。
• OnStart - 初期化。DiagnosticMonitor を起動しデリゲートを設定してロールの変更を処理します。
• ConfigurationSettingPublisher - RoleChangeHandler を設定するデリゲート。このメソッドでは、呼び出しごとに別のクラス (RoleChangeHandler) に移動された RoleChangeHandler を追加し、その作成時に引数を渡すことができるようにします。
• CreateMessageQueues - Windows Azure のキュー記憶域を設定します。Web ロールと Worker ロール間でブック情報を渡すために使用するメッセージ キューを作成します。
• MountVirtualDrive - COBOL データ ファイルを含む仮想ハード ドライブをマウントし、仮想ドライブ上のデータ ファイルを指す dd_ マッピングを使用します。
• HandleMessage - 入力される要求キューを処理し、付属のブック詳細を使用してレガシー コードを呼び出し、応答を提示します。
• OnStop - ロールの停止時に呼び出されます。ドライブをアンマウントして、マウントが解除されていることを確認します。

Global.asax.cbl - 次のメソッドが含まれています。

• Application_Start - ロール変更を処理するデリゲートを設定します。
• ConfigurationSettingPublisher - RoleChangeHandler を設定するデリゲート。このメソッドでは、呼び出しごとに別のクラス (RoleChangeHandler) に移動された RoleChangeHandler を追加し、その作成時に引数を渡すことができるようにします。

AzureSQL

このデモンストレーションは、SQL Azure で実行する ESQL の使用方法を示します。SQL Server 2008 R2 をローカルで使用する方法、および最小限の変更で SQL Azure データベースに切り換える方法が示されます。

AzureStorage

このデモンストレーションは Visual Studio ソリューションです。既存の COBOL プログラムとやり取りする Web ロールから構成される Windows Azure サービスが含まれています。Web ロールは C# および COBOL プログラム (CustomerInfoDataContext.cbl) から構成され、C# ASP を提供します。NET に Windows Azure テーブル記憶域の顧客情報記憶域を作成、編集、更新、削除するためのすべての情報を提供します。

AzureTracing

このデモンストレーションには Windows Azure サービス用の Visual Studio ソリューションが含まれており、起動時に COBOL プログラムを呼び出し COBOL トレース API を使用して複数のトレース レコードを書き込む Worker ロールから構成されます。

SqlAzureBookDemo

このデモンストレーションは、既存の COBOL プログラムとやり取りする Web ロールと Worker ロールから構成される Windows Azure サービス用のVisual Studio ソリューションです。Web ロールは C# および COBOL プログラム (SqlBookWrapper.cbl) から構成され、サービス用のユーザー インターフェイスを提供します。Worker ロールは、Windows Azure キュー記憶域を使用して Web ロールと通信する方法、および既存の COBOL プログラム (sqlbook.cbl) を呼び出してビジネス ロジックを実行する方法のデモンストレーションを行います。

Thumbnails

このデモンストレーションは COBOL バージョンの Microsoft Thumbnails サンプルで、Microsoft Windows Azure SDK に付属しています。これは Web ロールおよび Worker ロールのデモンストレーションを行うサービスです。Web ロールは写真をアップロードするためのユーザー インターフェイスを提供し、作業項目をキューに追加します。Worker ロールは作業項目を取得してサムネイルを指定のディレクトリに作成します。

vhdupload

このアプリケーションは、単なるデモンストレーションではなく、実用のツールです。これはコンソール アプリケーションを含んでいる Visual Studio ソリューションです。Microsoft.WindowsAzure.StorageClient を使用して仮想ハード ドライブをページ BLOB として Windows Azure にアップロードする方法のデモンストレーションを行います。さらに AzureBookDemo などの Windows Azure アプリケーションで使用し、従来のファイル処理にも対応できます。このプログラムは Andy Edwards of Microsoft から取得したサンプル コードを変換したものです。

上記のデモンストレーションは、それぞの readme ファイルに詳細が記述されており、それらのファイルは上述の場所にもあります。これらの readme ファイルではデモンストレーションの実行方法が説明されており、各ファイルの解説とファイルに関する Microsoft.Windows.Azure の参照先も含まれています。