COBOL言語の「LOW-VALUE」の使い方について理解しよう!|基礎ガイド
COBOL(コボル)言語の最小の値を持つLOW-VALUEとは
COBOL(コボル)言語のLOW-VALUEとは?
COBOL(コボル)言語には変数の値を初期化したり、初期値として値を持たせたり、条件として比較したりする場合に予め用意された予約語があります。その1つが今回ご紹介するLOW-VALUEです。
LOW-VALUEはある変数に対して値を全て「00」で埋めるという機能を持ちます。これはCOBOL言語上、最小の値を有する事を意味します。では早速LOW-VALUEの書き方、使用例について見ていきましょう。
書き方:
LOW-VALUE
使用例:
使用例は、ある基本項目、集団項目に対してZEROとLOW-VALUEを移送し、ZEROと値の大きさを比較しています。ZEROより値が小さい場合はそれがわかるメッセージを表示します。この使用例で、LOW-VALUEが0よりも小さい事がご理解いただけるかと思います。
実行結果:
COBOL(コボル)言語のHIGH-VALUEとは?
LOW-VALUEと対になる予約語についても紹介しておきます。それはHIGH-VALUEです。
HIGH-VALUEはある変数に対して値を全て16進数「FF」で埋めるという機能を持ちます。これはCOBOL言語上、最大の値を有する事を意味します。
HIGH-VALUEはLOW-VALUEと共に、ある条件の範囲が不明な場合に合わせて使用される事がありますので、その書き方、使用例について合わせて覚えておくようにしましょう。
書き方:
HIGH-VALUE
使用例:
使用例は、ある基本項目、集団項目に対してHIGH-VALUEを移送し、99、9999999と値の大きさを比較しています。99、9999999より値が大きい場合はそれがわかるメッセージを表示します。この使用例で、HIGH-VALUEが99、9999999よりも大きい事がご理解いただけるかと思います。
実行結果:
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):処理実行前
実行結果:
いかがでしたでしょうか?COBOL(コボル)言語はこのように複雑になりがちな、またどう書けば悩むようなものが予約語として用意されている事があります。他のプログラミング言語を学習したCOBOL(コボル)言語入門者からすると、少し見慣れない内容で戸惑う事もあるかもわかりませんが、COBOL(コボル)言語用語辞典なども活用しながら予約語を少しずつ理解しコーディングの幅を広げていっていただければと思います。
この記事を読んだ人は、こちらの記事も読んでいます
あなたのCOBOL技術を活かしませんか?
COBOL入門のカテゴリー
1. 優良社員が多数在籍しています
2. 即日派遣、又は請負います
3. 安心価格で請負います
4. 同時、協力会社募集中です
1. 正社員
2. 契約社員
3. 個人事業主
などの 求人情報 が閲覧できます。
目指せ!COBOLダントツ一番企業。
創業当初の話や理念が閲覧できます。
COBOLとは、どのようなプログラミング言語なのか、初心者にもわかりやすく、文法の例をあげて解説してます。
COBOL入門の人気記事
- COBOL言語とは?プログラムの書き方やルールを解説!|基礎ガイド
- 【COBOL言語】条件分岐処理の代名詞「IF文」について知ろう|用語辞典
- COBOL言語の「MOVE文」とは?転記のルールをご紹介します|用語辞典
- COBOL言語の「STRING文」とは?文字連結の基礎知識と注意点|用語辞典
- 多枝分岐ってなに?COBOL言語の「EVALUATE文」を知ろう!|用語辞典
- COBOL言語の「PICTURE句」とは?基本事項を解説します!|用語辞典
- COBOL言語で計算処理をするなら「COMPUTE文」|用語辞典
- COBOL言語の「REDEFINES句」とは?使い方を確認しよう!|用語辞典
- 覚えておけば楽ができる?COBOL言語の「COPY文」の使い方|用語辞典
- COBOL言語の文字列操作のパターンを理解しよう!|基礎ガイド
- COBOL言語の初期化処理に重宝する「INITIALIZE文」とは?|用語辞典
- COBOL言語の「LOW-VALUE」の使い方について理解しよう!|基礎ガイド
- COBOL言語の「OCCURS句」について知ろう!学ぶべき基本とは|用語辞典
- COBOL言語初心者も安心! 難解「CALL文」をスッキリ解決|用語辞典
- COBOL言語の「PERFORM文」とは。実行制御について解説!|用語辞典
- COBOL言語の繰り返し処理のパターンを理解しよう!|基礎ガイド
- COBOL言語の「定数」の種類と使い方について理解しよう!|用語辞典
- COBOLのDBアクセスパターンを学ぼう!「FETCH」|応用ガイド
- COBOL言語の「DISPLAY文」は、ディスプレイ出力の為にある|用語辞典
- COBOL言語の「VARYING句」は便利?使用方法を学びましょう|用語辞典