COBOL言語の関数「REM」について理解しよう！｜用語辞典

COBOL（コボル）言語の予約語REMを使った剰余の算出とは

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

COBOL（コボル）言語のREM関数とは？

COBOL(コボル)の組込み関数であるREM関数は、ある数値を別の数値で割る事によって割りきれないで残った数、剰余を求めたい場合に使用します。普通の演算式で計算をする中でも剰余を求める事はできますが、COBOL(コボル)では、より活用しやすい環境を予約語として提供しています。では早速COBOL言語での使い方について見ていきましょう。

書き方（REM関数）：

FUNCTION REM（引数1 引数2）

・関数の型：数字型

・引数1：割られる数値を指定します。

・引数2：割る数値を指定します。割る数値は0以外の整数を指定します。

・戻り値:引数1を引数2で割った時の余りです。結果の数値が整数でない場合は、浮動小数点形式が使用されます。

使用例：

辞典・辞書-REM-使用例

実行結果：

辞典・辞書-REM-実行結果

REM関数のCOBOL（コボル）言語における基本事項やルールについて

1.「REM」の間の空白や改行は、自由に設定できます。

2.組込み関数の前には予約語「FUNCTION」を指定する必要があります。

3.引数2で割る数値は0以外の整数を指定する必要があります。

COBOL(コボル)言語のREM関数を扱う上での注意点

COBOL言語のREM関数は、以下の演算式で定義する事ができます。

「引数1 - (引数2 * FUNCTION INTEGER-PART (引数1 / 引数2))」

式の中で使用している予約語「INTEGER-PART」は、ある値の整数部を求めたい場合に使用します。整数部とは、小数点以下の値を切り捨てるイメージです。例えば12/5=2.4の場合、2が整数部となります。似た予約語にINTEGERがありますが、こちらは引数値を超えない最大の整数となりますので、使用する際は注意しましょう。

REM関数を使ったCOBOL(コボル)プログラムの活用法

REM関数は、先ほどご紹介した通りある数値を別の数値で除算し、その余りを取得したい場合に使用する関数でした。ここでは活用法として、REM関数と剰余を演算式を使って求める場合の2種類のプログラミングを記述して、結果値及びREM関数の動きについて理解を深めてみましょう。例では、割られる数として、0、正の数値、負の数値、割る数としても、正の数値、負の数値の組み合わせを用意しましたので、結果を確認してみましょう。

サンプルプログラム（REM2）：

IDENTIFICATION      DIVISION.
PROGRAM-ID.        REM_SAMPLE2.
ENVIRONMENT         DIVISION.
INPUT-OUTPUT        SECTION.
DATA           DIVISION.
WORKING-STORAGE       SECTION.
01  WK-SUJI.
 03  WK-SUJI-0    PIC S99 VALUE ZERO.
 03  WK-SUJI-SEI   PIC S99 VALUE  12.
 03  WK-SUJI-FU    PIC S99 VALUE -12.
01  WK-RESULT.
 03  WK-R1       PIC S99.
 03  WK-R2       PIC S99.
 03  WK-R3       PIC S99.
PROCEDURE DIVISION.
DISPLAY "割られる数値：0、割る数値：5".
COMPUTE WK-R1 = FUNCTION REM(WK-SUJI-0 5).
DISPLAY WK-R1.
COMPUTE WK-R1 = WK-SUJI-0 - (5 * FUNCTION INTEGER-PART (WK-SUJI-0/5)).
DISPLAY WK-R1.
 
DISPLAY "割られる数値：0、割る数値：-5".
COMPUTE WK-R1 = FUNCTION REM(WK-SUJI-0 -5).
DISPLAY WK-R1.
COMPUTE WK-R1 = WK-SUJI-0 - (-5 * FUNCTION INTEGER-PART (WK-SUJI-0/-5)).
DISPLAY WK-R1.
 
DISPLAY "割られる数値：12、割る数値：5".
COMPUTE WK-R2 = FUNCTION REM(WK-SUJI-SEI 5).
DISPLAY WK-R2.
COMPUTE WK-R2 = WK-SUJI-SEI - (5 * FUNCTION INTEGER-PART (WK-SUJI-SEI/5)).
DISPLAY WK-R2.
 
DISPLAY "割られる数値：12、割る数値：-5".
COMPUTE WK-R2 = FUNCTION REM(WK-SUJI-SEI -5).
DISPLAY WK-R2.
COMPUTE WK-R2 = WK-SUJI-SEI - (-5 * FUNCTION INTEGER-PART (WK-SUJI-SEI/-5)).
DISPLAY WK-R2.
 
DISPLAY "割られる数値：-12、割る数値：5".
COMPUTE WK-R3 = FUNCTION REM(WK-SUJI-FU 5).
DISPLAY WK-R3.
COMPUTE WK-R3 = WK-SUJI-FU - (5 * FUNCTION INTEGER-PART (WK-SUJI-FU/5)).
DISPLAY WK-R3.
 
DISPLAY "割られる数値：-12、割る数値：-5".
COMPUTE WK-R3 = FUNCTION REM(WK-SUJI-FU -5).
DISPLAY WK-R3.
COMPUTE WK-R3 = WK-SUJI-FU - (-5 * FUNCTION INTEGER-PART (WK-SUJI-FU/-5)).
DISPLAY WK-R3.
STOP RUN.

実行結果（REM2）：

辞典・辞書-REM-実行結果

今回ご紹介したREM関数は、ある数値を別の数値で除算し、その余りを取得したい場合に使用する関数でした。余りは、情報通信で使用されている暗号や，通信路の誤りを訂正する技術分野で活用されていますので、是非この機会に一度サンプルプログラムを作成して機能の理解を深め、実際のプログラミングに活用いただければと思います。

この記事を読んだ人は、こちらの記事も読んでいます

あなたのCOBOL技術を活かしませんか？

株式会社COBOLの求人・転職・募集情報を見る

COBOL入門のカテゴリー

｜　基礎　｜　応用　｜　勉強　｜　試験　｜　辞書　｜