COBOL（コボル）言語の最小の値を持つLOW-VALUEとは

COBOL(コボル)言語には変数の値を初期化したり、初期値として値を持たせたり、条件として比較したりする場合に予め用意された予約語があります。その1つが今回ご紹介するLOW-VALUEです。

LOW-VALUEはある変数に対して値を全て16進数「00」で埋めるという機能を持ちます。これはCOBOL言語上、最小の値を有する事を意味します。LOW-VALUEは、一般的には条件の範囲が不明な場合に使用されます。では早速LOW-VALUEの書き方、使用例について見ていきましょう。

書き方（LOW-VALUE）

LOW-VALUE

使用例：

使用例は、ある2桁の項目に対してLOW-VALUEを移送し、0と比較し、それよりも小さい値の場合はそれがわかるメッセージを表示しています。この処理の実行結果で、LOW-VALUEが0よりも小さい値である事がご理解いただけるかと思います。

実行結果：

1.LOW-VALUEは、英数字と同じように値の初期値として使用する事ができます。

2.LOW-VALUEは、英数字と同じようにある変数に対して値を移送する事ができます。

3.LOW-VALUEは、英数字と同じように条件式の比較対象として指定できます。

4.LOW-VALUEは16進数「00」を有するため、値を画面表示させてもお使いの環境によっては何も表示されない場合があります。

LOW-VALUEは一般的には、ある基本項目、集団項目に対してLOW-VALUEを移送して活用することになりますが、比較する項目の桁数には注意しましょう。LOW-VALUEを移送する項目の桁数が、値を比較する項目よりも大きい場合、正常に値の比較ができなくなってしまいますので注意しましょう。

LOW-VALUEは先ほどご紹介した通り、ある変数に対して最小値を指定したい場合に使用するものでした。ここではLOW-VALUEが全ての値の最小値である事を理解するために、実際にご自身で入力した値とLOW-VALUEを比較して、LOW-VALUEより大きい値が入力されていた場合、その値とメッセージを画面に表示するプログラムを作成してみましょう。

サンプルプログラム（LOW-VALUE2）：

IDENTIFICATION      DIVISION.
PROGRAM-ID.        LV_SAMPLE2.
ENVIRONMENT         DIVISION.
INPUT-OUTPUT        SECTION.
DATA            DIVISION.
WORKING-STORAGE       SECTION.
01 INPUT-RECORD.
 03 IN-DATA       PIC X(06) VALUE SPACE.
 03 IN-DATA-R      REDEFINES IN-DATA PIC 99 OCCURS 3.
 03 IN-DATA-LV     PIC 99 VALUE LOW-VALUE.
01 WK-COUNT           PIC 9.
PROCEDURE DIVISION.
DISPLAY "1番目の数字(2桁)を入力してください。>> " WITH NO ADVANCING.
ACCEPT IN-DATA-R(1) FROM CONSOLE.
 
DISPLAY "2番目の数字(2桁)を入力してください。>> " WITH NO ADVANCING.
ACCEPT IN-DATA-R(2) FROM CONSOLE.
 
DISPLAY "最後の数字(2桁)を入力してください。>> " WITH NO ADVANCING.
ACCEPT IN-DATA-R(3) FROM CONSOLE.
 
PERFORM VARYING WK-COUNT FROM 1 BY 1 UNTIL WK-COUNT > 3
IF IN-DATA-R(WK-COUNT) > IN-DATA-LV
DISPLAY IN-DATA-R(WK-COUNT) "はLOW-VALUEより大きい数字です"
END-PERFORM.
 
STOP RUN.

実行結果（LOW-VALUE2）：

使用例では画面から3回数字を入力してもらいます。その後、入力した値とLOW-VALUEと比較し、値が大きい場合はそれがわかるように画面にメッセージを表示しています。どのような値を入力してもLOW-VALUEより小さい値がない事が確認いただけるかと思います。LOW-VALUEはこのような特徴を持つため、ある値以下の値を全て取得する場合などに応用して活用されています。

今回ご紹介したLOW-VALUEは、ある変数に対して最小値を指定したい場合に使用するものでした。

COBOL言語には最大値、最小値のように定義がしにくい値についても予め予約語として定義がされています。実際にプログラミングして理解を深めてみましょう。

• 前の記事へ

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

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

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

COBOL入門のカテゴリー

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