COBOL 85 예 또는 아니오 입력 유효성 확인

Question

사용자가 입력 한 입력이 Y, Y, N 또는 n인지 확인하는 방법을 알고 싶습니다.

은이 코드를 사용 :

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

를하지만 여전히 작동하지 않습니다. 사용자는 여전히 다른 문자를 입력 할 수 있습니다. 도움이 될 것입니다. 미리 감사드립니다.

Answer 1

대문자를 제외하고는 사용자 입력을 제한 할 수 없습니다. 당신이 할 수있는 것은 이것이다 : 절차에서

01 ANSWER   PIC X. 

: 작업 - 스토리지에서

사용자 입력, 그것은 전체 대문자의 어떤 있는지 확인합니다

ACCEPT ANSWER CONTROL "UPPER". 

. 그런 다음 'Y'만 확인하십시오.

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

도움이되기를 바랍니다.