Rational Developer for System z
COBOL for Windows バージョン 7.5 プログラミング・ガイド


アクティブ・ロケールおよびコード・ページ値へのアクセス

コンパイル時に有効なロケールを検証するには、コンパイラー・リストの最後の数行を検査します。

アプリケーションによっては、実行時にアクティブなロケールおよび EBCDIC コード・ページを検証し、コード・ページ ID を対応する CCSID に変換することが必要な場合もあります。 このような照会や変換は、呼び出し可能なライブラリー・ルーチンを使用して実行することができます。

実行時にアクティブなロケールおよび EBCDIC コード・ページにアクセスするには、 以下のようにライブラリー関数 _iwzGetLocaleCP を呼び出します。

CALL “_iwzGetLocaleCP” USING output1, output2

変数 output1 は、次のフォーマットでヌル終了ロケール値を表す、20 文字の英数字項目です。

例えば、en_US.IBM-1252 は、言語コード en、国別コード US、コード・ページ IBM-1252 のロケール値を表しています。

変数 output2 は、有効なヌル終了 EBCDIC コード・ページ ID を表す、10 文字の英数字項目 (IBM-1140 など) です。

コード・ページ ID を対応する CCSID に変換するには、次のようにライブラリー関数 _iwzGetCCSID を呼び出します。

CALL “_iwzGetCCSID” USING input, output RETURNING returncode

input は、ヌル終了コード・ページ ID を表す英数字項目です。

output は、4 バイトの符号付き 2 進数データ項目 (PIC S9(5) COMP-5 として定義された項目など) です。入力コード・ページ ID ストリングまたはエラー・コード -1 に対応する CCSID が戻されます。

returncode は、次のように設定される、4 バイトの符号付き 2 進数データ項目です。

0
成功
1
コード・ページ ID は有効だが、関連する CCSID がない。 output は -1 に設定されます。
-1
コード・ページ ID が有効なコード・ページではない。 output は -1 に設定されます。

これらのサービスを呼び出すには、SYSTEM 呼び出しインターフェース規約と、PGMNAME(MIXED) および NODYNAM コンパイラー・オプションを使用する必要があります。

例: コード・ページ ID の取得および変換

関連タスク
ロケールの設定

関連参照
CALLINT
DYNAM
PGMNAME
コンパイラー指示ステートメント
SYSTEM


ご利用条件 | フィードバック

Copyright IBM Corporation 1996, 2008.
このインフォメーション・センターでは Eclipse テクノロジーが採用されています。(http://www.eclipse.org)