.NET COBOL でのコードページの競合の例

注: 次の説明は .NET COBOL にのみ該当します。

Visual Studio は、WPF および WCF ユーザーインターフェイスにプログラムからアクセスできるように、COBOL で部分クラスを作成します。これらの部分クラスは自動生成され、ユーザーまたは Visual Studio によって更新できます。

次の例では、以下のようになります。

Window1.xaml.cbl は、WPF (または WCF) ユーザーインターフェイスのソースコードです。
CodePageStuff.Window1 は、上記のソースから生成される部分クラスです。このファイルは自動生成されるため、デフォルトで UTF-8 コードページを使用してエンコードされます。
PicLen.cbl は、同じプロジェクト内にあります。このファイルには、スペースで埋められている c PIC X(1024) フィールドの内容の長さを評価するための簡単な COBOL プログラムのソースコードが格納されています。

PicLen.cbl が既存のコードである場合、または手動で入力した新規のソースファイルである場合、プラットフォームのデフォルトのコードページではエンコードされません。たとえば、英国では、これはコードページ 1252 となり、日本語ロケールマシンでは、通常は Shift-JIS コードページ 932 となります。

WindowStuff から PicLen が呼び出される場合、次のように、一方のコードページがもう一方のコードページを呼び出します。

       call "PicLen" using stuff lStuff

逆方向のコードページの呼び出しは、直接にはサポートされていません。アプリケーションが実行されると、COBOL ランタイムシステムはエラーを生成します。Window1 の次のソースコードは、これを処理して例外を表示するコードを示しています。

try
           set stuff to self::textBox1::Text
           call "PicLen" using stuff lStuff
           move lStuff to nStuff
           set self::textBox2::Text to nStuff::ToString()
       catch ex
           set self::textBox3::Text to ex::Message
       end-try

PicLen と Window1 が異なるコードページでエンコードされている場合、アプリケーションは次の例外を生成します。

198 Load failure [Program has an incompatible codepage dependency 
CodePageStuff.StrLen is using codepage Western European (Windows) 
but the first program CodePageStuff.Window1 is using Unicode (UTF-8)]

.NET COBOL でのコード ページの競合の例

.NET COBOL でのコードページの競合の例