多くのプログラムでは金融情報を処理する必要があり、それらの情報を適切な通貨記号で出力表示する必要があります。 COBOL 通貨サポート (およびご使用のプリンターやディスプレイ装置に合ったコード・ページ) を使用するなら、プログラムで幾つかの通貨記号を使用できます。
以下の記号の 1 つ以上を使用できます。
金融情報を表示するための記号を指定するには、それらの記号に関連付けられる PICTURE 文字を指定した CURRENCY SIGN 節を (CONFIGURATION SECTION の SPECIAL-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' のいずれかです。
| コード・ページ 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 言語解説書」)