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

COBOL(コボル)言語の予約語MAX、MINを使った最大値、最小値の求め方とは

辞典・辞書-MAX&MIN-IMG-イメージ

COBOL(コボル)言語のMAX，MINとは？

COBOL(コボル)の組み込み関数であるMAX関数、MIN関数は2つ以上の項目や値から最大値、最小値を求める場合に使用します。MAX関数は指定された複数の引数から最大値が含まれる引数の値を返し、MIN関数は指定された複数の引数から最小値が含まれる値を返します。

書き方（MAX関数）:

FUNCTION MAX（引数-1、引数-2、・・・）

書き方（MIN関数）：

FUNCTION MIN（引数-1、引数-2、・・・）

たとえば、プログラムで定義された以下の項目から最大値、最小値を求めたい場合があるとします。

03  NUM-A      PIC 9(3)       VALUE 200.
03  NUM-B      PIC 9(3)       VALUE 300.
03  NUM-C      PIC 9(3)       VALUE 100.

以下のように引数を指定するとMAX関数、MIN関数は最大値、最小値を含む引数の値が返されます。この例ではMAX関数は最大値300を返し、MIN関数は最小値100を返します。

FUNCTION MAX(NUM-A NUM-B NUM-C).
FUNCTION MIN(NUM-A NUM-B NUM-C).

使用例：

辞典・辞書-MAX&MIN-IMG-使用例

実行結果：

辞典・辞書-MAX&MIN-IMG-実行結果:

MAX、MIN関数のCOBOL(コボル)言語における基本事項やルールについて

「FUNCTION MAX」の間の空白や改行は、自由に設定できます。
MAX関数やMIN関数のような組み込み関数は、関数名の前に予約後「FUNCTION」を指定する必要があります。
引数には最大値・最小値を求める値を複数指定する必要があります。
MAX、MIN関数の引数は数字のほか、英字・英数字・国別を指定することもできます。
戻り値は引数の項目が持っている値の内容が返されます。最大値、最小値を求める比較は単純条件の規則に従います。
比較する項目で2つ以上の同じ値の最大値、最小値がある場合は、左側にある引数-1の内容が返されます。

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

MAX関数、MIN関数で引数に指定する値は、同じ型（数字・英字・英数字・国別）である必要があります。ただし、英字と英数字の引数の組み合わせは可能です。

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

MAX、MIN関数はCOBOL(コボル)言語で複数の項目から最大値、最小値を求めるときに非常に便利です。ここでは、活用法としてACCEPT文で入力した値から最大値、最小値を求める簡単なプログラムを紹介します。

サンプルプログラム1：

IDENTIFICATION       DIVISION.
PROGRAM-ID.         MAXMIN_SAMPLE01.
ENVIRONMENT          DIVISION.
INPUT-OUTPUT         SECTION.
DATA             DIVISION.
WORKING-STORAGE        SECTION.
 01 SAMPLE-DATA.
  03  NUM-A    PIC 9(3).
  03  NUM-B    PIC 9(3).
  03  NUM-C    PIC 9(3).
 01 NUM-MAX      PIC 9(3).
 01 NUM-MIN      PIC 9(3).
 
PROCEDURE DIVISION.
 
*>----------------------------------------------------
*> コンソールに入力
*>----------------------------------------------------
 DISPLAY "数字を入力してください(1/3)。>> " WITH NO ADVANCING.
 ACCEPT NUM-A FROM CONSOLE.
 
 DISPLAY "数字を入力してください(2/3)。>> " WITH NO ADVANCING.
 ACCEPT NUM-B FROM CONSOLE.
 
 DISPLAY "数字を入力してください(3/3)。>> " WITH NO ADVANCING.
 ACCEPT NUM-C FROM CONSOLE.
 
*>----------------------------------------------------
*> 最大値／最小値を求める
*>----------------------------------------------------
 
COMPUTE NUM-MAX = FUNCTION MAX(NUM-A NUM-B NUM-C).
COMPUTE NUM-MIN = FUNCTION MIN(NUM-A NUM-B NUM-C).
 
DISPLAY "最大値は："NUM-MAX.
DISPLAY "最小値は："NUM-MIN.

実行結果：

辞典・辞書-MAX&MIN-IMG-入力例

先述したようにMAX関数、MIN関数は英字などの文字列を比較するときにも使用できます。以下のサンプルでは入力した英字の文字列から最大値、最小値を求めます。なお、文字列の場合アルファベット順に最大値、最小値が精査されます。

サンプルプログラム2：

IDENTIFICATION       DIVISION.
PROGRAM-ID.         MAXMIN_SAMPLE02.
ENVIRONMENT          DIVISION.
INPUT-OUTPUT         SECTION.
DATA             DIVISION.
WORKING-STORAGE        SECTION.
 01 FRUITS-DATA.
  03  STR-A      PIC X(10).
  03  STR-B      PIC X(10).
  03  STR-C      PIC X(10).
 01 STR-MAX       PIC X(10).
 01 STR-MIN       PIC X(10).
 
PROCEDURE DIVISION.
 
*>----------------------------------------------------
*> コンソールに入力
*>----------------------------------------------------
 DISPLAY "文字列を入力してください(1/3)。>> " WITH NO ADVANCING.
 ACCEPT STR-A FROM CONSOLE.
 
 DISPLAY "文字列を入力してください(2/3)。>> " WITH NO ADVANCING.
 ACCEPT STR-B FROM CONSOLE.
 
 DISPLAY "文字列を入力してください(3/3)。>> " WITH NO ADVANCING.
 ACCEPT STR-C FROM CONSOLE.
 
*>----------------------------------------------------
*> 最大値／最小値を求める
*>----------------------------------------------------
 
MOVE FUNCTION MAX(STR-A STR-B STR-C) TO STR-MAX.
MOVE FUNCTION MIN(STR-A STR-B STR-C) TO STR-MIN.
 
DISPLAY "最大値は："STR-MAX.
DISPLAY "最小値は："STR-MIN.