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


例: 複数の通貨符号

次の例は、ユーロ通貨 (EUR) とスイスのフラン (CHF) の両方で値を表示する方法を示すものです。

IDENTIFICATION DIVISION.
PROGRAM-ID. EuroSamp.
Environment Division.
Configuration Section.
Special-Names.
    Currency Sign is “CHF ”  with Picture Symbol “F”
    Currency Sign is “EUR ”  with Picture Symbol “U”.
Data Division.
Working-Storage Section.
01  Deposit-in-Euro        Pic S9999V99 Value 8000.00.
01  Deposit-in-CHF         Pic S99999V99.
01  Deposit-Report.
    02  Report-in-Franc    Pic -FFFFF9.99.
    02  Report-in-Euro     Pic -UUUUU9.99.
01  EUR-to-CHF-Conv-Rate   Pic 9V99999  Value 1.53893.
. . .
PROCEDURE DIVISION.
Report-Deposit-in-CHF-and-EUR.
    Move Deposit-in-Euro to Report-in-Euro
    Compute Deposit-in-CHF Rounded
          = Deposit-in-Euro * EUR-to-CHF-Conv-Rate
      On Size Error
        Perform Conversion-Error
      Not On Size Error
        Move Deposit-in-CHF to Report-in-Franc
        Display “Deposit in euro  = ” Report-in-Euro
        Display “Deposit in franc = ” Report-in-Franc
    End-Compute
    Goback.
Conversion-Error.
           Display “Conversion error from EUR to CHF”
           Display “Euro value: ” Report-in-Euro.

上記の例は、次のような表示出力を作成します。

Deposit in euro  =  EUR 8000.00
Deposit in franc = CHF 12311.44

この例で使用されている交換レートは例として使われているだけです。


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

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