出番が少ない「SUBTRACT文」はCOBOL言語の減算処理文です｜用語辞典

COBOL(コボル)言語の予約語SUBTRACT文を使った命令文の書き方とは

辞典・辞書-SUBTRACT-イメージ

COBOL(コボル)言語のSUBTRACT文とは？

COBOL(コボル)には、演算処理時に単純に計算式を用いて計算処理を行う方法と、演算用の命令文を用いて計算処理を行う方法があります。

データ項目の値に対して、指定した値を加算するときにはADD文を使用し、指定した値を減算するときにはSUBTRACT文を使用します。

COBOLでは四則演算の減算(SUBTRACT)・乗算(MULTPLY)・除算(DIVIDE)は、使用する頻度が低い演算です。演算処理を行うには、一般的にCOMPUTE文を使用したほうが、文法的に誤解を生じにくいと言えます。

本記事では、COBOLにおける四則演算のうち、SUBTRACT文について基本的な使い方やルール、注意点などをご紹介します。

書き方1:

以下の書き方は、減算対象項目から減算する項目を減算して、減算対象項目に代入する方法です。

SUBTRACT [減算する項目1] [減算する項目2]… FROM [減算対象項目1] [減算対象項目2]…

書き方2:(四捨五入する場合)

減算結果を四捨五入して格納するためには、ROUNDEDを指定します。

SUBTRACT [減算する項目1] [減算する項目2]… FROM [減算対象項目1] ROUNDED

[減算対象項目2] ROUNDED…

書き方3:(指定した項目に保存する場合)

減算結果を指定したデータ項目に格納するためには、GIVING句を指定します。GIVING句を指定すると、減算結果は減算結果格納項目に格納されます。

SUBTRACT [減算する項目1] [減算する項目2]… FROM [減算対象項目] GIVING

[減算結果格納項目]
以下にSUBTRACT文を使用して、減算処理を実行する簡単なプログラムを紹介します。

辞典・辞書-SUBTRACT-プログラム

実行結果：

サンプルでは減算する項目WORK-NUMと、減算対象項目にWORK-SUMを設定し、SUBTRACT文で減算処理を実行しています。

サンプルで実行している「SUBTRACT WORK-NUM FROM WORK-SUM.」は、以下のように処理を実行しています。

WORK-SUM = WORK-SUM - WORK-NUM

SUBTRACT文のCOBOL(コボル)言語における基本事項やルールについて

SUBTRACT、減算する項目、FROM、減算対象項目の各要素間の空白や改行有無は自由に設定できます。
減算した結果は、減算対象項目に格納されます。
減算対象項目にROUNDEDを使用すると、減算の結果が四捨五入されます。
減算する項目は、複数指定した場合はすべてを加算した結果を減算対象項目から減算します。
減算対象項目を複数指定した場合は減算対象項目1、減算対象項目2にそれぞれ減算結果が格納されます。
GIVING句を指定すると、減算結果を格納する場所の指定をしたデータ項目に、減算結果が格納されます。GIVING句を指定した場合は、減算対象項目には内容が格納されません。

COBOL(コボル)言語のSUBTRACT文を扱う上での注意点

指定するデータ項目は減算する項目、減算対象項目ともに数値でなければいけません。

以下のようにデータ項目にXを指定すると、コンパイルエラーが発生しますので注意しましょう。

辞典・辞書-SUBTRACT-エラー例1

※データ項目にXを指定するとコンパイルエラーが発生します。

SUBTRACT文を使ったCOBOL(コボル)プログラムの活用法

活用法として減算する項目を複数指定し、ROUNDEDによる四捨五入及びGIVINGによる指定したデータ項目へ保存する簡単なサンプルを、以下に紹介します。

IDENTIFICATION            DIVISION.
PROGRAM-ID.               SUBTRACT_SAMPLE02.
 
ENVIRONMENT               DIVISION.
CONFIGURATION             SECTION.
DATA                  DIVISION.
 　　 WORKING-STORAGE           SECTION.
    01 TEST-WORK-AREA.
    03 WORK-NUM-1         PIC 9(03)V99.
    03 WORK-NUM-2         PIC 9(03)V99.
    03 WORK-SUM-1         PIC 9(03).
    03 WORK-SUM-2         PIC 9(03).
 
PROCEDURE                 DIVISION.
  　　　MAIN                 SECTION.
 
    MOVE 3.3  TO WORK-NUM-1.
    MOVE 3.4  TO WORK-NUM-2.
 
    MOVE 10 TO WORK-SUM-1.
 
   *>減算処理を実行
   SUBTRACT WORK-NUM-1 WORK-NUM-2 FROM WORK-SUM-1
         GIVING WORK-SUM-2 ROUNDED.
 
   *>GIVINGを指定しているので減算結果が更新されない
    DISPLAY "WORK-SUM-1 : "WORK-SUM-1.
 
   *>ROUNDEDを指定しているので四捨五入された減算結果となる
    DISPLAY "WORK-SUM-2 : "WORK-SUM-2.
 
STOP RUN.