COBOL言語の数値の操作について理解しよう！｜基礎ガイド

COBOL（コボル）言語のさまざまな数値操作の方法とは

基礎-数値操作の四則演算-イメージ

COBOL（コボル）言語の数値操作とは？

では数値の操作について考えてみましょう。よく使われる数値操作としては数値と演算子を組み合わせる算術式で、足し算、引き算、掛け算、割り算の四則演算や括弧を使った数値の計算になります。四則演算はそれぞれその機能を実現するために予め予約語が定義されています。足し算：ADD文、引き算：SUBTRACT文、掛け算：MULTIPLY文、割り算：DIVIDE文、それぞれのプログラムを作成して理解していきましょう。

書き方１(ADD文）

ADD A TO B　：AをBに加算してBに代入

書き方２(SUBTRACT文）

SUBTRACT A FROM B　：AをBから減算してBに代入

書き方３(MULTIPLY文）

MULTIPLY A BY B　：AとBを乗算してBに代入

書き方４(DIVIDE文）

DIVIDE A INTO B　：BからAを除算してBに代入

使用例：

基礎-数値操作の四則演算を使用したプログラム1-使用例

実行結果：

基礎-数値操作の四則演算を使用したプログラム1-実行結果

COBOL(コボル)言語の数値操作における基本事項やルールについて

1.「ADD TO、SUBTRACT FROM、MULTIPLY BY、DIVIDE INTO」の間の空白や改行は、自由に設定できます。

2.四則演算として指定する項目は、数字項目を指定する必要があります。

3.代入先の数字項目に「ROUNDED」指定を行うと、四捨五入した結果が返却されます。

4.「GIVING」指定を行うと、演算結果の代入先を指定することができます。

COBOL(コボル)言語の数値操作における注意点

演算を行った結果、指定したデータ項目の桁数の最大値を超え、桁あふれが発生する場合があります。桁あふれの条件が成立した場合、「ON SIZE ERROR」指定をしておくと桁あふれが発生した場合の対応を記述することができます。エラーで処理が中断しないように、また処理エラーが検知できるようにプログラミングしておきましょう。

「END-ADD、END-SUBTRACT、END-MULTIPLY、END-DIVIDE」など文の終わりを明示的に示す明示範囲符の指定も可能です。明示範囲符の記述がなくても処理は正常に行われますが、プログラムのトレースが容易になりますので記述するようにしましょう。プログラムは単に処理が動くことを考えるだけでなく、後で見返したとき、他の人がプログラムを見たときに理解しやすいような記述を心がけましょう。

数値操作を考えたCOBOL(コボル)プログラムの活用法

先ほどまで四則演算として使用する予約語「ADD、SUBTRACT、MULTIPLY、DIVIDE」をご紹介しました。

レガシープログラムとしては多く使用されていますが、全ての機能を有する「COMPUTE」文の使用が便利です。「COMPUTE」文は算術式のイメージで記述できるため、直感的に理解しやすく一度に計算できる特徴があります。では、先ほどのサンプルプログラムを「COMPUTE」文に変えて記述してみましょう。

サンプルプログラム：

IDENTIFICATION        DIVISION.
PROGRAM-ID.          SUJI_SAMPLE2.
ENVIRONMENT           DIVISION.
DATA             DIVISION.
WORKING-STORAGE         SECTION.
01  WK-SUJI        PIC S9(2) VALUE 10.
PROCEDURE DIVISION.
 DISPLAY "WK-SUJI=" WK-SUJI.
 
 COMPUTE WK-SUJI = WK-SUJI + 1.
 DISPLAY "+:WK-SUJI=" WK-SUJI.
 
 COMPUTE WK-SUJI = WK-SUJI - 1.
 DISPLAY "-:WK-SUJI=" WK-SUJI.
 
 COMPUTE WK-SUJI = WK-SUJI * 2.
 DISPLAY "*:WK-SUJI=" WK-SUJI.
 
 COMPUTE WK-SUJI = WK-SUJI / 2.
 DISPLAY "/:WK-SUJI=" WK-SUJI.
 
 COMPUTE WK-SUJI = (WK-SUJI + 1 - 1) * 2 / 2.
 DISPLAY "MIX:WK-SUJI=" WK-SUJI. 
STOP RUN.