cobol85 - COBOL 85 yes or no input validation

Question

i just want to know how to make sure that the input entered by the user is only Y, y, N, or n.

I used this code:

01 ANSWER                PIC X.
    88 VALID-ANSWER      VALUE "Y" "y" "N" "n".

But still it doesn't work. The user can still type other characters. Any help will be appreciated. Thanks in advance.

Answer 1

我通过使用执行循环来解决这个问题：

在工作存储：
    01 回答图片 X。

在程序：
    执行直到 ANSWER = "y" OR = "Y" OR = "n" OR = "N"
       显示“问题（y/Y/n/N）：”
       移动空间来回答
       接受答案
    最终执行。
    如果答案 = "y" 或 "Y"
       做一点事
    别的
       做点别的
    万一

我希望这有帮助。

Answer 2

您只是不能限制用户输入，大写除外。你可以做的是：

在工作存储：

01 ANSWER           PIC X.

在程序：

ACCEPT ANSWER CONTROL "UPPER".

这将确保无论用户输入什么，它都是全大写的。然后你只检查一个“Y”：

IF ANSWER = "Y"
  (do something)
ELSE
  (do something)
END-IF

我希望它有所帮助。