サンプル：.NET COBOL Dialog System Application

.NET COBOL Customer サンプルの ManagedCustomer.sln は、Dialog System に付属していた元の Customer サンプルとほぼ同じです。主な違いは、このサンプルは .NET COBOL コードにコンパイルされ、.NET のもとで実行されるという点です。既存の Dialog System ランタイム呼び出しは残っていますが、自動的に Platform Invoke 呼び出しに変換されてネイティブ コードになります。つまり、ユーザー インターフェイスとスクリーンセットは、ネイティブ コードとして引き続き実行されます。次の図はこの例を示したものです。

このサンプルは、Platform Invoke 手法を使用しています。この手法により、.NET COBOL コードはダイナミック リンク ライブラリ (.dll) で実装されたアンマネージ関数を呼び出すことができます。プラットフォーム呼び出しは、API 呼び出しに似ています。

サンプルには、次のような構成の 1 つのプロジェクト (.NET COBOL コード プロジェクト) があります。

• プロパティ - プロジェクトは .NET COBOL コードにコンパイルされることに注意してください。[Project > ManagedCustomer Properties > Application] タブを参照してください。アプリケーションは .NET Framework (このケースでは 4) を対象としているため、このタブではアプリケーションが .NET であることが示されます。
• リファレンス - リファレンスの 1 つはネイティブ COBOL としてコンパイルされる Dialog System ランタイム システム dsgrun.dll へのリファレンスであることに注意してください。これにより、.NET COBOL は、CALL 文を使用して dsgrun を呼び出すことができます。CALL がネイティブ .dll 内のエントリに合致している場合、これらの CALL 文は Platform Invoke 呼び出しを生成します。
• Customer.cbl - 元のソース コードと、ネイティブ Dialog System ランタイム システムを正しく呼び出すための追加コード。
• Customer.cpb - Dialog System データ ブロックから生成された元のコピーブック。これは変更されていません。
• Customer.gs - 変更されていない元のスクリーンセット。
• Cust.ism - 変更されていない元のデータ ファイル。

  Call-Dialog-System SECTION.
      CALL dialog-system USING ds-control-block,
                               customer-data-block
                               omitted