コードページの競合の例

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 です。

次のように PicLen が WindowStuff から呼び出されると、1 つのコードページが別のコードページを呼び出します。

       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)]

上位ヘルプ：コードページの競合

コード ページの競合の例

コードページの競合の例