【COBOL言語】「GO TO文」とは？使用頻度が減っている理由も解説します｜用語辞典

COBOL(コボル)言語の予約語GO TO文を使ったプログラムの流れの制御とは

辞典・辞書-GOTO-イメージ

COBOL(コボル)言語のGO TO文とは？

GO TO（英語）は、日本語に訳すると「～へ行く」という意味です。

COBOL（コボル）言語のGO TO文は、TOで示されるラベルにジャンプします。

GO TO文の形式

GO TO文は、TOのあとに書かれたラベルにジャンプします。

■書式

　 GO　TO 　ジャンプ先ラベル

■構文規則

　＜ジャンプ先ラベル＞

　処理をジャンプさせる先のラベル名を記述します。

■使用例

実際にGO TO文を使用したプログラム例をご紹介します。

辞典・辞書-GOTO-使用例

このプログラムは、コンソールに入力を促すメッセージを表示し、数字の0から9までの1文字を入力させる処理を繰り返すプログラムです。数字の9が入力されるとプログラムを終了します。

29行目のGO TO文で入力値のチェック処理にジャンプし、入力値のチェック処理では、入力値により、GO TO文での処理の戻り先が、「END-PROC」と「EXEC-DISPLAY-INPUT-PROC」の2カ所に分かれています。

■実行結果

はじめに入力を促すメッセージが表示されます。

辞典・辞書-GOTO-実行結果:

数字の0を入力してみます。

辞典・辞書-GOTO-入力例1

入力を促すメッセージが繰り返し表示されます。

次に数字の8を入力してみます。

辞典・辞書-GOTO-入力例2

入力を促すメッセージが繰り返し表示されます。

次に英字のAを入力してみます。

辞典・辞書-GOTO-入力例3

エラーメッセージが表示され、入力を促すメッセージが表示されます。

次に数字の9を入力してみます。

辞典・辞書-GOTO-入力例4

終了メッセージが表示され、プログラムが終了しました。

GO TO文のCOBOL(コボル)言語における基本事項やルールについて

GO TO文は処理を制御するための単純なジャンプ命令です。

処理をジャンプさせると、ジャンプ元のソースコードを見たときに、どこに処理が戻ってくるのか、またジャンプ先で処理がどこに行ってしまうのか理解しにくく、よく考えてジャンプさせないと、山盛りのスパゲティのように、処理の開始と終了がわからないソースコードになり、デバッグや改修が難しいプログラムになってしまいます。

このため、構造化プログラミングが主流となった現在のCOBOLプログラミングではGO TO文はほとんど使われず、サブルーチンを呼び出すPERFORM文や、別処理を呼び出すCALL文が使われています。

しかし、古いソースコードを読むと、まれにGO TO文が使われていることがありますので、参考として使い方を覚えておくといいでしょう。

COBOL（コボル）言語のGO TO文を使うときの注意点

現在の構造化されたCOBOLプログラミングでは、GO TO文を使うことがほとんどありませんが、どうしてもGO TO文を使う場合は、ジャンプ先から戻ってくるラベルを1カ所に統一するなど、処理の流れが明確にわかるようにしてください。

また、GO TO文を使う場合は、エラー処理などの例外処理などに限定しましょう。

GO TO文を使ったCOBOL（コボル）プログラムの活用方法

「COBOL(コボル)言語のGO TO文とは」でご紹介したサンプルプログラムは、ジャンプ先からの戻り先が複数あり、山盛りのスパゲティのように処理の開始と終了がわかりにくいソースコードでした。

しかし、大きくジャンプする箇所をエラー処理へのジャンプに限定し、繰り返し用のジャンプを1カ所に集約することによって、GO TO文を使っていても、比較的読みやすいソースコードにすることができます。

「COBOL(コボル)言語のGO TO文とは」のサンプルプログラムと同じ機能を、読みやすいソースコードにしたプログラムを、活用例としてご紹介します。

******************************************************************
* Author:
* Date:
* Purpose:
* Tectonics: cobc
******************************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. GOTO-SUMPLE2.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01  WORKING-AREA.
*　 コンソール入力バッファ
　　03 CONSOLE-INPUT   PIC X(1).
 
PROCEDURE DIVISION.
*-------------------------------------------
*　主手続
*-------------------------------------------
MAIN-PROCEDURE.
*   コンソール入力エリアの初期化
　 MOVE SPACE TO CONSOLE-INPUT.
 
EXEC-DISPLAY-INPUT-PROC.
*   コンソール表示＆入力
　 DISPLAY "数字を１文字入力してください".
　 DISPLAY "0-8：CONTINUE 　9:EXIT".
　 ACCEPT CONSOLE-INPUT FROM CONSOLE.
 
　 IF CONSOLE-INPUT = 9
 　　 GO TO END-PROC
　 ELSE IF (CONSOLE-INPUT <= 8) AND
　　 　 (CONSOLE-INPUT >= 0) THEN
　 　 CONTINUE
　 ELSE
　　 GO TO DISPLAY-ERROR-MSG-PROC
　 END-IF
　 END-IF.
LOOP-LABEL.
　 GO TO EXEC-DISPLAY-INPUT-PROC.
 
END-PROC.
 　DISPLAY "プログラムを終了します"
　 STOP RUN.
 
*-------------------------------------------
*　エラーメッセージ表示処理
*-------------------------------------------
DISPLAY-ERROR-MSG-PROC.
　 DISPLAY "入力値が数字ではありません"
　 GO TO LOOP-LABEL.
 
END PROGRAM GOTO-SUMPLE2.