COBOL言語の「LOW-VALUE」の使い方について理解しよう！｜基礎ガイド

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

基礎-LOW-VALUE-イメージ

COBOL（コボル）言語のLOW-VALUEとは？

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

LOW-VALUEはある変数に対して値を全て「00」で埋めるという機能を持ちます。これはCOBOL言語上、最小の値を有する事を意味します。では早速LOW-VALUEの書き方、使用例について見ていきましょう。

書き方：

LOW-VALUE

使用例：

基礎-LOW-VALUE-使用例

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

実行結果：

基礎-LOW-VALUE-実行結果

COBOL（コボル）言語のHIGH-VALUEとは？

LOW-VALUEと対になる予約語についても紹介しておきます。それはHIGH-VALUEです。

HIGH-VALUEはある変数に対して値を全て16進数「FF」で埋めるという機能を持ちます。これはCOBOL言語上、最大の値を有する事を意味します。

HIGH-VALUEはLOW-VALUEと共に、ある条件の範囲が不明な場合に合わせて使用される事がありますので、その書き方、使用例について合わせて覚えておくようにしましょう。

書き方：

HIGH-VALUE

使用例：

基礎-LOW-VALUE-使用例1

使用例は、ある基本項目、集団項目に対してHIGH-VALUEを移送し、99、9999999と値の大きさを比較しています。99、9999999より値が大きい場合はそれがわかるメッセージを表示します。この使用例で、HIGH-VALUEが99、9999999よりも大きい事がご理解いただけるかと思います。

実行結果：

基礎-LOW-VALUE-実行結果1

LOW-VALUEのCOBOL（コボル）言語における基本事項や注意事項

LOW-VALUEは、英数字と同じように値の初期値として使用する事ができます。
LOW-VALUEは、英数字と同じようにある変数に対して値を移送する事ができます。
LOW-VALUEは、英数字と同じように条件式の比較対象として指定できます。
LOW-VALUEは16進数「00」を有するため、値を画面表示させてもお使いの環境によっては何も表示されない場合があります。

LOW-VALUEを使ったCOBOL(コボル)プログラムの活用法

プログラムの中である条件に合致する値を取得したいが、条件として指定する値が定まらないという事があります。

このような場合にもLOW-VALUEは有効です。LOW-VALUEは初期値として、また条件比較する際にも使用できます。

ここではDBから値を取得する場合を例として用意しましたので、その使用例を確認しましょう。WHERE句にTABLEのキー項目を条件指定できている事にも注目です。

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

IDENTIFICATION                DIVISION.
PROGRAM-ID.                  LOWVALUE_SAMPLE03.
ENVIRONMENT                   DIVISION.
DATA                     DIVISION.
*****************************************************
WORKING-STORAGE                 SECTION.
* 1.ホスト変数の定義
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01  DBNAME   PIC X(32) VALUE "testdb".
01  USERNAME  PIC X(32) VALUE "********".
01  PASSWORD  PIC X(32) VALUE "********".
01  TID-L    PIC X(4)  VALUE LOW-VALUE.
01  TID     PIC X(4).
01  TNAME     PIC X(10).
01  SW-AREA.
 03  SW-NOTFOUND PIC X(01) VALUE SPACE.
01  CST-AREA.
 03  CST-1X      PIC X(01) VALUE "1".
 03  CST-SQL-NF  PIC S9(09) COMP-5 VALUE +100.
EXEC SQL END DECLARE SECTION END-EXEC.
*****************************************************
* 2.共通領域の定義
EXEC SQL INCLUDE SQLCA END-EXEC.
*****************************************************
PROCEDURE                     DIVISION.
MAIN-RTN                     SECTION.
* 3.データベース接続
EXEC SQL
 CONNECT :USERNAME IDENTIFIED BY :PASSWORD
     USING :DBNAME
END-EXEC.
* 4.データベースアクセス
*** DB カーソルオープン処理
   PERFORM  OPEN-RTN.
*** DB FETCH処理
   PERFORM  FETCH-RTN UNTIL SW-NOTFOUND = CST-1X.
*** DB カーソルクローズ処理
   PERFORM  CLOSE-RTN.
STOP RUN.
MAIN-EXIT.
*****************************************************
***  DB カーソルオープン処理
OPEN-RTN                      SECTION.
 EXEC SQL
  DECLARE  CSR01  CURSOR  FOR
  SELECT   tid,tname
  FROM     test
  WHERE    tid >= :TID-L
  ORDER BY tid
 END-EXEC.
 EXEC SQL
  OPEN CSR01
 END-EXEC.
OPEN-EXIT.
*****************************************************
***  DB FETCH処理
FETCH-RTN                     SECTION.
 EXEC SQL
  FETCH CSR01
  INTO  :TID,:TNAME
 END-EXEC.
*
 IF SQLCODE = CST-SQL-NF
 THEN
  MOVE CST-1X TO SW-NOTFOUND
 ELSE
  DISPLAY TID TNAME
 END-IF.
FETCH-EXIT.
*****************************************************
***  DB カーソルクローズ処理
CLOSE-RTN                     SECTION.
 EXEC SQL
  CLOSE CSR01
 END-EXEC.
CLOSE-EXIT.
*****************************************************
END PROGRAM LOWVALUE_SAMPLE03.

テーブル（test)：処理実行前

基礎-LOW-VALUE-処理実行前2

実行結果：

基礎-LOW-VALUE-実行結果2

いかがでしたでしょうか？COBOL(コボル)言語はこのように複雑になりがちな、またどう書けば悩むようなものが予約語として用意されている事があります。他のプログラミング言語を学習したCOBOL(コボル)言語入門者からすると、少し見慣れない内容で戸惑う事もあるかもわかりませんが、COBOL(コボル)言語用語辞典なども活用しながら予約語を少しずつ理解しコーディングの幅を広げていっていただければと思います。

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

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

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

COBOL入門のカテゴリー

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