Rational Developer for System z
Enterprise COBOL for z/OS バージョン 4.1 プログラミング・ガイド


通貨記号の使用

多くのプログラムでは金融情報を処理する必要があり、それらの情報を適切な通貨記号で出力表示する必要があります。 COBOL 通貨サポート (およびご使用のプリンターやディスプレイ装置に合ったコード・ページ) を使用するなら、プログラムで幾つかの通貨記号を使用できます。

以下の記号の 1 つ以上を使用できます。

金融情報を表示するための記号を指定するには、それらの記号に関連付けられる PICTURE 文字を指定した CURRENCY SIGN 節を (CONFIGURATION SECTIONSPECIAL-NAMES 段落の中で) 使用してください。 次の例で、PICTURE 文字 $ は、通貨記号として $US を使用することを示しています。

    Currency Sign is "$US" with Picture Symbol "$".
    . . .
77  Invoice-Amount      Pic $$,$$9.99.
. . .
    Display "Invoice amount is " Invoice-Amount.

この例で、Invoice-Amount に 1500.00 が含まれている場合は、次のように出力されます。

Invoice amount is  $US1,500.00

プログラム内で複数の CURRENCY SIGN 節を使用することにより、複数の通貨記号を表示することができます。

16 進リテラルを使用して通貨記号の値を表すことができます。ソース・プログラムのデータ入力方法では、対象とする文字を簡単に入力できない場合、16 進数リテラルを使用すると役立つことがあります。次の例は、通貨記号として使用される 16 進値 X'9F' を示しています。

    Currency Sign X'9F' with Picture Symbol 'U'.
    . . .
01  Deposit-Amount       Pic UUUUU9.99.

キーボード上にユーロ記号に相当する文字がない場合は、それを CURRENCY SIGN 節で 16 進値として指定する必要があります。ユーロ記号の 16 進値は、次の表に示すように、使用されているコード・ページに応じて、X'9F' または X'5A' のいずれかです。

表 1. ユーロ記号の 16 進値
コード・ページ CCSID 適用される国 変更元 ユーロ記号
1140 米国、カナダ、オランダ、ポルトガル、オーストラリア、ニュージーランド 037 X'9F'
1141 オーストリア、ドイツ 273 X'9F'
1142 デンマーク、ノルウェー 277 X'5A'
1143 フィンランド、スウェーデン 278 X'5A'
1144 イタリア 280 X'9F'
1145 スペイン、ラテンアメリカ - スペイン語圏 284 X'9F'
1146 英国 285 X'9F'
1147 フランス 297 X'9F'
1148 ベルギー、カナダ、スイス 500 X'9F'
1149 アイスランド 871 X'9F'

関連参照
CURRENCY  
CURRENCY SIGN 節 (「Enterprise COBOL 言語解説書」)  


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

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