COBOL言語の「VARYING句」は便利?使用方法を学びましょう | 用語辞典
COBOL(コボル)言語の予約語VARYINGを使った繰り返しの制御とは
COBOL(コボル)言語のVARYING句とは?
VARYING(英語)は、日本語に訳すると「連続して変化する」という意味です。
COBOL(コボル)言語のVARYING句は、PERFORM文中の変動項目を連続して一定の値で変化させるために使用します。
VARYING句の形式
VARYING句は、直後に記述された変動項目(カウンタ)の値を、FROM句で指定された値から、BY句で指定された値分変動させます。
■書式
PERFORM VARYING カウンタ FROM 初期値 BY 変動値 UNTIL 条件式(論理式)
命令群
END-PERFORM.
■構文規則
<カウンタ>
カウンタとして変化させる変動項目を記述します。
<初期値>
カウンタとして変化させる変動項目の初期値を整数値で記述します。
<変動値>
カウンタとして変化させる変動項目を変化させる値を整数値で記述します。
<論理式>
カウンタとして変化させる変動項目の変化させ続ける条件を論理式で記述します。
<命令群>
実行させる命令を記述します。命令は複数でも単数でもかまいません。
■使用例
実際にPERFORM文にVARYING句を使用したプログラム例をご紹介します。
サンプルプログラムは整数値の1から10までを加算し、結果をコンソールに表示するプログラムです。
サンプル1は、VARYING句を使わないPERFORM文、サンプル2はサンプル1のロジックを、VARYING句を使って記述しています。2つのサンプルを比べると、VARYING句によってプログラムがシンプルになったことがわかるでしょう。
【サンプル1】
【サンプル1の実行結果】
【サンプル2】
【サンプル2の実行結果】
VARYING句のCOBOL(コボル)言語における基本事項やルールについて
VARYING句は、PERFORM文に変動項目(カウンタ)を定義する予約語です。FROM句、BY句、UNTIL句と組み合わせることによって、カウンタの変動と繰り返しを継続する条件を制御します。VARYING句単体では使用できません。
VARYING句を指定したときの繰り返し条件になる論理式は、IF文の論理式に使用できる記号と演算子と同じです。では、使用できる論理式と演算子をご紹介します。
記号/ |
意味 |
論理式の例 |
論理式の意味 |
= |
等しい |
A = B |
AとBが等しい場合、真 |
NOT = |
等しくない |
A NOT = B |
AとBが異なる場合、真 |
> |
より大きい |
A > B |
AがBより大きい場合、真 |
>= |
以上 |
A >= B |
AがBより大きい、または等しい場合、真 |
< |
より小さい |
A < B |
AがBより小さい場合、真 |
<= |
以下 |
A <= B |
AがBより小さい、または等しい場合、真 |
AND |
かつ |
A = B AND C = D |
両方が成り立つ場合、真 |
OR |
または |
A = B OR C = D |
どちらかが成り立つ場合、真 |
NOT |
否定 |
NOT A > B |
「A > B」が成り立たない場合、真 |
論理式に使用する記号や演算子には、評価される順番があります。
記号である「=」、「NOT =」、「>」、「>=」、「<」、「<=」は、左から評価され、評価の優先順位を変える場合はカッコで括ると先に評価されます。また、記号は演算子である「AND」、「OR」、「NOT」よりも先に評価されます。
演算子である「AND」、「OR」、「NOT」も左から評価され、カッコで括ることによって先に評価させることができます。
COBOL(コボル)言語のVARYING句を使うときの注意点
VARYING句で指定したカウンタは、命令群で書かれた命令を実行したあとに変動することに注意して、FROM句で初期値を設定してください。
VARYING句を使ったCOBOL(コボル)プログラムの活用方法
PERFORM文には、繰り返す処理本体をEND-PERFORMまでの間に記述する内PERFORM文と、サブルーチンに記述する外PERFORM文がありますが、VARYING句は、どちらの場合にも指定することができます。
「COBOL(コボル)言語のVARYING句とは?」でご紹介したサンプル2は内PERFORM文でしたので、ここではサンプル2を外PERFORM文に変更して、VARYING句を使用してみましょう。
- ******************************************************************
- * Author:
- * Date:
- * Purpose:
- * Tectonics: cobc
- ******************************************************************
- IDENTIFICATION DIVISION.
- PROGRAM-ID. VARYING-SUMPLE3.
- DATA DIVISION.
- FILE SECTION.
- WORKING-STORAGE SECTION.
- 01 WORKING-AREA.
- * カウンタ&合計
- 03 CNT PIC 9(2).
- 03 KEKKA PIC 9(3).
- * コンソール表示バッファ
- 03 DSP_BUF PIC X(64).
- *-------------------------------------------
- * 主手続
- *-------------------------------------------
- PROCEDURE DIVISION.
- MAIN-PROCEDURE.
- * 合計エリアの初期化
- MOVE 0 TO KEKKA.
- * 1から10までを加算
- PERFORM CALC-PROC VARYING CNT FROM 1 BY 1 UNTIL CNT > 10.
- * 計算結果の表示
- STRING "計算結果は「" KEKKA "」です。"
- DELIMITED BY SPACE
- INTO DSP_BUF.
- DISPLAY DSP_BUF.
- STOP RUN.
- *-------------------------------------------
- * 計算処理
- *-------------------------------------------
- CALC-PROC.
- COMPUTE KEKKA = KEKKA + CNT.
- EXIT.
- END PROGRAM VARYING-SUMPLE3.
■実行結果
繰り返したい命令が何ステップにもなる場合、サブルーチンにまとめ、外PERFORM文にVARYING句でカウンタを指定するとプログラムがシンプルに構造化されます。COBOLプログラミングの基本は構造化プログラミングですので、ぜひVARYING句の使い方をマスターしてくださいね。
この記事を読んだ人は、こちらの記事も読んでいます
あなたの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句」は便利?使用方法を学びましょう|用語辞典