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


例: 0 による除算の検査

次の例は、0 による除算を行うとプログラムが通知メッセージを 出すように、ON SIZE ERROR 命令ステートメントをコーディングする方法を示しています。

DIVIDE-TOTAL-COST.
    DIVIDE TOTAL-COST BY NUMBER-PURCHASED
        GIVING ANSWER
        ON SIZE ERROR
          DISPLAY “ERROR IN DIVIDE-TOTAL-COST PARAGRAPH”
          DISPLAY “SPENT ” TOTAL-COST, “ FOR ” NUMBER-PURCHASED
          PERFORM FINISH
    END-DIVIDE
    . . .
    FINISH.
    STOP RUN.

0 による除算を行うと、プログラムはメッセージを書き出し、プログラム実行を停止します。


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

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