COBOL

質問

以下のソースに「指定外の数値です。」になったらプログラムを終了するにしたいのです。ソースを教えてください。

IDENTIFICATION DIVISION.
PROGRAM-ID. TEST-001.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 W-NUM PIC 9(3).
88 NUM-RANGE VALUE 128 129 130 .
PROCEDURE DIVISION.
MAIN.
DISPLAY "開始(START)".
DISPLAY "３桁の数値を入力してください"
ACCEPT W-NUM.
IF NUM-RANGE THEN
DISPLAY "指定の数値です。"
ELSE
DISPLAY "指定外の数値です。"
END-IF.
STOP RUN.

回答No.5

nan93850673

なんせCOBOLは20年ぶりだから自信ないけど、

WORKING-STORAGE SECTION.
01 W-NUMPIC 9(3) VALUE 128.
88 NUM-RANGEVALUE 128 129 130 .
PROCEDURE DIVISION.
MAIN.
DISPLAY "開始(START)".
PERFORM UNTIL NOT NUM-RANGE
DISPLAY "３桁の数値を入力してください"
ACCEPT W-NUM
IF NUM-RANGE THEN
DISPLAY "指定の数値です。"
ELSE
DISPLAY "指定外の数値です。"
END-IF
END-PERFORM.
STOP RUN.

回答No.4

Prome_Lin

他のプログラミング言語ですと、

Do
x = InputBox("0")
If x <> "0" Then
MsgBox("指定外の数値です。")
End If
Loop Until x = "0"
MsgBox("指定の数値です。")

というように、「Do～Loop」を使うのですが、「Cobol」にもありませんか？

回答No.3

maiko0333

IDENTIFICATION DIVISION.
PROGRAM-ID.TEST-001.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 W-NUMPIC 9(3).
88 NUM-RANGEVALUE 128 129 130 .
PROCEDURE DIVISION.
MAIN.
DISPLAY "開始(START)".
PRO-1.
DISPLAY "３桁の数値を入力してください"
ACCEPT W-NUM.
IF NUM-RANGE THEN
DISPLAY "指定の数値です。"
GO TO PRO-1
ELSE
DISPLAY "指定外の数値です。"
END-IF.
STOP RUN.

回答No.2

maiko0333

＞「指定外の数値です。」になったらプログラムを終了する
これはわかります。では指定内だったらどうするのかがわかりません。
このプログラムでプログラム終了はされているので問題ないです。

補足

補足です。
指定内のときは指定外になるまで数値を入力できるです。

回答No.1

Prome_Lin

http://www.ibm.com/support/knowledgecenter/ja/SSQ2R2_9.1.1/com.ibm.etools.cbl.win.doc/topics/tpsubw00.htm

こちらのサイトをご覧ください。

「STOP RUN」ではないでしょうか。

サブプログラムの場合は、「EXIT PROGRAM」。

補足

Y！COBOLで実行しているのでSTOP RUNです。